How elimitnate flicker of Form on resizing?

[flashcoder]

Zitat von Zacherl:

You might be able to reduce flickering by using some kind of double-buffering.

DoubleBuffered := True; not works.

[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?