doppelt unterstreichen

[G M]

Hi!

Ich möchte wenn ein bestimmter ComboBox-Eintrag ausgewählt wird die schrift eines Labels doppelt unterstreichen.

das mit der ComboBox habe ich schon

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if ComboBox1.ItemIndex = 1 then
   //hier weiß ich nicht weiter (ich stelle mir das so vor: Label1.Font ...)
end;

[glkgereon]

ich glaub die funktion unterstützt delphi nur in form von:

Delphi-Quellcode:

canvas.Moveto(label1.left,label1.top+label1.height);
canvas.lineto((label1.left+label1.width,label1.height); :-D

müsste aber variabel genug gemacht allgemein einsetzbar sein
ich find so abwegig ist das garnicht...
hier noch mal komplett

Delphi-Quellcode:

canvas.Moveto(label1.left,label1.top+label1.height);
canvas.lineto((label1.left+label1.width,label1.top+label1.height); 
canvas.Moveto(label1.left,5+label1.top+label1.height);
canvas.lineto((label1.left+label1.width,5+label1.top+label1.height);

[G M]

Danke
habs noch nicht probiert, aber werds mir merken (hab was anderes gefunden)

(hatte in der letzten zeit keine zeit, darum so spät)

[toms]

Zitat:

(hab was anderes gefunden)

Was denn?

[G M]

das mit dem doppelt unterstreichen hätte ich für ein Musik(=Unterrichtsfach)-Programm gebraucht
bei der Subkontra Oktave werden die Noten doppelt unterstrichen dargestellt
A(doppelt unterstrichen) wäre dann Subkontra A

jetzt steht bei mir einfach 'Subkontra A'

Ich hoffe ihr könnt mir folgen :gruebel:

[glkgereon]

ähh, was is ne subkontra???
nee, besser nicht erklären... :-D
aber ansonsten gehts doch