И все же как "наксерить" компонент Image1?

← →
mozgan (2006-01-23 15:02) [0]

Здрасте! Неделю назад сильно парился с одной программкой для просмотра файлов мультимедиа. Парился ещё как. Картинок - 100, и компонентов было столько же. Глупо! Очень обидно было, когда товарищи взглянули, но все же работало. А тута прям с неба свалился этот замечательный mozgan и задал вопрос, над которым долго парился.
Короче, я скопировал этот код по нажатию на кнопку. Но вместо того, чтобы показывать все картинки - показывает один закрашенный квадрат, причем, в голубой цвет! :)))))
Как же правильно сделать подскажите пожалуйста!

Вот код, который скопировал:
procedure TForm1.Button1Click(Sender: TObject);
begin
with TImage.Create(Self)do
begin
Picture.LoadFromFile(Pchar(FileListBox1.FileName));
SetBounds(0,0,100,100);
Parent:=(panel1);
end;
end;

← →
Ega23 © (2006-01-23 15:06) [1]

> procedure TForm1.Button1Click(Sender: TObject);
> begin
> with TImage.Create(Self)do
> begin
> Picture.LoadFromFile(Pchar(FileListBox1.FileName));
> SetBounds(0,0,100,100);
> Parent:=(panel1);
> end;
> end;
>

1. SetBounds, конечно, должно меняться для N>1. Прочитай про этот метод.
2. PChar в данной ситуации - лишнее.

← →
Африканец (2006-01-23 15:11) [2]

Спасибо за ответ - даже не ожидал, что так быстро!
У меня интернет тока не дивляйтесб редкость. Город маленький не выгодно.
А тут прм такое - секрет.

p.s. Про метод SetBounds. Ты имеешь в виду наращивать на 1?
Я правильно понимаю?

← →
Ega23 © (2006-01-23 15:19) [3]

> Ты имеешь в виду наращивать на 1?

Короче, вот код:
procedure TForm1.Button1Click(Sender: TObject); var i, ButtonWidth, StartPosition :Integer; begin ButtonWidth:=StrToInt(Edit1.Text); StartPosition:=10; for i:=0 to 9 do begin With TButton.Create(Self) do begin SetBounds(StartPosition+(ButtonWidth*i), 100, ButtonWidth, 25); Parent:=Self; Caption:="Button"+IntToStr(i+1); end; end; end;

На чистую форму бросаешь Button и Edit

← →
Африканец (2006-01-23 15:25) [4]

СПАСИБА!!!

И все же как "наксерить" компонент Image1? Найти похожие ветки