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

Вниз

Мерцание прорисовки Canvas-a   Найти похожие ветки 

 
Лопух   (2006-04-14 16:13) [0]

Подскажите как получить не мерцающую прорисовку линий в полноэкранной Direct3D(?) игрушке?

имею

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
repeat
 DC := GetDC (0);
 Scr := TCanvas.Create;
 Scr.Handle := DC;
 Scr.Pen.Color := clRed;
 Scr.Pen.Style := psSolid;
 for i:=0 to 50 do begin
   Scr.MoveTo(400, 290);Scr.LineTo(400, 295);
   Scr.MoveTo(400, 305);Scr.LineTo(400, 310);
   Scr.MoveTo(390, 300);Scr.LineTo(395, 300);
   Scr.MoveTo(405, 300);Scr.LineTo(410, 300);
   sleep(1);
 end;
 ReleaseDC(0,Scr.Handle);
until (false);
end;

Приоритет Normal


 
Лопух   (2006-04-14 16:15) [1]

Такую программу сам видел в работе. Но сейчас ни сорцов, ни её самой откопать невозможно.


 
antonn ©   (2006-04-14 16:18) [2]

для начала создавай конвас только один раз и пользуйся им.


 
Лопух   (2006-04-14 16:34) [3]

Поправил слегка.

procedure TForm1.FormCreate(Sender: TObject);
begin
 Scr := TCanvas.Create;
 Scr.Handle := GetDC (0);
 Scr.Pen.Color := clRed;
 Scr.Pen.Style := psSolid;
end;
procedure TForm1.Button1Click(Sender: TObject);
 var i:integer;
begin
repeat
 Scr.Handle := GetDC (0);
 for i:=0 to 2000 do begin
   Scr.MoveTo(400, 290);Scr.LineTo(400, 295);
   Scr.MoveTo(400, 305);Scr.LineTo(400, 310);
   Scr.MoveTo(390, 300);Scr.LineTo(395, 300);
   Scr.MoveTo(405, 300);Scr.LineTo(410, 300);
   sleep(1);
 end;
 ReleaseDC(0,Scr.Handle);
until (false);
end;

Разницы не заметил.

Простите за очепятки.


 
Лопух   (2006-04-20 16:20) [4]

UP4хи! Извини, модер.



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

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

Наверх




Память: 0.47 MB
Время: 0.049 c
2-1163573400
Alex_C
2006-11-15 09:50
2006.12.03
Положение текста в мемо


15-1163336735
nordic3
2006-11-12 16:05
2006.12.03
Музыкальный диск и магнитофон


2-1163771014
novill
2006-11-17 16:43
2006.12.03
Как сделать, чтобы при создании стандартной формы свойство


15-1163166355
paneller
2006-11-10 16:45
2006.12.03
Layout контролов


2-1163524922
Beavercrazy
2006-11-14 20:22
2006.12.03
Как сохранить файл в формате html