Скачать: CL | DM;

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, но постараться не делать это столь часто, как двигается мышь.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.014 c