Форум: "Начинающим";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];

Вниз

как сделать чтобы рисунок не мерцал?   Найти похожие ветки 

← →
Adios ©   (2006-07-25 22:17) [0]

если не включать в код image1.Refresh; то на месте панели рисунка вообще не видно, помогите как правильно сделать, тока не предлагайте
form1.brush...
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls, jpeg;

type
 TForm1 = class(TForm)
   Image1: TImage;
   Panel1: TPanel;
   procedure FormClick(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClick(Sender: TObject);
var y:integer;
begin
y:=panel1.Height;
while y>=0 do
 begin
 panel1.Height:=y;
 y:=y-3;
 image1.Refresh;
 end;
panel1.Height:=0;

y:=0;
panel1.Height:=y;
panel1.Show;
while y<211 do
 begin
 panel1.Height:=y;
 y:=y+3;
 image1.Refresh;
 end;
panel1.Height:=210;
end;

end.


---

← →
TForm   (2006-07-25 22:21) [1]

DoubleBuffered:=True

---

← →
Eraser ©   (2006-07-25 23:01) [2]

> [0] Adios ©   (25.07.06 22:17)

или же перекрыть WM_ERASEBKGND примерно вот так

procedure TfmRender.WMEraseBkgnd(var Msg: TWMEraseBkgnd);
begin
 // do nothing
end;

---

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

Форум: "Начинающим";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.073 c