SimpleGraph. How to put the text in parallel link?
help, please))))
The place to exchange ideas and experiences on Delphi programming
http://forum.delphiarea.com/
Kambiz wrote:What do you mean? An image would be very helpful.
Kambiz wrote:I guess you don't use Caption property of the links, right?
procedure TForm1.SimpleGraph1ObjectInitInstance(Graph: TSimpleGraph; {вставка объекта}
GraphObject: TGraphObject);
begin
if GraphObject is TGraphLink then {участок}
with TGraphLink(GraphObject) do
begin
pen.color:=clred;
pen.width:=3;
text:='';
if (source<>nil) and (target<>nil)then text:=inttostr(source.id)+'-'+inttostr(target.id);
text:=text+'0 0 0 0 0';
hint:='';
font.color:=clblue;
font.Size:=10;
end;
. . . . . .
endKambiz wrote:Have you downloaded the component from delphiarea, or somewhere else?
Maybe I didn't get what you mean. Please, describe the problem. If you don't know English, describe it in your own language. Somehow I'll figure it out.
Kambiz wrote:This never happens on my machine.
What are versions of your Delphi and Windows? Please send me the .sg file of your graph too,
Kambiz wrote:Try to change the font.Maybe the font you are using does not support rotation.