Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SevenOfNine,
8. Nov 2009
Super, es funktioniert.
Nochmals schönen Dank für deine Hilfe!
seven
procedure TForm1.LMDMemo_TextPackageMarginRowPaint(Sender: TObject;
Canvas: TCanvas; aRect: TRect; firstChar, length: Integer);
var
s: AnsiString;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SevenOfNine,
8. Nov 2009
Hallo Himitsu,
danke für die schnelle Antwort!
Ich werde das gleich mal ausprobieren.
Aber nocheinmal eine kurze Frage:
Was mache ich denn, wenn ich innerhalb der Routine die Routine length() verwenden möchte. length wird ja hier als Integer der MarginRowPaint-Routine übergeben und Delphi beschwert sich, wenn ich length() verwende?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SevenOfNine,
8. Nov 2009
Hallo zusammen,
vielleicht kann mir hier jemand ja weiterhelfen ...
Ich möchte in dem Margin-Bereich eines LMDMemo die Zeilennummer ausgeben. Es soll im Prinzip so aussehen, wie in einem Sourcecode-Editor.
Zum "malen" im Margin-Bereich nutze ich OnMarginRowPaint-Event.
procedure TForm1.LMDMemo_TextPackageMarginRowPaint(Sender: TObject;
Canvas: TCanvas; aRect: TRect; firstChar,...