Откройте свой Мир!

Я программрую на стариньком VB 6.0 
Немножко знаю Delphi

Здраствуйте! хочу стать программистом но незнаю  с чего начать...подскажите..есть базовые знания по паскалю и по дельфи.. к чему лучше всего приложить усилия?

Ищу программистов, знающих язык MQ4 и ACTFX

Как можно дополнить программу чтобы все изменения не исчезали после перезагрузки. Если сможете помогите. И отвечая предворительно на стандартный вопрос "Да, я вкурсе что это изобретение велосипеда. Просто интересно что нибудь поизобретать. Да и поповоду описаний цветов, это так сказать пометки для себя.". 

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;
type
  TForm1 = class(TForm)
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    ColorDialog1: TColorDialog;
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
c: tcolor;
g:integer;
begin
if colordialog1.Execute then
c:=colordialog1.Color;
g:=spinedit1.Value;
setsyscolors(1,g,c);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
spinedit1.Value:=combobox1.ItemIndex;
if combobox1.ItemIndex=0 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=1 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=2 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=3 then label1.Caption:=combobox1.text+#13+'Цвет в активной метке. Можно увидеть в строке поиска торрент';
if combobox1.ItemIndex=4 then label1.Caption:=combobox1.text+#13+'Цвет в меню. Можно увидеть когда зажимаешь правую клавишу мыши';
if combobox1.ItemIndex=5 then label1.Caption:=combobox1.text+#13+'Меняет цыет окна. Тоесть внутри папки или окна что было белым поменяет свой цвет';
if combobox1.ItemIndex=6 then label1.Caption:=combobox1.text+#13+'Изменяется цвет обводки визуальных и выплывающих подсказок. А так же разделителей.';
if combobox1.ItemIndex=7 then label1.Caption:=combobox1.text+#13+'Меняет цвет текста в меню(тот текст, которым обозначается: Файл, правка, Вид. Или же им обозначаются весь текст в развернутом меню.). ';
if combobox1.ItemIndex=8 then label1.Caption:=combobox1.text+#13+'Меняет виндоусовский текст почти во всех документах';
if combobox1.ItemIndex=9 then label1.Caption:=combobox1.text+#13+'Меняет цвет заголовка программы. Т.е название программы в верхней синей основной панели.';
if combobox1.ItemIndex=10 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=11 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=12 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=13 then label1.Caption:=combobox1.text+#13+'Цвет кнопки при наведении. Или же при выделении файлов, цвет самого выделения.';
if combobox1.ItemIndex=14 then label1.Caption:=combobox1.text+#13+'Закрашивается высококонтрастный текст. Можно заметить в панели задач. Им обозначаются языки.';
if combobox1.ItemIndex=15 then label1.Caption:=combobox1.text+#13+'Интерфейсный цвет. Почти у всех программ Widows он изменяется.';
if combobox1.ItemIndex=16 then label1.Caption:=combobox1.text+#13+'За интерфейсный фон. Им обозначаются все тени окон. Не активные кнопки. И многие рамки окон.';
if combobox1.ItemIndex=17 then label1.Caption:=combobox1.text+#13+'Цвет не активной текстовой кнопки. Убирая фокус с окна увидишь что Файл, правка и тд. изменят цвет. Это дело для программ.';
if combobox1.ItemIndex=18 then label1.Caption:=combobox1.text+#13+'Цвет активной текстовой кнопки. Делая фокус в программе, увидишь что цвет верхних файл, правка и тд. изменился';
if combobox1.ItemIndex=19 then label1.Caption:=combobox1.text+#13+'Меняет цвет текста в неактивном заглавии окна. Т.е в самом верхнем синем окне.';
if combobox1.ItemIndex=20 then label1.Caption:=combobox1.text+#13+'Меняет цвет нижних панелей. Там где в экселе находятся листы.';
if combobox1.ItemIndex=21 then label1.Caption:=combobox1.text+#13+'Рамка вокруг 3D объектов. Можно увидеть когда открываешь цветовую палитру(цвет рамки вокруг цветов)';
if combobox1.ItemIndex=22 then label1.Caption:=combobox1.text+#13+'Тень от рамки 3d объектов. Можно увидеть когда открываешь цветовую палитру(тень от рамки вокруг цветов). ';
if combobox1.ItemIndex=23 then label1.Caption:=combobox1.text+#13+'Цвет текста подсказок. Наводим на файл и воуаля.';
if combobox1.ItemIndex=24 then label1.Caption:=combobox1.text+#13+'Цвет фона подсказок. Наводим на файл и воуаля.';
if combobox1.ItemIndex=25 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=26 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=27 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=28 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=29 then label1.Caption:=combobox1.text+#13+'Цвет наводки меню. Можно наглядно увидеть когда жмешь правую клавишу и водишь по меню мышкой.';
if combobox1.ItemIndex=30 then label1.Caption:=combobox1.text+#13+'Цвет панели меню';
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
combobox1.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.ItemIndex:=spinedit1.Value;
form1.Left:=screen.Width div 2;
form1.Top:=0;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
combobox1.ItemIndex:=spinedit1.Value;
if spinedit1.Value=0 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=1 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=2 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=3 then label1.Caption:=combobox1.text+#13+'Цвет в активной метке. Можно увидеть в строке поиска торрент';
if spinedit1.Value=4 then label1.Caption:=combobox1.text+#13+'Цвет в меню. Можно увидеть когда зажимаешь правую клавишу мыши';
if spinedit1.Value=5 then label1.Caption:=combobox1.text+#13+'Меняет цыет окна. Тоесть внутри папки или окна что было белым поменяет свой цвет';
if spinedit1.Value=6 then label1.Caption:=combobox1.text+#13+'Изменяется цвет обводки визуальных и выплывающих подсказок. А так же разделителей.';
if spinedit1.Value=7 then label1.Caption:=combobox1.text+#13+'Меняет цвет текста в меню(тот текст, которым обозначается: Файл, правка, Вид. Или же им обозначаются весь текст в развернутом меню.). ';
if spinedit1.Value=8 then label1.Caption:=combobox1.text+#13+'Меняет виндоусовский текст почти во всех документах';
if spinedit1.Value=9 then label1.Caption:=combobox1.text+#13+'Меняет цвет заголовка программы. Т.е название программы в верхней синей основной панели.';
if spinedit1.Value=10 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=11 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=12 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=13 then label1.Caption:=combobox1.text+#13+'Цвет кнопки при наведении. Или же при выделении файлов, цвет самого выделения.';
if spinedit1.Value=14 then label1.Caption:=combobox1.text+#13+'Закрашивается высококонтрастный текст. Можно заметить в панели задач. Им обозначаются языки.';
if spinedit1.Value=15 then label1.Caption:=combobox1.text+#13+'Интерфейсный цвет. Почти у всех программ Widows он изменяется.';
if spinedit1.Value=16 then label1.Caption:=combobox1.text+#13+'За интерфейсный фон. Им обозначаются все тени окон. Не активные кнопки. И многие рамки окон.';
if spinedit1.Value=17 then label1.Caption:=combobox1.text+#13+'Цвет не активной текстовой кнопки. Убирая фокус с окна увидишь что Файл, правка и тд. изменят цвет. Это дело для программ.';
if spinedit1.Value=18 then label1.Caption:=combobox1.text+#13+'Цвет активной текстовой кнопки. Делая фокус в программе, увидишь что цвет верхних файл, правка и тд. изменился';
if spinedit1.Value=19 then label1.Caption:=combobox1.text+#13+'Меняет цвет текста в неактивном заглавии окна. Т.е в самом верхнем синем окне.';
if spinedit1.Value=20 then label1.Caption:=combobox1.text+#13+'Меняет цвет нижних панелей. Там где в экселе находятся листы.';
if spinedit1.Value=21 then label1.Caption:=combobox1.text+#13+'Рамка вокруг 3D объектов. Можно увидеть когда открываешь цветовую палитру(цвет рамки вокруг цветов)';
if spinedit1.Value=22 then label1.Caption:=combobox1.text+#13+'Тень от рамки 3d объектов. Можно увидеть когда открываешь цветовую палитру(тень от рамки вокруг цветов). ';
if spinedit1.Value=23 then label1.Caption:=combobox1.text+#13+'Цвет текста подсказок. Наводим на файл и воуаля.';
if spinedit1.Value=24 then label1.Caption:=combobox1.text+#13+'Цвет фона подсказок. Наводим на файл и воуаля.';
if spinedit1.Value=25 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=26 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=27 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=28 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=29 then label1.Caption:=combobox1.text+#13+'Цвет наводки меню. Можно наглядно увидеть когда жмешь правую клавишу и водишь по меню мышкой.';
if spinedit1.Value=30 then label1.Caption:=combobox1.text+#13+'Цвет панели меню';
end;
end.

