Hallo,
ich habe mit
Code
procedure TTextForm.WPRichText1LeaveRTFDataBlock(Sender: TObject;
FromBlock, ToBlock: TWPRTFDataBlock; var Allowed: Boolean);
begin
Allowed := ToBlock.Kind <> wpIsHeader;
end;
das Tippen im Header verboten.
Nun aber gibt es im Header auch Textobjekte die teilweise bearbeitbar sein sollen, eingefügt werden sie im OnGetSpecialText
Code
if Kind = wpIsHeader then
begin
aName := 'HEADER#' + inttostr(pagenr);
SpecialText := WPRichText1.HeaderFooter.Get(wpIsHeader, wpraNamed, aName);
if SpecialText.Empty then
begin
X := 100;
Y := 100;
b := 500;
h := 500;
RTFData := nil;
TxtObj := WPRichText1.TextObjects.InsertTextBox(b, h, RTFData,
SpecialText.FirstPar);
TxtObj.PositionMode := wpotPage;
TxtObj.RelX := X;
TxtObj.Rely := Y - WPRichText1.Header.MarginHeader;
TxtObj.Frame := [wpframeFine];
if RTFData <> nil then
begin
//befüllen
StreamText.Position := 0;
RTFData.FirstPar.LoadFromStream(StreamText, 'WPT');
end;
.....
Alles anzeigen
Gibt es einen Weg die Bearbeitung darin zu erlauben, das Tippen im Header (da erscheinen ja oben die beiden gepunkteten Linien) aber zu unterbinden?
Ciao
Stefan