Entwickler-Ecke :: Thema anzeigen - Toolbutton Down wie in MS Word (Fett, Kursiv, Unterstrichen)

MisterBum83 - Di 19.07.05 11:09
Titel: Toolbutton Down wie in MS Word (Fett, Kursiv, Unterstrichen)

Hallo,
ich möchte 3 Toolbuttons machen wie in Word für Fett, Kursiv und Unterstrichen.
Nun meine Frage: Wie schaffe ich es, das die Button eingedrückt sind und in diesem Zustand bleiben, bis der Benutzer wieder drauf klickt?

Vielen Dank für eure Hilfe...
MisterBum

jasocul - Di 19.07.05 11:39

Du musst die Eigenschaft AllowAllUp auf true setzen für die Button-Gruppe.
Und der Style muss tbsCheck sein.

Theoretisch sollte es dann funktionieren.

MisterBum - Di 19.07.05 13:58

Leider funzt das nicht.
Hier mein Quellcode:

Delphi-Quelltext

1:
2:
3:
4:

if ToolButton20.Down then
    CurrText.Style := CurrText.Style + [fsBold]
  else
    CurrText.Style := CurrText.Style - [fsBold];

Die Eigenschaft AllAlowUp ist auf true und bei Style ist tbsCheck eingestellt. Wenn beim OnClick-Erreignis der obige Quellcode aufgerufen wird, passiert nix. Weder der Text Fett gemacht, noch der Button ist eingedrückt...

Moderiert von matze: Code- durch Delphi-Tags ersetzt.

jasocul - Di 19.07.05 14:22

Wenn ich dir jetzt schreibe, dass das bei mir funktioniert, nützt dir das wohl auch nicht viel.
Ich habe das sogar jetzt getestet. AllowAllUp muss nichtmal gesetzt sein.

Setzt du die Button evtl. noch im Programm irgendwie?

MisterBum - Di 19.07.05 14:36

Jetzt weiss ich woran es liegt. Ich habe den Befehl

Delphi-Quelltext

1:	{$R WinXPStyle.res}

eingebunden, damit der WindowsXP-Stil zum vorschein kommt. Ohne das funzt es. Was könnte ich da machen, wenn ich den XP-Stil behalten will?

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!