Короче люди долюящее по клаве и видящие этот мир не так как видят его большинство людей. . . У меня есть много идей и наработок . . Давайте обьединяться, делиться опытом и навыками . . Жду вас ))P.S: Говорящих на C/C++ особенно охото видеть )))

здрасте. бд приложение создана на делфи,и аксесе. открываю проект (ранее созданный), выдает ошибку: "класс не зарегистрирован". подвязка правильная. создавал для проверки новый проект, такая же херня. кстати, я перебивал винду, после этого возникла эта проблема. на старой винде все работало. подскажите пожалуйста.

После того как я засунула флешку в комп брата, стало писать что диск не отформатирован. И спрашивает "Произвести его форматирование?" А на флешки ценные и не востановимые данные. А до этого всё работало. И у него не открылось и теперь ни на одном компе не открывается. ЧТО ДЕЛАТЬ? ПОЖАЛУЙСТА ПОМОГИТЕ

Ребята может поможете.
Как замутить на делфаке нормальную работу с JPEG, стандартный модуль фтопку!!!

надеюсь большинство выходят в асю или в агент...неужели новички и матерые компьюторщики не общаются и не пишут на скл хтмл или яваме...ну или еще на чем...прошу отзовитесь и те кому

Бывают моменты когда ломается мышь. И либо не охото, либо нет времени купить мышь.

