Beiträge von yisuylm

How much Update to wptools7 from Wptools6 ?

thanks！！！

When released WPTools 7?

After the study,I found the unit file WPIOWptools.pas, 1636 line,
Not processing the wpxData variable,
This code:

else if aTag.NameEqual ('variable') then / / Load Stream Variable
begin
/ / TODO
end
I hope that you improve this code.

for example:

procedure TForm1.Button1Click(Sender: TObject);
var
Item:TWPRTFExtraDataItem;
begin
WPRichText1.RTFVariables.Strings['abc']:='a';
WPRichText1.RTFVariables.Strings['def']:='a';
Item:=WPRichText1.RTFVariables.Find('abc');
Item.Mode:=wpxData;
Item.LoadFromFile('e:\abc.txt');
WPRichText1.SaveToFile('e:\cs.wpt');
end;

then，Reopen Application ,Use the code:

procedure TForm1.Button2Click(Sender: TObject);
var
Item:TWPRTFExtraDataItem;
begin
WPRichText1.LoadFromFile('e:\cs.wpt');
Item:=WPRichText1.RTFVariables.Find('abc',wpxData);
if Item<>nil then
begin
Item.SaveToFile('e:\a.txt');
end;
end;

the item is nil,but the variable 'def' exists。

Hi:
thanks,but i think when readonly is true,any operation of WPTools should be disable

you can set the default Editor's PRichtext.ReadOnly:=true

I hope the new version souppert Ole

when WPRichText.ReadOnly is true, the table still can be moved use Mouse,how to resolve the bug?

I dont Pay the order note,Perhaps the resone is my Paypal was Just registered,A few days Again to order

I have buy the WpTools6,now I need WpReportor，how to buy?

if the code used with Image.Canvas,the font Size is correct

Image1.Canvas.Font.Color := clRed;
Image1.Canvas.Font.Name := 'Times New Roman';
Image1.Canvas.Font.Size := 20;
Image1.Canvas.TextOut(1,2,'Delphi');

sorry,my english is poor

in the demo 《Annotation》，in the function of Paint to Draw text,i find the text is very small,why?

procedure TWPOAnnotation.Paint(toCanvas : TCanvas; BoundCanvas : TRect;
ParentTxtObj: TWPTextObj; PaintMode: TWPTextObjectPaintModes);
var x: Integer;
begin
//! OBSOLETE UpdateBoundCanvas;

toCanvas.Brush.Color := clWhite;
toCanvas.Brush.Style := bsSolid;
toCanvas.Pen.Color := clRed;
toCanvas.Pen.Width := 2;
toCanvas.Rectangle(
BoundCanvas.Left,
BoundCanvas.Top,
BoundCanvas.Right,
BoundCanvas.Bottom);
x := (BoundCanvas.Left + BoundCanvas.Right) div 2;
toCanvas.MoveTo(x, BoundCanvas.Top + 2);
toCanvas.LineTo(X+10,BoundCanvas.Bottom - 7);
toCanvas.LineTo(x, BoundCanvas.Bottom - 7);
toCanvas.MoveTo(x, BoundCanvas.Bottom - 5);
toCanvas.LineTo(x, BoundCanvas.Bottom - 4);

//My Code to Draw text
toCanvas.Font.Color := clRed;
toCanvas.Font.Name := 'Times New Roman';
toCanvas.Font.Size := 20;
toCanvas.TextOut(BoundCanvas.Left+10,BoundCanvas.Top+50,'Delphi');
end;

I'm so,i hope new version wptools solve thenproblem

when text was hided,I find then backspace can delete then hided text,How can to protect the hided Text?

I use Source store extrainfo

TWPRichText is not inherited from TMemo,so can not use as Tmemo or TRichEdit,you can use a TMemo do this and detect the Memo's changing,when find Memo changed,write memo's text to WPRichText

sorry,My English is poor

thanks

wptools Field can nesting？my means is a TextField in another TextField

sorry，my english is poor,i wish you understand me

I want to Achieve a function "Traces Reservations ",it semes like microsoft word,when you delete text,the text remain in the word document,but display use red color display, how can do this with wptools??