imageList

← →
sdaf (2007-10-29 21:39) [0]

Здравствуйте
скажите пожалуйста почему неработает такой код, он грузит картинку только один раз.
procedure TForm1.BitBtn1MouseDown(Sender: TObject;Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ImageList1.GetBitmap(1,BitBtn1.glyph);
end;

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
ImageList1.GetBitmap(0,BitBtn1.glyph);
end;
Скажите в чем проблема?

← →
ЛшдлуттнСфе (2007-10-30 03:21) [1]

Ну, вероятно, GetBitmap проверяет на наличие изображения в списке, корректности индекса и существование изображения на объекте приемника. Нарушение хотя бы одного не позволит выполнить перерисовку. Если в индексах уверены, остается только послать к Эль-Бахру BitBtn1.glyph, но постараться не делать это столь часто, как двигается мышь.

imageList Найти похожие ветки