Так что от хорошего настроения и доброты душевной скидываю исходник
программы по управлению курсором и щелчками мыши на языке Delphi. Может
кому то нужно как мне иногда.

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Button5: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  x,y:integer;                            // Объявляем глобальные переменные



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Left:=strtoint(edit1.Text);   // Кнопка при нажатии переносит форму по

form1.Top:=strtoint(edit2.Text);    // указанным координатам в комбомассиве

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0);   // Функция зажатия левой клавиши мыши

mouse_event(mouseeventf_leftup,0,0,0,0);     // Функция разжатия левой клавиши мыши

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0); // Повторяем предыдущую функцию нажатия и разжатия мыши

mouse_event(mouseeventf_leftup,0,0,0,0);   // чтобы мы могли выделить объект

mouse_event(mouseeventf_rightdown,0,0,0,0); // Далее зажимаем правую клавишу мыши

mouse_event(mouseeventf_rightup,0,0,0,0);   // Далее разжимаем правую клавишу мыши

end;



procedure TForm1.Button4Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0); // Если мы повторим дважды функцию нажатия

mouse_event(mouseeventf_leftup,0,0,0,0);   // и разжатия клавиши мыши, то у нас получится

mouse_event(mouseeventf_leftdown,0,0,0,0); // Двойной щелчек мыши

mouse_event(mouseeventf_leftup,0,0,0,0);

end;



procedure TForm1.Button5Click(Sender: TObject);

begin

form1.Close;

end;



