Hallo Leute,
habe ein Projekt, bei dem ich ziemlich viel mit der Paraformat2-Struktur arbeite (Einrücken, Aufzählung etc..)
Nun wollte ich das Projekt um eine Textausrichtung erweitern. Dazu habe ich meinem Muster wieder eine Paraformat-Struktur angelegt, die Ausrichtung gesetzt und diese Struktur dem Editor übergeben. Es gibt keine Fehlermeldung, der Code hat halt einfach nur keine Auswirkung.
Ich finde den Fehler nicht. Die Vorgehensweise habe ich im ganzen Projekt - und da klappts dann auch immer
Delphi-Quellcode:
var
fmt: TParaformat2;
begin
ZeroMemory(@fmt, SizeOf(TParaFormat2));
fmt.cbSize := SizeOf(TParaFormat2);
fmt.dwMask:=PFM_ALIGNMENT;
Editor.Perform(EM_GETPARAFORMAT, 0, lParam(@fmt));
if (Align = 'left') then
begin
fmt.wAlignment:=PFA_LEFT;
end else if (Align = 'center') then
begin
fmt.wAlignment:=PFA_CENTER;
end else if (Align = 'right') then
begin
fmt.wAlignment:=PFA_RIGHT;
end else if (Align = 'justify') then
begin
fmt.wAlignment:=PFA_JUSTIFY;
end;
Editor.Perform(EM_SETPARAFORMAT, 0, lParam(@fmt));
Ich hoffe, ihr könnt mir helfen. Achso: Ja, ich weiß, dass es einen Aligment-Typ gibt. Ich habe bei dem Erstellen dieses Codes nicht darauf geachtet. Ginge einfacher.
Danke im Voraus