| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
изменение в списке переменных [D7, XP]
CoTr © (2007-06-16 16:25:00)На форме имеются Image1..Image100 :TImage. Как мне в цикле заполнить их canvas картинками?
Спасибо
CoTr (2007-06-16 16:43:00) [1]Спасибо, сделал так:
for n := 0 to 99 do
begin
Rect1 := Rect(WidthChar*n,0,WidthChar*(n+1),53);
jpn_char.Canvas.CopyRect(Rect2,Hiragana.Canvas,Rect1);
with TImage(FindComponent('Image'+IntToStr(n+1))) do
Canvas.Draw(0,0,jpn_char);
end;
Desdechado (2007-06-16 16:33:00) [2]Может, проще работать с
a: array[1..100] of Timage
Хотя можно и через Components добраться
Johnmen (2007-06-16 16:30:00) [3]1. for i:=1 to 100
2. 'Image'+i
3. FindComponent
| |
