Hallo an alle,
ich habe mal wieder ne Frage. Unzwar habe ich im meinem Programm jetzt lauter Speedbuttons, und einer ist zum beispiel dazu da damit wenn man auf in klikt sich die Schriftfarbe im Programm ändert.
Nun hat ja der Speedbutton noch funktionen wei ResDown, ResUp und ResPoint. Wenn der Speedbutton Down ist er halt down (runtergedrückt) wenn er up ist ist er halt UP.
Dazu hat das programm noch volgende Zeilen:
Delphi-Quellcode:
procedure TFormUserTune.InitSettings;
begin
sbColorGrid.Down := MetaIni.ReadBool('Service', 'Scan Researches', True);
end;
und die Progzedur OnClick sieht von diesem Button so aus:
Delphi-Quellcode:
procedure TFormUserTune.sbColorGridClick(Sender: TObject);
begin
MetaIni.WriteBool('Service', 'Scan Researches', sbColorGrid.Down);
gvColorGrid := sbColorGrid.Down;
end;
Also wie gesagt ist der button down ist die Schrift im Programm (Researches) farbig, ist der Butten Up also im normalen zustand ist die Schrift im Programm ganz normal Schwarz.
Nun möchte ich das alles als Label-Button machen, sprich ich nehme ein label mach es als button, das kann ich ja, aber ich will jetzt folgendes: statt dieses Down(bei Speebutton) effektes soll die Schrftfarbe des Labels schwarz sein und im normalen zustand ist die Schrift des Labels grau.
Wie mach ich sowas??
