Label overlaps text

[palmeira]

Sometimes a label overlaps the text just after it. I am sending a document file by e-mail.

[proxy3d]

You tell about SRV version 2.4 or 2.5?

[palmeira]

I am using SRV 2.4.1. If you want me to see if things are different with SRV 2.5, please send me instructions on how to download and install it.

[proxy3d]

I have sent you the link on email

[palmeira]

Thanks for the link. I have just installed SRV 2.5, and the problem is still present.

[proxy3d]

Send please the document and PrintScreen to me on email.

[palmeira]

The files have been sent.

[mwilems1]

I am having a similar problem. After installing SRVControls and SRV2.4.1 using source code you sent 11/7, I can successfully insert and display a subclass of SRVLabel. This is the only one I have tested. I can set the width of the object when I create it, but if I try to change that width, it will temporarily overwrite the text behind it and then when the DBSRichViewEdit refreshes or realigns (not sure which causes this) the label goes back to the original size.

[proxy3d]

Code: Select all

SRVLabel. AutoSize: = False.

For SRVLabel there is property AutoSize. By default it is TRUE.

PS: do not use in SRVLabel raster fonts. Raster fonts have problems with scaling in Windows. To use vector fonts.

[mwilems1]

Just using Ariel 12pt. Actually don't know if that is raster or vector and so frustrated after trying to get component insert/move/resize working is SRV for the last three days with only one day left before a meeting.

I tried inserting a subclass of TSRVLabel using:

Code: Select all

DBSRVEdit.InsertControl(myLabel);

But it did not insert. I went back to:

Code: Select all

DBSRVEdit.RichViewEdit.InsertControl('myLabelName',myLabel,rvvaAbsMiddle);

But then setting AutoResize := true does nothing. I can accomplish this by using:

Code: Select all

DBSRVEdit.RichViewEdit.SetCurrentItemExtraIntProperty(rvepResizable,1,true);

But I'm still having problems with the

Code: Select all

DBSRVEdit.RichViewEdit.BeginOleDrag.

Am I just doing this SRVControl insert all wrong?

[proxy3d]

See example: Demos\Controls\InsertControls\

Code for insert in SRV:

Code: Select all

procedure TFInsertControls.ToolButton5Click(Sender: TObject);
var
     c : TSRVLabel;
begin
  c := TSRVLabel.Create(nil);
  c.Parent := SRichViewEdit1.RichViewEdit;
  c.Name := 'SRVLabel';
  c.Caption := 'SRVLabel';
  c.AutoResize := FALSE; // <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< AutoResize
  SRichViewEdit1.RichViewEdit.InsertControl('teste', c, rvvaMiddle);
end;

SRVLabel has the same properties as usual TLabel and works similarly.

[proxy3d]

Corrected RVLabel and SRVLabel will be uploaded in next update.