imageList
sdaf © (2007-10-29 21:39:00)
Здравствуйте
скажите пожалуйста почему неработает такой код, он грузит
картинку только один раз.
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:00) [1]
Ну, вероятно, GetBitmap проверяет на наличие изображения в
списке, корректности индекса и существование изображения на объекте
приемника. Нарушение хотя бы одного не позволит выполнить
перерисовку. Если в индексах уверены, остается только послать к
Эль-Бахру BitBtn1.glyph, но постараться не делать это столь часто,
как двигается мышь.
Наверх 
ЧАТ |
Орешник |
|
