RichEdit Texteinzug

[Bernerbaer]

Wo du die Texteinzugsprozedur einfügst hängt von deiner Anwendung ab.

Es gibt verschiedene Möglichkeiten:
- im Formcreate
- in einem Menü oder Button, wenn es der Benutzer zur Laufzeit festlegen soll

Zu dem Rand:

Nein, das ist nicht der gleiche Effekt! Ein Einzug gilt für einen Paragraph, und kann somit für unterschiedliche Absätze unterschiedlich gesetzt werden. Wenn also ein Blatt mit einem fixen Rand gesetzt werden soll verwende ich jeweils folgende Prozedur:

Delphi-Quellcode:

procedure TForm1.SetMargin(RE: TRichEdit; L,R,T,B : Integer);
// Linken, Rechten, Oberen und Unteren Rand setzen
var Rect :TRect;
begin
  SendMessage(RE.Handle,EM_GETRECT,0,LongInt(@Rect));
  Rect.Left   := Rect.Left + L;
  Rect.Right  := Rect.Right - R;
  Rect.Top    := Rect.Top + T;
  Rect.Bottom := Rect.Bottom - B;
  SendMessage(RE.Handle,EM_SETRECT,0,LongInt(@Rect));
end;

[Dunkelbunt27]

Delphi erkennt die SetMargin nicht.
Muss ich irgendetwas bestimmtes einbinden oder beachten?

[Bernerbaer]

Zitat von Dunkelbunt27:

Delphi erkennt die SetMargin nicht.
Muss ich irgendetwas bestimmtes einbinden oder beachten?

füge unter private den Prozedurkopf ein, damit Delphi die Prozedur kennt:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    // hier einfügen
    procedure SetMargin(RE: TRichEdit; L,R,T,B : Integer);

die Prozedur fügst du dann irgendwo nach implementation ein

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.SetMargin(RE: TRichEdit; L,R,T,B : Integer);
// Linken, Rechten, Oberen und Unteren Rand setzen
var Rect :TRect;
begin
  SendMessage(RE.Handle,EM_GETRECT,0,LongInt(@Rect));
  Rect.Left := Rect.Left + L;
  Rect.Right := Rect.Right - R;
  Rect.Top := Rect.Top + T;
  Rect.Bottom := Rect.Bottom - B;
  SendMessage(RE.Handle,EM_SETRECT,0,LongInt(@Rect));
end;

und die Prozedur rufst du dann im Formcreate auf:
setMargin(richedit1,30,50,100,20);

[Dunkelbunt27]

Danke für die Erklärung!
Ist eine große Hilfe.

Ich melde mich im Edit wieder. =)

Edit1:
Hier tut sich mir eine weiter Frage auf:
1) Wie stell ich es an, dass bei Programmstart der Cursor (also das Pipe Zeichen) direkt auf der ersten möglichen Zeile des RichEdit landet, und nicht meine Combobox für die Schriftart markiert ist?
2) Gibt es eine möglichkeit für folgendes:
man markiert Text hält die Maus drüber und an der Stelle des Curor (Mouse.CursorPos(X,Y)) öffnet sich ein Menü mit Buttons.
Es soll keine neue Form sein und möglichst erst nach 1sec draufhalten erscheinen.
(Zusätzlich wäre es noch toll wenn das Menü eingeblendet wird und sich dann wieder ausblendet)

Ich hoffe jemand kann die Frage beantworten.

Vielen Dank,
Dunkelbunt

[Chillkröte]

zu 1) SetCursorPos
ich glaub das ist es was du möchtest...

zu 2) keine ahnung ob das möglich ist, glaube aber nicht

an deiner stelle würde ich einfach nochmal neu posten anstatt dies im edit zu machen
so bekommt man das wenigstens mit, wenn du was neues fragst

[DeddyH]

Ich glaub, statt SetCursorPos sucht er eher SetFocus oder ActiveControl. Alternativ Tab-Reihenfolge ändern.

[Chillkröte]

achso ja hast recht
beim nochmaligen lesen wirds klar
konnte mit dem pipe zeichen grad nichts anfangen^^