Hi,
Is there anyone who can help me with the following script. The VS-error wants a BEGIN instead of RUN.
It is a trialscript and doesn't have any meaning but it shows me what is possible.
thanks in advance,
Dirlep
Here it comes :
procedure MyDialog;
FUNCTION Define_MyDialog : INTEGER;
VAR
id: LONGINT;
BEGIN
id := CreateLayout('puntjes zetten',TRUE,'Doe maar', 'effe wachten');
CreateStaticText(id,4,'Geef X1:',-1);
CreateEditReal(id,5,4,0,10);
CreateStaticText(id,6,'Geef y1:',-1);
CreateEditReal(id,7,4,0,10);
SetFirstLayoutItem(id,4);
SetRightItem(id,4,5,0,0);
SetRightItem(id,5,6,0,0);
SetRightItem(id,6,7,0,0);
{ perform final control alignment and adjustment }
AlignItemEdge(id,4,1,1001,0);
AlignItemEdge(id,8,1,1001,0);
SetHelpString(1,'Voert het gevraagde uit.');
SetHelpString(2,'stop en sluit.');
SetHelpString(4,'beetje uitleg nodig?');
SetHelpString(5,'amaai.');
Define_MyDialog := id;
END;
PROCEDURE Drive_MyDialog(VAR item:LONGINT; data:LONGINT);
VAR
x,y,y1,x1:REAL;
id: LONGINT;
result : LONGINT;
BEGIN
DSelectAll;
GetPt(x, y); {bepaald het invoegpunt}
SetOrigin (x,y);
locus(x,y);
PushAttrs;
PenFore(255);
PenBack(0);
PenPat(2);
PenSize(14);
PenPat(2);
Marker(0, 0.125000, 15);
NameClass('beton sier');
Poly(1,0 , 0,1 ,0,12 ,x1,y1, 1,0 , 4,0 , 1,0 );
PopAttrs;
SetOriginAbsolute(0,0);
dselectall;
result := RunLayoutDialog(id,Drive_MyDialog);
END;
RUN(MyDialog);