BackgroundColor von eigener Klasse weitergeben (ParentColor)

[DeddyH]

Und nicht vergessen, die Region nach Gebrauch mit DeleteObject wieder zu entsorgen

[Waaaghboss]

Danke für die Tipps, ich habe sie umgesetzt und es sieht auc besser aus, allerdings für mich noch zu pixelig.
Ich werde wohl noch mit den Variablen rumspielen müssen.

Mein jetztiger Code:

Delphi-Quellcode:

procedure TMyPanel.SetRegion(AControl : TWinControl; X1, Y1, X2, Y2, ARadius : Integer);
var
  rgn: HRGN;
begin
  try
    rgn := CreateRoundRectRgn(X1,
                              Y1,
                              AControl.Width - X2,
                              AControl.Height - Y2,
                              ARadius,ARadius);
    SetWindowRgn(AControl.Handle, rgn, True);
  finally
     DeleteObject(rgn);
  end;
end;


procedure TMyPanel.Paint;
begin

...

  case FPanelStyle of

  ...

    psRoundRect:  begin
                    Canvas.RoundRect(Canvas.Pen.Width  div 2,
                                     Canvas.Pen.Width div 2,
                                     Width - Canvas.Pen.Width div 3,
                                     Height - Canvas.Pen.Width div 3,
                                     FPanelRounding, FPanelRounding);

                                     SetRegion(Self, 0, 0,
                                               -1, -1, FPanelRounding);
                  end;
...

end;

Könnte man sonst noch etwas optimieren?

Wenn ich jetzt noch Antialiasing haben möchte, muss ich doch auf Alternativen wie z.B. Grafic32 oder GDI+ umsteigen oder?

[DeddyH]

Wenn Du nicht umständlich selbst rechnen willst, ist das zu empfehlen. Für GDI+ gibt es aber von Mitov eine schöne Kapselung namens IGDI+.

[frankyboy1974]

hallo,

also den Thread-Titel finde ich nun wieder etwas missverständlich

Zitat:

BackgroundColor von eigener Klasse weitergeben (ParentColor)

mfg

[Waaaghboss]

Danke DeddyH, ich werde es mir mal anschauen.

@frankyboy: Wie soll ich den Thread nennen?

Grüße Waaaghboss

[HolgerX]

Zitat von DeddyH:

Und nicht vergessen, die Region nach Gebrauch mit DeleteObject wieder zu entsorgen

Leider falsch!!!!!!!

https://msdn.microsoft.com/de-de/lib...(v=vs.85).aspx

Zitat:

After a successful call to SetWindowRgn, the system owns the region specified by the region handle hRgn. The system does not make a copy of the region. Thus, you should not make any further function calls with this region handle. In particular, do not delete this region handle. The system deletes the region handle when it no longer needed.