I found this example-code at
http://www.nemetschek.net/support/custom/vscript/example.php
to choose an Hatch,
but I have no idea to get it combined the my ChHatch-Script above and get two times this window to choose the old Hatch and then the new one.
Can someone explain me how to combine (these) scripts and get the VARs from one to another?
PROCEDURE ImagePopTest;
VAR
gHatchList:dynarray[] of STRING;
gHatchCount,gDlogID,gDlogResult : INTEGER;
gHatchChoice : STRING;
gOKdlog : BOOLEAN;
FUNCTION BuildHatchList:INTEGER;
VAR temp_i,temp_cnt:INTEGER;
BEGIN
temp_cnt := 0;
FOR temp_i := 1 TO NameNum DO IF (getobject(namelist(temp_i)) <> NIL) & (gettype(getobject(namelist(temp_i))) = 66) THEN BEGIN
temp_cnt := temp_cnt +1;
allocate gHatchList[1..temp_cnt];
gHatchList[temp_cnt] := namelist(temp_i);
END;
BuildHatchList := temp_cnt;
END;
FUNCTION Define_Dialog: INTEGER;
VAR dialogID,i : INTEGER;
BEGIN
dialogID := CreateLayout('Hatch Picker Dialog',True,'OK','Cancel'); CreateStaticText(dialogID,4,'Select the Hatch:',-1);
CreateControl(dialogID,5,10,'',0);
SetFirstLayoutItem(dialogID,4);
SetBelowItem(dialogID,4,5,0,0);
Define_Dialog := dialogID;
END;
PROCEDURE Drive_Dialog(VAR item:LONGINT; data:LONGINT);
VAR temp_i,i:INTEGER; temp_s:STRING; result:BOOLEAN;
BEGIN
CASE item OF
SetupDialogC: FOR i := 1 TO gHatchCount DO temp_i := InsertImagePopupObjectItem(gDlogID,5,gHatchList[i]); 1:gHatchChoice := GetImagePopupObject(gDlogID,5,getImagePopupSelectedItem(gDlogID,5));
END;
{of CASE}
END;
BEGIN {MAIN}
gHatchCount := BuildHatchList;
gDlogID := Define_Dialog;
gOKdlog := VerifyLayout(gDlogID);
IF gOKdlog THEN gDlogResult := RunLayoutDialog(gDlogID,Drive_Dialog);
IF (gDlogResult = 2) THEN alrtdialog('You canceled') ELSE alrtdialog(concat('You chose ',gHatchChoice));
END;Run(ImagePopTest);
Thank You!