Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Form mit einem Rahmen umranden... (https://www.delphipraxis.net/23175-form-mit-einem-rahmen-umranden.html)

Helmi 30. Mai 2004 09:43


Form mit einem Rahmen umranden...
 
Hallo,

ich habe folgendes Problem:

Ich erzeuge eine Form und gib mir die Form einer Sprechblase.
Das mache ich mit folgendem Code:

Code:
      h1 := CreateRoundRectRgn(0, 0, Width, Height - C, C, C);
      h2 := CreatePolygonRgn(Points, 4, WINDING);

      CombineRgn(h2, h1, h2, rgn_or);

      SetWindowRgn(Handle, h2, True);
Ich möchte aber diese Form mit einem schwarzen (oder beliebigfarbenen) Rahmen
umranden.

Kann mir jemand helfen wie so was geht?

mfg
Helmi

alcaeus 30. Mai 2004 09:46

Re: Form mit einem Rahmen umranden...
 
Meinst du so wie etwa hier auf dem Screenshot?
Wenn ja, dann lies dir das hier durch, die neue Version ist fast schon fertig...

SirThornberry 30. Mai 2004 09:51

Re: Form mit einem Rahmen umranden...
 
schau dir mal "Canvas.Ellipse" an. Das dann im OnPaint ausführen und du solltest deinen schwarzen rahmen haben

Helmi 30. Mai 2004 09:59

Re: Form mit einem Rahmen umranden...
 
aber das geht nicht so einfach

da die Form ja aus einem "RoundRectRgn" und einem
"PolygonRgn" entsteht.

Ich müsste ja beides Umranden

moritz 30. Mai 2004 10:06

Re: Form mit einem Rahmen umranden...
 
Canvas hat soweit ich weiß auch ein RoundRectRgn...


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:17 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz