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

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

Господа,нужно набросать на панель мини картинки из как в ACDSee.. [D5]

dmibar ©   (2003-01-30 00:33:00) 

есть такой код ,но при выполнении вылезает ошибка:нужно инициализировать а

procedure TFormbr.DirectoryListBox1Change(Sender: TObject);
var
b,i,j,z:integer;
a:array of array of Timage;
begin
b:=FileListBox1.Items.Count;
z:=0;
for i:=1 to b do begin
for j:=1 to panel1.Width div 52 do begin
a[i,j]:=TImage.Create(panel1);
a[i,j].Picture.LoadFromFile(FileListBox1.Items.Names[z]);
a[i,j].Left:=panel1.Left+2*(j-1);
a[i,j].top:=panel1.top+2*(i-1);
a[i,j].Height:=50;
a[i,j].Width:=50;
a[i,j].Visible:=true;
z:=z+1;
end;
end;
end;


---

i-C3H7OH   (2003-02-03 16:45:00) [1]

какие идеи? сам ваяй!

объяви размеры имаджей как константы.. захочешь поменять их - затрахаешься...

---

dmibar   (2003-02-03 03:24:00) [2]

i-c3h7oh
если есть время не посмотришь как доделать код?может появятся какие идеи

---

i-C3H7OH   (2003-02-02 03:54:00) [3]

изопропанол. исходников не видел, но не исключено, что они существуют

---

dmibar   (2003-02-02 02:00:00) [4]

i-C3H7OH (метанол ?)
спасибо за совет попробую так, кстати нигде не видел
просмотрщик типа acdsee с исходниками

---

i-C3H7OH   (2003-01-31 20:56:00) [5]

a:array of array of Timage;

a - динамический массив, надо задать его размер

SetLength(a, b-1);
а потом в цикле

for i:=0 to b-1 do SetLength(a[i], ...);

примерно так

---

Наверх