first, please excuse my bad English.
I have follow Question: I want to change the Arrow in lsnone, the Source is working, but nothing changed.
Please can you help me!
Thank you!
- Code: Select all
procedure TMainForm.sBitBtn1Click(Sender: TObject);
var arrow : tgraphlink;
first,last:tlinkbeginendstyle;
begin
first:=lsnone;
last:=lsnone;
try
arrow:=tgraphlink.Create(simplegraph);
arrow.BeginStyle:=first;
arrow.EndStyle:=last;
SimpleGraph.CommandMode := cmInsertLink;
finally
arrow.Free;
end;
end.