AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi reNamed: Runde Buttons werden nicht sauber angezeigt!
Thema durchsuchen
Ansicht
Themen-Optionen

reNamed: Runde Buttons werden nicht sauber angezeigt!

Ein Thema von DelphiUser7 · begonnen am 29. Okt 2003
Antwort Antwort
DelphiUser7

Registriert seit: 27. Aug 2003
179 Beiträge
 
#1

reNamed: Runde Buttons werden nicht sauber angezeigt!

  Alt 29. Okt 2003, 15:01
Hi,
ich hab da SourceCode, mit dem ich runde Buttons erstellen kann; da gibt's nur ein Problem: es werden weiterhin Linien angezeigt, die auf eine (ehemals) 4-eckige Form hindeuten, und zwar unten und rechts => schwarz, oben und links => weiß;
Ich hab da so ne Theorie, dass es sich bei diesen Linien um die Randlinien der ursprünglichen Buttons handelt; wenn man sich nämlich einen Button in Delphi genauer ansieht, dann merkt man, dass genau diese Linien an den eben beschriebenen Seiten auftauchen;
ich würde diese Linien aber gern entfernen; ausserdem tauchen immer noch dieses gestrichelte Viereck auf, sobald ich auf den runden Button klicke, was natürlich bei dem runden Button etwas komisch aussieht; hat jemand eine Idee, wie ich dieses Viereck entweder auch noch rund machen, oder noch besser ganz entfernen kann?;
Hinweis: Mir ist noch aufgefallen, dass bei den normalen Windowsbuttons der gleiche Effekt auftritt; deshalb könnte es natürlich schwer werden, die (gestrichelten) Linien ganz zu 'entfernen'; aber rund machen sollte eigentlich möglich sein, oder? Die Frage ist nur: wie?
Hier noch der Quellcode, mit dem ich die Buttons rund gemacht habe (ihr könnt ihn ja auch mal für eure Zwecke verwenden ):
Delphi-Quellcode:
var HR: HRgn;
    n: array[0..3] of TPoint;
begin
  with Form1 do begin // für euch: statt Form1 einfach den Namen der Komponente eingeben,
  //die ihr rundmachen wollt wollt;
   n[0]:=Point(Width div 2,1);
   n[1]:=Point(1, Height div 2);
   n[2]:=Point(Width div 2, Height);
   n[3]:=Point(Width, Height div 2);
   HR := CreateEllipticRgn(0, 0, Width, Height);
   SetWindowRgn(Handle, HR, true);
  end;
 skNormal.Checked := false;
 skAchteck.Checked := false;
end;
Gruss
DelphiUser7
Shell...wieso musste ausgerechnet Shell Teil einer Programmiersprache werden...wieso nicht Esso, Aral oder Dea;

MfG
DelphiUser7
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:19 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