/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Parmeter tilføje procedure
Fra : Monie Jacobsen


Dato : 18-07-02 06:13

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




 
 
Klaus Petersen (18-07-2002)
Kommentar
Fra : Klaus Petersen


Dato : 18-07-02 09:00

Det ville hjælpe meget hvis du nu fortalte hvad der var i vejen med den....



Uffe Kousgaard (18-07-2002)
Kommentar
Fra : Uffe Kousgaard


Dato : 18-07-02 09:12

"Monie Jacobsen" <monie@tdcadsl.dk> wrote in message
news:3d364e43$0$80835$edfadb0f@dspool01.news.tele.dk...
> iy:=(Screen.Height div 2)-iy;

Fjern "screen.". Så skulle det gerne hjælpe en del.


Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste