Tweet
hi kennt jemand eine möglichkeit, buttons rund oder in anderen formen darzustellen?
-
-
Schau mal unter http://www.torry.net vorbei und such mal nach TIAever Button -
danke sehComment
-
Schau mal unter www.mira-soft.de vorbei da gibts eine Komponente TMRButton und TButtonGroup von mir. Da ist jede belibige Form als Bild möglich. Der Gültigkeitsbeeich wird durch eine S/W - Maske bestimmtComment
-
danke mike, die buttons sind sehr schön, aber kannst du mir verraten, wie ich sie einbindn soll? delphi will unbedingt die datei mrbutton.pas, die .dcu nimmt er nichComment
-
Hallo,
ich habe folgenden Quelltext gefunden, um Buttons rund zu machen:
<pre>
procedure ButtonStyle(aFrm: TForm);
var
aRgn: hRgn;
tmp : TComponent;
i : integer;
begin
for i:= aFrm.ComponentCount-1 downto 0 do
begin
if (aFrmcomponents[i] is TButton) then
begin
tmp:=aFrm.components[i];
with TButton(tmp) do
begin
aRgn:= createRoundRectRgn(0, 0, width, height, 20, 20);
setWindowRgn(handle, aRgn, true);
end;
end;
end;
end;</pre>
Nun muß man den Button nur noch anmalen oder mit einem Bitmap füllen.<br><br>Gruß Alex.<br>PS: Komponenten installiert man, in dem man das Menü: Component->install Component wählt und die entsprechenden Optionen auswähltComment
Comment