Panels

[ConTaCt]

hi


ich hab hier mal etwas programmiert wo man panels braucht!

meine frage ist nur, da ich diese rund haben will!

Wie macht man Panels rund????

[Sunlight7]

Moin!

CreateRoundRectRGN und dann SetWindowRGN, mehr dazu: SetWindowRGN

[Aike]

Hah, das ist ja witzig. Sowas hab ich schon lange gesucht und dann mit einem TShape realisiert. Wenn ich mir die Lösung ansehe mit CreateRoundRectRGN ist das ja viel cooler.

Ein Beispiel mit dem Panel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a:hrgn;
begin
  Form1.Color:=clOlive; //Farbig, damit man den Unterschied sieht
  Panel1.Color:=clTeal;
  a:=CreateRoundRectRgn(0,0,90,90,20,20);
  setwindowrgn(panel1.Handle,a,true);
end;

[turboPASCAL]

Bitte das Freigeben der Region(en) nicht vergessen da es Speicher belegt! DeleteObject

Delphi-Quellcode:

var rgn: hrgn;

procedure TForm1.FormCreate(Sender: TObject);
begin
  rgn := CreateRoundRectRgn(0,0, panel1.Width, panel1.Height, 20, 20);
  SetWindowRgn(panel1.Handle, rgn, TRUE);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeleteObject(rgn);
end;

[Hawkeye219]

Hallo Matti,

Zitat:

Bitte das Freigeben der Region(en) nicht vergessen

normalerweise ja, in diesem Fall aber nicht:

Zitat von Microsoft PSDK:

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.

Gruß Hawkeye

[turboPASCAL]

Ich habe feststellen müssen das dem nicht immer so ist.
Im meiner D6 Hilfe steht das nicht im MSDN aber schon.

Allerdings find ich es sauberer so... Hatt Du wat Created denn mach's och wieder free.

[Hawkeye219]

Hast du den Rückgabewert von DeleteObject schon einmal überprüft? Raymond Chen zitiert in einer Antwort ebenfalls das PSDK - und der sollte es eigentlich wissen.

Gruß Hawkeye

[Sunlight7]

Zitat von turboPASCAL:

Ich habe feststellen müssen das dem nicht immer so ist.
Im meiner D6 Hilfe steht das nicht im MSDN aber schon.

Allerdings find ich es sauberer so... Hatt Du wat Created denn mach's och wieder free.

Das steht in meiner D2, D5 und C++ Hilfe so drin, das man die Finger weg tun soll.
Nur in der D1 Hilfe stehts nicht, wenn ich bloß wüste warum

Ich habe mal die Erfahrung gemacht, das sich das Programm nach einiger Zeit aufhängte, wenn man regelmäßig die Regions ändert und diese löscht...

[Aike]

Echt witzig, über was für abgefahrene Dinge ihr diskutiert bei solch simplen Fragen

[turboPASCAL]

Zitat von Aike:

Echt witzig, über was für abgefahrene Dinge ihr diskutiert bei solch simplen Fragen

Äh, weil es bei vielen "modernen" Programieren nicht mehr in den Sinn kommt ein Programm
so zu Bauen das es sein reservierten Speicher für ... wieder frei gibt oder die Bitmaps
für ein ... alle 2 min neu von der Festplatte zu laden.

Nein, das gehört schon dazu.

Zitat von Sunlight7:

... Ich habe mal die Erfahrung gemacht, das sich das Programm nach einiger Zeit aufhängte, wenn man regelmäßig die Regions ändert und diese löscht...

Japp, so ist es auch mir ergangen. Ich lösche die Region nur noch zum Programende.
Das liegt aber, so glaube ich am Betriebssystem.