| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

И все же как "наксерить" компонент Image1? [D6, D7]

mozgan ©   (2006-01-23 15:02:00) 

Здрасте! Неделю назад сильно парился с одной программкой для просмотра файлов мультимедиа. Парился ещё как. Картинок - 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;

---

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

СПАСИБА!!!

---

Ega23   (2006-01-23 15:19:00) [2]

> Ты имеешь в виду наращивать на 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:11:00) [3]

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

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

---

Ega23   (2006-01-23 15:06:00) [4]

> 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 в данной ситуации - лишнее.

---

Наверх