Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
18. Okt 2014
Hallo zusammen,
Herzlichen Dank!
Die Lösung fünktioniert perfekt und beide Zeilen werden ausgegeben.
Auch im eigentlichen Kompo-Code funktionert es jetzt perfekt.
Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
17. Okt 2014
Hallo zusammen,
Bedingt, denn jetzt weiss ich, dass etwas bei mir nicht stimmt.
Vielleicht ist noch jemand mit Win XP und D2007 hier, welcher das testen könnte.
Eigentlich dachte ich der Paint-Procedure direkt, wenn man eine Komponente erstellt.
Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
17. Okt 2014
Hallo zusammen,
Ist mir noch gar nicht aufgefallen.
Aber das würde das 2. Rect betreffen und nicht das 1.
Und trotz des Fehlers zeigt er nur den Text im 2. Rect an.
Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
17. Okt 2014
Hallo zusammen,
kann bitte irgendjemand einmal diesen Codeschnipsel in einer Paintmethode ausprobieren?
procedure TNewComponent.Paint;
var
lRect: TRect;
lLogFont: LOGFONT;
begin