procedure TForm1.ComboBox1Change(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // При изменении комбобокса меняется положение курсора по х

y:=strtoint(combobox2.Text);

setcursorpos(x,y);             // Переводим курсор в указанное место

end;



procedure TForm1.ComboBox2Change(Sender: TObject);

begin

x:=strtoint(combobox1.Text);

y:=strtoint(combobox2.Text);   // При изменении комбобокса меняется положение курсора по y

setcursorpos(x,y);             // Переводим курсор в указанное место

end;



procedure TForm1.FormCreate(Sender: TObject);

var i,j:integer;

begin

for i := 1 to 3000 do              // создаем массив цифр

combobox1.Items.Add(inttostr(i));  // Добовляем цифры в комбобокс

for j := 1 to 3000 do              // создаем массив цифр

combobox2.Items.Add(inttostr(j));  // Добовляем цифры в комбобокс

form1.Left:=0;

form1.Top:=0;

form1.Color:=rgb(100,100,255);

end;



end.

Помогите!!! Кто работал с базами данных в OpenOffice???
Мне нужно сделать так, чтоб при нажатии на кнопку открывалась другая форма.
Либо при нажатии на кнопку с названием "Выход" происходило закрытие формы.
Как это сделать????

Короче люди долюящее по клаве и видящие этот мир не так как видят его большинство людей. . . У меня есть много идей и наработок . . Давайте обьединяться, делиться опытом и навыками . . Жду вас ))P.S: Говорящих на C/C++ особенно охото видеть )))

Товариши. Не в курсе, куда подевался дружелюбный сайт www.delphilab.ru и вообще он будет еще работать.

Любые услуги в сети интернет (php, html,
mysql, c++ и все все все), движки, моды, серверы, взлом всего что глаза
видят, не дорого (wmz или wmr), писать в лс.

подскажите любой ли биос может увидеть флешку если с нее устанавливать виндовс? или для таких целей нужно боис поменять? Спасибо за ответ

Выложил Набор функций для работы с изображениями в PHP.

Он очень скудный, но работает. И то, что было нужно.

Итак. А сейчас мы немного поизвращаемся. Копи-паст... И без подсветки синтаксиса мы получаем это:

> 16) & 0xFF;
if ( $c == 'g' ) return ($rgb >> 8) & 0xFF;
if ( $c == 'b' ) return $rgb & 0xFF;
}

// возвращает средний цвет на для квадрата со стороной $area*2+1 пикселей
function get_middle($x, $y, $c, $area, $image)
{
$x_dimension = imagesx($image);
$y_dimension = imagesy($image);
$middle = 0;
$pixels = 0;
for ( $i = -$area; $i<=$area; $i++ )
for ( $j = -$area; $j<=$area; $j++ )
{
if ( !( $i == 0 and $j == 0 ) and $x+$i>=0 and $x+$i<$x_dimension and $y+$j>=0 and $y+$j<$y_dimension )
{
$middle += get_color($x+$i, $y+$j, $c, $image);
$pixels ++ ;
}
}

//(pow($area*2+1, 2)-1
$middle = round( $middle/$pixels );
return $middle;
}

// возвращает изображение, к которому применен фильтр BLUR с параметрами $area и $strength - сила воздействия
// значение $strength - от 0 до 1. Не влияет на скорость выполнения скрипта.
// зачение area - от 1. Это значение очень сильно влияет на скорость выполнения скрипта.
function blur($image, $strength, $area)
{
$x_dimension = imagesx($image);
$y_dimension = imagesy($image);
$new_image = imagecreatetruecolor($x_dimension, $y_dimension);

for ($x = 0; $x < $x_dimension; $x++) {
for ($y = 0; $y < $y_dimension; $y++) {

$r = get_color($x,$y,'r', $image);
$g = get_color($x,$y,'g', $image);
$b = get_color($x,$y,'b', $image);

// обработка изображения.

$r = $r*(1-$strength)+get_middle($x, $y, 'r', $area, $image)*$strength;
$g = $g*(1-$strength)+get_middle($x, $y, 'g', $area, $image)*$strength;
$b = $b*(1-$strength)+get_middle($x, $y, 'b', $area, $image)*$strength;

//-----------------------

$r = ($r>255)? 255 : (($r<0)? $r=0: $r);
$g = ($g>255)? 255 : (($g<0)? $g=0: $g);
$b = ($b>255)? 255 : (($b<0)? $b=0: $b);
$color = imagecolorallocate(
$image,
$r,
$g,
$b
);
imagesetpixel($new_image, $x, $y, $color);
}

}

return $new_image;
}

