🚀 go-pugleaf

W jaki sposób  naprawde szybko pokazac tapete (np. duza bitmape jako tlo
formatki TForm typu fsMDIForm). Rysowanie po Canvasie,  sposoby z BitBlt
nawet przy pomocy ponizszego kodu  odpadaja jako zbyt wolne.

BeginPaint(ClientHandle, PS);
KontPam:=CreateCompatibleDC(PS.HDC);
SelectObject(KontPam, FPatternGlyph.Handle);
y := 0;
while y < ClientHeight do begin
   x := 0;
   while x < ClientWidth do begin
     BitBlt(PS.HDC, x, y, FPatternGlyph.Width,
                 FPatternGlyph.Height, KontPam, 0, 0, cmSrcCopy);
     x := x + FPatternGlyph.Width;
   end;
    y := y + FPatternGlyph.Height;
end;
(*
    StretchBlt(PS.HDC, 0, 0, ClientWidth, ClientHeight, KontPam,
    0, 0, FPatternGlyph.Width, FPatternGlyph.Height, cmSrcCopy);
*)
EndPaint(ClientHandle, PS);
DeleteDC(KontPam);

Niewiedziec czemu ta powolnosc objawia  się szczegolnie w sieci, mimo iz
Bitmapa ladowana jest z resurce'a (ten sam EXE) do Glypha na samym poczatku
a dopiero potem jest odrysowywana wielokrotnie.

_______________________
Paweł Kępka
pwlkp@priv.onet.pl