🚀 go-pugleaf

Użytkownik <konsul41@wp.pl> napisał w wiadomości 
news:4f2bac75$0$26687$65785112@news.neostrada.pl...
> Pytanie uzupełniające czy będzie taki problem jak nie będę kożystał 
> bezpośrednio z TCanvas a będę używał GDI do ustawiania styli?
Sam sobie odpowiem

Procedura rysująca w interfejsie:


var Brush : HBRUSH;
begin
  Brush:=GetStockObject(GRAY_BRUSH);
  SelectObject(DC,Brush);
  Rectangle(DC,TPGKomponentData(FPGKomponentData^).rozmiar.Left,
               TPGKomponentData(FPGKomponentData^).rozmiar.Top,
               TPGKomponentData(FPGKomponentData^).rozmiar.Width,
               TPGKomponentData(FPGKomponentData^).rozmiar.Height);
end;


Procedura rysująca panelu


procedure TMyPanel.WMPaint(var Message: TWMPaint);
var i : Integer;
    DC : HDC;
begin
  Inherited;
  DC := GetDC(Self.Handle);
    try
      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(DC);
          inc(i);
        end;
    finally
      ReleaseDC(Self.Handle,DC);
    end;
end;


Działa zgodnie z założeniami.


To działa więc nie dociekam dlaczego tamto nie działało.