// возвращает изображение, к которому применен фильтр СЕПИЯ
function sepia($image)
{
$x_dimension = imagesx($image);
$y_dimension = imagesy($image);
$new_image = imagecreatetruecolor($x_dimension, $y_dimension);

for ($x = 0; $x < $x_dimension; $x++) {
for ($y = 0; $y < $y_dimension; $y++) {

$r = get_color($x,$y,'r', $image);
$g = get_color($x,$y,'g', $image);
$b = get_color($x,$y,'b', $image);

// обработка изображения.

$color = ($r+$g+$b)/3;

$r = round($color*1.43);
$g = round($color*1.05);
$b = round($color*0.7);

//-----------------------

$r = ($r>255)? 255 : (($r<0)? 0: $r);
$g = ($g>255)? 255 : (($g<0)? 0: $g);
$b = ($b>255)? 255 : (($b<0)? 0: $b);
$color = imagecolorallocate(
$image,
$r,
$g,
$b
);
imagesetpixel($new_image, $x, $y, $color);
}

}

return $new_image;
}

?>

Здесь функции для сепии и для блюра.

А вот это - пример:



Вперед, удаляем фотошоп и юзаем данные скрипты. Проверено, работает в 100 раз медленнее, зато с открытыми кодами.

Ваш Wizart

Вот и первая запись нашего блога кодеров и программеров...
Честно говоря создал я этот блог от скуки и пока смотрю уже появился один участник, надеюсь так пойдет и дальше...

Ладно, пока мне сказать больше нечего, могу только пожелать всем творческих успехов... Дерзайте! =)

procedure TForm1.FormCreate(Sender: TObject);
begin
asm
.....
out 61h,al
.....
end;
end;
показывает ошибка "privileged instruction" как правильно записать чтобы не было этой ошибки?

Доброго времени суток, нужна помощь имеется база в которой есть таблица с определенным количеством пользователей, как дать привилегии администратора нескольким пользователем а остальным закрыть такую возможность. База на ADO MsAccess. 

аса 553468123
братаны и сестрички
реально кто в теме антивир фаер
или скрытия ай пи или отслеживания и атаки
и защиты и взлома соц сервисов и конект к ним с мобильного
или шары в мобильных .
или кто программирует прямо на телефоне...
или кто пробывал вычислительнно моделируемый фильм с изменением сюжета
или кто пробывал реал тайм стратегии с предварительно настраеваемой авто стратегией с минимальным откликом пользователя
подскажите кто че может...или я мож подскажу че знаю

Написал програмку по отправке sms.Кто знает Билайновский серверный CGI или PWL файл чтобы ссылатся. Нужен Казахстанский

Как и всем, кто хочет повысить самооценку, зарплату и получить свободу выбора, в том числе страны.
Желающим получить международную ученую степень бакалавра, магистра, доктора философии в области компьютерных наук (Ph.D)
поможет наш Международный университет фундаментального обучения (Оксфорд - Россия - Санкт-Петербург) - www.mufo.ru
 

Требования

Возраст от 25 до 35 лет

Опыт работы от 2 лет

Опыт работы в 1С8 от 1 года

Знакомство с конфигурацией УПП – большой плюс


Обязанности

Поддержка и плановое развитие существующей конфигурации

Поддержка пользователей


Условия

В крупную московскую компанию (производство мебели) требуется Программист 1С8

Оформление по ТК

белая з/п, от 60 000, работа в офисе в г. Зеленоград


Контакты

ФИО: Лория 

Телефон: (926) 3858625

E-Mail: lorija@list.ru, ludin@keypersonal.ru