Форум: "WinAPI";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];
ВнизКак сделать чтобы image не мигала когда я рисую??? Найти похожие ветки
← →
Devid (2002-03-10 18:40) [0]Как сделать чтобы image не мигала когда я рисую??? ПЛЗ. Скажите кто знает!
← →
Anatoly Podgoretsky (2002-03-10 19:06) [1]Есть такая вещь как DoublrBuffer, может помочь
← →
Devid (2002-03-10 20:11) [2]Подскажи как ей пользоваться?! Если можно код.
← →
Anatoly Podgoretsky (2002-03-10 20:25) [3]DoubleBuffered := True;
← →
VuDZ (2002-03-10 21:39) [4]рисуй на одной канве, а потом переноси на другую - это быстрее чем прорисовка
← →
Stan4Ever (2002-03-10 21:46) [5]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure FormActivate(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Image1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
x,y,w,vnext,h,vExit:Integer;
ColorPalette: Array[0..15] of TColor = (clRed, clGreen, clYellow, clBlue, clWhite, clGray, clFuchsia, clTeal, clNavy, clMaroon, clLime, clOlive, clPurple, clSilver, clAqua, clBlack);
Graph:TBitmap;
Ende:Boolean;
implementation
{$R *.DFM}
procedure TForm1.FormActivate(Sender: TObject);
begin
Graph:=TBitmap.Create;
x:=50;
y:=50;
w:=Screen.Width;
h:=Screen.Height;
vnext:=0;
Graph.Width:=640;
Graph.Height:=480;
Ende:=False;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If Ord(KEy) =27 Then vExit := 30;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
Repeat
vnext:=vnext+1;
//Image1.Canvas.Pen.Color:=clBlack;
//Image1.Canvas.Brush.Color:=clBlack;
//Image1.Canvas.Rectangle(0,0,640,480);
With Graph.Canvas Do
begin
Pen.Color:=clBlack;
Brush.Color:= clBlack;
Rectangle(0,0,w,h);
//Sleep(0);
Pen.Color:=clYellow;
Brush.Color:=clYellow;
Rectangle(vnext,50,vnext+100,150);
//Sleep(0);
end;
Image1.Canvas.Draw(0,0,Graph);
Sleep(0);
Application.ProcessMessages;
until vExit=30;
//Close;
Canvas.Pen.Color:=clWhite;
Canvas.TextOut(300,10,IntToStr(vnext));
end;
end.
← →
Dimka Maslov (2002-03-12 10:32) [6]Image1.Parent.DoubleBuffered:=True
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c