🚀 go-pugleaf

W dniu 2012-02-07 08:15, konsul41@wp.pl pisze:
> zrobiłem tak
> var Brush : TBRUSH;
> c: TCanvas;
> begin
> c := TCanvas.Create();
> c.Handle := DC;
> c.Brush:=TBrush.Create;
> try
> c.Brush.Color:=:=CreateSolidBrush(TPGKomponentData(FPGKomponentData^).kolor);
>
> c.TextOut(TPGKomponentData(FPGKomponentData^).rozmiar.Left,
> TPGKomponentData(FPGKomponentData^).rozmiar.Top,'Test');
> c.Rectangle(TPGKomponentData(FPGKomponentData^).rozmiar.Left,
> TPGKomponentData(FPGKomponentData^).rozmiar.Top,
> TPGKomponentData(FPGKomponentData^).rozmiar.Width,
> TPGKomponentData(FPGKomponentData^).rozmiar.Height);
> finally
> c.Handle := 0;
> c.Free();
> end;
>
> I nadal nie ma koloru.
> Czy przypadkiem FBackBuffer nie jest czarnobiałe, ponieważ czarny jest
> dobrze malowany, biały także.
> Inne kolory to ta siatka się zmienia.
> http://www.kssoft.cba.pl/kolory.PNG

Możliwe że się gdzieś pomyliłem... Czarno-biała bitmapa jest tworzona 
automatycznie z każdym MemoryDC, i może to bruździ...

Po pierwsze AllocateBackBuffer() i ReleaseBackBuffer() powinno być takie:

dodaj zmienną
   FOldBbBitmap: HBITMAP;

function TMyPanel.AllocateBackBuffer(refDC: HDC; width, height: 
integer): HDC;
begin
   Result := CreateCompatibleDC(refDC);

   if (width > FBackBufferWidth)
   or (height > FBackBufferHeight)
   or (FBackBuffer = 0)
   then
   begin
     FBackBufferWidth:= width ;
     FBackBufferHeight:= height ;

     if FBackBuffer <> 0 then DeleteObject(FBackBuffer);

     FBackBuffer := CreateCompatibleBitmap(
               Result, FBackBufferWidth, FBackBufferHeight);
   end;

   FOldBbBitmap := SelectObject(Result, FBackBuffer);
end;

procedure TMyPanel.ReleaseBackBuffer(bbDC: HDC; freeBitmap: boolean = 
false);
begin
   if FBackBuffer <> 0 then
   begin
     SelectObject(bbDC, FOldBbBitmap);
     FOldBbBitmap := 0;
     DeleteDC(bbDC);
     FOldBbBitmap := 0;
     if freeBitmap then
     begin
       DeleteObject(FBackBuffer);
       FBackBuffer := 0;
     end;
   end;
end;

przetestuj czy pomoże.



A potem spróbuj takiej zmiany: w WMPaint zamień
   ReleaseBackBuffer(bbDC, false);
na
   ReleaseBackBuffer(bbDC, True);

To spowoduje że bitmapa bufora będzie odtwarzana przy każdym paincie, 
efektywnie wyłączając optymalizację.


A przy okazji, osobiście ja rzadko używam do tego WinAPI bezpośrednio. 
Za durzo z tym kłopotów. Najczęściej tworzę bufor jako Graphics.TBitmap, 
z HandleType := bmDDB (aka  Device Dependent Bitmap).
Wtedy VCL sam dba o utworzenie Canvasa i powiązanego z nim Memory DC, i 
nie trzeba się ręcznie bawić. DC takiej bitmapy pobierasz poprzez:

   bitmap.Canvas.Handle

Tyle że z pluginami z DLL to raczej nie będzie dobrze działać...

-- 
Arivald