doing this for my merging and counting in v4.22. But the workontext doesn't work anymore. How do I use the Activetext or whatever, instead?
Code
procedure Tvariableform.MergeDoc;
var i : Integer;
begin
WPRichText1.LockScreen;
for i:=0 to WPRichText1.HeaderFooter.Count-1 do begin
WPRichText1.HeaderFooter.Items[i].[b]WorkOnText [/b]:= TRUE;
WPRichText1.MergeText;
WPRichText1.Refresh;
end;
WPRichText1.WorkOnText := wpBody;
WPRichText1.MergeText;
WPRichText1.ReformatAll;
WPRichText1.UnLockScreen(TRUE);
WPRichText1.Refresh;
end;
Alles anzeigen