swCHIP 1991 January/swCHIP_95-1.bin/chip/tvgenpas/demo3pas.exe/SDF/CALLDLG.SDF

Text File | 1994-11-28 | 289b | 12 lines

procedure %_APPTYPE%.Call%_DLGFUNC(_DLGNUM)%;
var Result : Word;
@IF!EQUAL %_DLGDATAFLAG(_DLGNUM)% 0
    D      : T%_DLGFUNC(_DLGNUM)%Data;
@ENDIF
begin
@IFEQUAL %_DLGDATAFLAG(_DLGNUM)% 0
  Result:=%_DLGFUNC(_DLGNUM)%;
  @ELSE
  Result:=%_DLGFUNC(_DLGNUM)%(D,False);
@ENDIF
end;