Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.13;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.012 c
4-39895
skywalker
2002-03-06 17:48
2002.05.13
И снова потоки...


4-39918
chernoruk
2002-03-09 05:58
2002.05.13
Убить диалоговое окно!


7-39874
Потерянный
2002-02-13 16:10
2002.05.13
Спящий режим


7-39869
NW
2002-02-14 19:07
2002.05.13
Виртуальный логический диск


1-39742
Ross
2002-04-27 19:22
2002.05.13
Где моя ошибка?