Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.08;
Скачать: CL | DM;

Вниз

Как рисовать на экране картинки?   Найти похожие ветки 

 
Xomer   (2002-07-27 19:24) [0]

Когда использую данный код
procedure Tform1.DrawOnScreen;
var
DC : HDC;
DesktopCanvas : TCanvas;
begin
DC := GetDC(0); // получили DC экрана
try
DesktopCanvas := TCanvas.Create;
DesktopCanvas.Handle := DC;
ImageList1.Draw(DesktopCanvas,x,y,n);
finally
ReleaseDC(0, DC);
DesktopCanvas.Free;

Картинки из imagelist накладываются друг на друга. Т.е необходимо, чтобы на экране была отображена только одна картинка, поэтому видимо нужно что-то типа refresh для экрана. Думается, это позволит удалить предыдущую картинку и затем рисовать другую. Хотя может это глупый способ, поскольку из-за этого анимация будет (а я в принципе, анимацию и пытаюсь сделать) никакая, поскольку картинка будет моргать из-за постоянного refresh. Так как же рисовать на экране картинки да так, чтобы они на накладывались друг на друга?


 
wicked ©   (2002-07-27 20:08) [1]

забирать с твоего DesktopCanvas кусок экрана, на котором будет картинка, в отдельный bitmap...
а потом, на следующий кадр, восстанавливать необходимый кусок из bitmap"а...


 
Xomer   (2002-07-27 21:09) [2]

2 Wicked
Исходник! Исходник! Исходник!
Ну, пожалуйста, покажи на примере кода.



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

Текущий архив: 2002.08.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
3-23884
DenisLK
2002-07-17 12:49
2002.08.08
Вопрос по параметрам в SQL


1-24071
lpp
2002-07-26 12:25
2002.08.08
InstallShield Express for Delphi 5


4-24274
ДимкаН
2002-06-03 11:19
2002.08.08
Как получить иконку для заданного приложения?


1-24068
Dmitry Toropov
2002-07-25 18:22
2002.08.08
И снова удаление файлов :((


3-23889
Ильдар
2002-07-17 14:13
2002.08.08
Извините за глупый вопрос.....