🚀 go-pugleaf

2 godziny i działa
efekt
http://www.kssoft.cba.pl/pg1.zip
starego nie usuwam dla porównania

kod:

private:
    FBac  : HBITMAP;
    hdcMem : HDC;
    cxClient : Integer;
    cyClient : Integer;




procedure WMCREATE(var Message: TWMCreate); message WM_CREATE;
procedure WMEraseBkgnd(var Message: TWMEraseBkGnd); message WM_ERASEBKGND;
procedure WMSIZE(var Message: TWMSize); message WM_SIZE;
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;



procedure TMyPanel.WMCREATE(var Message: TWMCreate);
var dc    : HDC;
    Brush : HBrush;
    rect  : TRect;
begin
  dc := GetDC(Self.Handle) ;
  hdcMem  := CreateCompatibleDC (dc) ;
  Self.FBac:= CreateCompatibleBitmap (dc , 
2100,2500);//Self.Width,Self.Height);//Self.ClientWidth,Self.ClientHeight);
  ReleaseDC (Self.Handle, dc) ;
  SelectObject (hdcMem, FBac) ;
  rect.Left:=0;
  rect.Top:=0;
  rect.Right:=Self.Width;
  rect.Bottom:= Self.Height;
  Brush:=GetStockObject (WHITE_BRUSH);
  SelectObject (hdcMem, Brush) ;
  FillRect (hdcMem, &rect, GetStockObject (WHITE_BRUSH)) ;
end;

procedure TMyPanel.WMEraseBkgnd(var Message: TWMEraseBkGnd);
begin

end;

procedure TMyPanel.WMSIZE(var Message: TWMSize);
begin
  cxClient := TWMSize(Message).Width;
  cyClient := TWMSize(Message).Height;
end;


procedure TMyPanel.WMPaint(var Message: TWMPaint);
var i : Integer;
    DC : HDC;
    rect : TRect;
begin
  Inherited;
  DC := GetDC(Self.Handle);
    try
      rect.Left:=0;
      rect.Top:=0;
      rect.Right:=2100;
      rect.Bottom:= 2500;
      FillRect (hdcMem, &rect, GetStockObject (WHITE_BRUSH)) ;
      i:=0;
      while i<main.FKontrolki.Count do
      begin
        main.ListaPGKomponent[TKontrolka(main.FKontrolki[i]^).komponent].DATA:=TKontrolka(main.FKontrolki[i]^).data;
        main.ListaPGKomponent[TKontrolka(main.FKontrolki[i]^).komponent].narysujDC(Self.hdcMem);
        inc(i);
      end;
      BitBlt(DC,0,0,Self.ClientWidth,Self.ClientHeight,Self.hdcMem,0,0,SRCCOPY);
    finally
      ReleaseDC(Self.Handle,DC);
    end;
end;

to w zasadzie koniec.
Zmieniłem przodka TMyPanel z TPanel na TWinControl.
Efekty Miganie następuje przy obiekcie przesuwanym szybko i jest 
akceptowalne, nawet przy dużej liczbie obiektów.
Dzięki Arivald za nakierowanie.
W przyszłości jak będzie naprawde dużo obiektów rysowanych pomyślę o 
regionach.