Hallo zusammen,
mit folgendem Code versuche ich Jpeg-Bilder in eine Form zu malen. 2 Schlatflächen haben zum Test jeweils mit Ausnahme des Jpeg-Pfades identischen Code:
<pre>
procedure TForm1.Button2Click(Sender: TObject);
var J: TJpegImage;
b: TBitmap;
Dest, Source: TRect;
begin
//form1.DoubleBuffered:=true hilft nicht weiter;
Source := Rect(0,0,500,500);
Dest := Rect(10,10,500,500);
b:=TBitmap.Create;
J:= TJpegImage.Create;
J.loadfromfile('C:\flame03.jpg');
b.assign(j);
form1.Canvas.CopyRect(Dest,b.canvas,Source);
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
//form1.DoubleBuffered:= true macht keinen Unterschied;
end;
</pre>
Wie kann man das Flackern beim Bildwechsel vermeiden?
Danke für alle Tipps
Walter Grimm
mit folgendem Code versuche ich Jpeg-Bilder in eine Form zu malen. 2 Schlatflächen haben zum Test jeweils mit Ausnahme des Jpeg-Pfades identischen Code:
<pre>
procedure TForm1.Button2Click(Sender: TObject);
var J: TJpegImage;
b: TBitmap;
Dest, Source: TRect;
begin
//form1.DoubleBuffered:=true hilft nicht weiter;
Source := Rect(0,0,500,500);
Dest := Rect(10,10,500,500);
b:=TBitmap.Create;
J:= TJpegImage.Create;
J.loadfromfile('C:\flame03.jpg');
b.assign(j);
form1.Canvas.CopyRect(Dest,b.canvas,Source);
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
//form1.DoubleBuffered:= true macht keinen Unterschied;
end;
</pre>
Wie kann man das Flackern beim Bildwechsel vermeiden?
Danke für alle Tipps
Walter Grimm
Comment