Hej
Du kunne vel ikke hjælpe mig med, at få denne procedure til at virke?
Har selv arbejde meget på at få det til at virke, men uden held.
Er kørt fast!
Desse parmeter ønsker jeg indsat i proceduren!
X:=22.085; Tegn enheder hend
Yop:=6.212; Tegn enheder op
Yned:=-1.798 Tegn enheder ned
procedure TForm1.Button2Click(Sender: TObject);
var
X,Yop,Yned : double;
ix,iy:integer;
begin
X:=22.085; { Tegn f.eks. 22.085 cm hend }
Yop:=6.212; { Tegn f.eks. 6.212 cm op }
Yned:=-1.798; { Tegn f.eks. -1.798 cm ned }
ix:= Round(x);
iy:= Round(Yop);
With Form1.Image1 do
begin
iy:=(Screen.Height div 2)-iy;
With Canvas do
begin
MoveTo(0,Height div 2);
LineTo(ix,iy);
end;
end;
end;
Bruger af Delphi 6.
På forhånden mange tak!
Med venlig hilsen
Monie Jacobsen
monie@tdcadsl.dk
|