How elimitnate flicker of Form on resizing?

[EWeiss]

Paint in Paint and ignore WMEraseBkgnd btw. result 1 and Exit.

greets

[flashcoder]

Zitat von EWeiss:

Paint in Paint and ignore WMEraseBkgnd btw. result 1 and Exit.

greets

Also without success, could show how you made, please?

[EWeiss]

using my Doublebuffer.

Delphi-Quellcode:

function TForm1.DoubleBuffer(DC: HDC; width, height: Integer; Action: TAction): HDC;
begin

  if Action = CreateBuffer then
  begin
    FDBufferhDCTemp := CreateCompatibleDC(DC);
    FDBufferhBMTemp := CreateCompatibleBitmap(DC, width, height);
    FDBufferhBMPrev := SelectObject(FDBufferhDCTemp, FDBufferhBMTemp);
    FDBufferXx := width;
    FDBufferYy := height;
    FDBufferUseDC := DC;
    Result := FDBufferhDCTemp;
  end
  else
  begin
    // Zeichne das Resultat ins Target Window
    BitBlt(FDBufferUseDC, width, height, FDBufferXx, FDBufferYy, FDBufferhDCTemp, 0, 0, SRCCOPY);
    // Befreie die system resourcen
    SelectObject(FDBufferhDCTemp, FDBufferhBMPrev);
    DeleteObject(FDBufferhBMTemp);
    DeleteDC(FDBufferhDCTemp);
    Result := 0;
  end;
end;

and load as example
how do use it. see PaintBox1Paint

i am not use Doublebuffer from the Form it self.

greets

[flashcoder]

Ok, but this way, Form will appear in screenshot, right?

[EWeiss]

Zitat von flashcoder:

Ok, but this way, Form will appear in screenshot, right?

why? read the example.
and then test it.

i am use D2010 so can't not use your example.. sorry

greets

[flashcoder]

Zitat von EWeiss:

Zitat von flashcoder:

Ok, but this way, Form will appear in screenshot, right?

why? read the example.
and then test it.

i am use D2010 so can't not use your example.. sorry

greets

All functions used in my example are compatible with any delphi version from 2010 until 10 Berlin

[flashcoder]

Zitat von EWeiss:

using my Doublebuffer.

Delphi-Quellcode:

function TForm1.DoubleBuffer(DC: HDC; width, height: Integer; Action: TAction): HDC;
begin

  if Action = CreateBuffer then
  begin
    FDBufferhDCTemp := CreateCompatibleDC(DC);
    FDBufferhBMTemp := CreateCompatibleBitmap(DC, width, height);
    FDBufferhBMPrev := SelectObject(FDBufferhDCTemp, FDBufferhBMTemp);
    FDBufferXx := width;
    FDBufferYy := height;
    FDBufferUseDC := DC;
    Result := FDBufferhDCTemp;
  end
  else
  begin
    // Zeichne das Resultat ins Target Window
    BitBlt(FDBufferUseDC, width, height, FDBufferXx, FDBufferYy, FDBufferhDCTemp, 0, 0, SRCCOPY);
    // Befreie die system resourcen
    SelectObject(FDBufferhDCTemp, FDBufferhBMPrev);
    DeleteObject(FDBufferhBMTemp);
    DeleteDC(FDBufferhDCTemp);
    Result := 0;
  end;
end;

and load as example
how do use it. see PaintBox1Paint

i am not use Doublebuffer from the Form it self.

greets

I not understood where use DC in my code

Delphi-Quellcode:

var
 DC: HDC;
 rc: TRect;
begin

rc := Form1.ClientRect;
DC := DoubleBuffer(Form1.Canvas.Handle, rc.Right, rc.Bottom, CreateBuffer);

// Where use this DC?

end;

and also want know if these parameters passed to this custom DoubleBuffer function are of my Form in my situation?

[EWeiss]

i can not see any resize Event in your example
after create the form in Fullscreen

so i not understand what your do.

greets

[flashcoder]

Zitat von EWeiss:

i can not see any resize Event in your example
after create the form in Fullscreen

so i not understand what your do.

greets

The Form is resized inside of TakeScreenshot procedure.
Relative to my last answer, what component (in my case) i can apply custom DubleBuffer function?
Ex: the parameters received are of my Form? could give a example about where apply this function?

[EWeiss]

Zitat von flashcoder:

Zitat von EWeiss:

i can not see any resize Event in your example
after create the form in Fullscreen

so i not understand what your do.

greets

The Form is resized inside of TakeScreenshot procedure.

yes and then?
i see a Fullscreen without drawing any and after can't resize the form.
not understand how your see the flicker.. nothing is draw to the Fullscreen Window

sorry for my bad english.

Zitat:

Ex: the parameters received are of my Form? could give a example about where apply this function?

how?
if nothing paint on the fullcreen and i can not resize it.
and you has a example see my Starwars Scrolltext, please compare

if understand your code correctly then you create a CompatibleDC here.

DesktopCanvas := TCanvas.Create; that should be
DesktopCanvas := DoubleBuffer(Form1.Canvas.Handle, rc.Right, rc.Bottom, CreateBuffer);
now draw to DesktopCanvas
..
then use
DoubleBuffer(0, 0, 0, DestroyBuffer);
which bitblt your result to the Target window and free the ressources.


greets