Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
13. Aug 2007
Mit folgender Zuweisung klappt es:
procedure TBaseToolForm.SpinEdit1Change(Sender: TObject);
begin
if Assigned(FFont) then
FFont.Size := SpinEdit1.Value;
if Assigned(FItem) then
FItem.Font := FFont;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
13. Aug 2007
Hi shima,
danke für den Tipp. Mit dem Fontnamen klappt das schon mal, nur nicht mit Size und Style. Mach ich da noch was falsch?
procedure TBaseToolForm.JvFontComboBox1Change(Sender: TObject); // klappt
begin
if Assigned(FFont) then
FFont.Name := JvFontCombobox1.FontName;
if Assigned(FItem) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
13. Aug 2007
Hi Leute,
ich hab folgendes Problem. Ich schreibe eine eigene Komponente, die von TCustomControl abgeleitet ist. Über den vorhandenen Canvas zeichne ich meinen notwendigen Kram und setze den Text mittels DrawText in den Canvas. Jetzt sollen zur Laufzeit die Eigenschaften meiner Compo (Farbe, Schrift usw.) änderbar sein. Nutze ich die hauseigene Property Font des TCustomControl, so wirkt sich...