Главная страница
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.011 c
1-24123
Nox
2002-07-26 19:28
2002.08.08
<<<Вопрос по canvas>>>


1-24056
Kin
2002-07-23 20:55
2002.08.08
Скрытые файлы...


1-24070
sergn
2002-07-26 10:43
2002.08.08
Скроллинг TTreeView


1-23995
ed_209
2002-07-28 02:16
2002.08.08
2 FileStreams on 1 file...


3-23913
PashketSiniz
2002-07-18 09:04
2002.08.08
Анатолию Подгоретскому