Цитата:
Сообщение от QaK
bistriy, если не понимаешь - кури матчасть, т.е. учебник по паскалю для начинающих, или даже лучше дельфу для начинающих. Если весь код коментировать - это застрелиться проще, есть алгоритм, есть его реализация в виде программы, ну, можно, допустим, в описании переменных подписать, что какая значит, а не весь код коментить. А так - зная основы программирования - код можно понять.
З.Ы. Запятые, плз, ставь, очень сложно читать посты.
|
Я просил хоть немного начать обьяснять суть кода а не давать советы.
Я в советах асс. А вот в кодах нешарю. Вкурил ?
Добавлено через 4 минуты
Вот мое добавление .
Как нарисовать в окне формы картинку:
1. Добавить в функцию function Create_FormMain : TForm;
delphi Код:
КОд:
//Image1
Image1:= TImage.Create(Result);
Image1.Parent:=Result;
Image1.Left :=10;
Image1.Top := 20;
Image1.Width := 160;
Image1.Height := 160;
Image1.Visible := TRUE;
Image1.Tag := 0;
Image1.Enabled := TRUE;
Image1.Hint := '';
Image1.ShowHint := FALSE;
Image1.AutoSize := TRUE;
2.Добавить в процедуру procedure LoadButton_Click(Sender: TButton);
Код:
Image1.Picture.LoadFromFile(path.text);
Image11; // Процедура сдвига формы рисует картинку на форме.
3. ДОбавить код:
Procedure Image11; // сдвигаю форму чтобы нарисовалась картинка.
begin
FormMain.Width := FormMain.Width + 1;
FormMain.Width := FormMain.Width - 1;
//-------------------------------------------
end;