ИмаджЛист

← →
Извращенец (2002-06-27 22:20) [0]

как заставить ImageList рисовать картинки последовательно на одном и том же месте, чтоб они НЕ отображались ОДНОВРЕМЕННО!
типа Анимации.
(код:)Что сюда надо добавить?
.......... procedure TForm2.FormCreate(Sender: TObject); begin ... form2.DoubleBuffered:=true; HList.Draw(Canvas,333,258,0,True); {рисую начальный кадр} end; .......... procedure TForm2.herogoerTimer(Sender: TObject); begin Hlist.Draw(Canvas,333,258,1,True); {рисую второй кадр} {Hlist.Draw(Canvas,333,258,0,false);} sleep(200); Hlist.Draw(Canvas,333,258,0,True); {Hlist.Draw(Canvas,333,258,1,false);} sleep(200); end; ..........
что значит false и true;

← →
Cobalt (2002-06-27 22:44) [1]

А нажать F1 слабо?

TCustomImageList.Draw
Draws the image specified by the Index parameter onto the provided Canvas.

procedure Draw(Canvas: TCanvas; X, Y, Index: Integer; Enabled: Boolean=True);

Description

Use the Draw method to draw one of the images in the image list onto Canvas. The image is drawn at the position X, Y according to the style set in the DrawingStyle property. When the Enabled parameter is False, the image is drawn as a grayed image. Because Enabled has a default value of True, this parameter can be omitted if the image should not be grayed.

Словарик, I hope, есть?

← →
Извращенец (2002-06-28 16:40) [2]

я и без словарика могу. зря что ли англицкий учил
Но как мне после отображения убрать эту картинку. чтоб её не было видно

← →
Извращенец (2002-06-28 18:17) [3]

Я что, не на тот сервер попал? никто не знает как убрать картинку !!!

← →
MBo (2002-06-28 18:28) [4]

1) рисуй прямоугольник с цветом фона
2) если фон неоднородный, сначала запомни нужный фрагмент

← →
Извращенец (2002-06-28 19:24) [5]

MBo
у меня фон любым может быть. Я ставлю Transparent:=true; у меня цвет, на котором рисую картинку прозрачный. можно конечно для каждого уровня зная свой цвет использовать 1 вариант, но мне нужно что-то быстрое и удобное.
Разве у имаджлиста нет такой функции.

ИмаджЛист Найти похожие ветки