Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.055 c