Скачать: CL | DM;

Как сделать чтобы 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c