ArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArray
Statistics: Posted by senso — 13 Feb 2019, 21:05 Statistics: Posted by lytz1 — 13 Feb 2019, 20:48
will be corrected in the v187
]]>
]]>
Statistics: Posted by lytz1 — 13 Feb 2019, 18:36
Statistics: Posted by lytz1 — 13 Feb 2019, 17:46
Statistics: Posted by 23fx23 — 13 Feb 2019, 17:21

Statistics: Posted by lytz1 — 13 Feb 2019, 17:03
Statistics: Posted by lytz1 — 13 Feb 2019, 16:48
Statistics: Posted by lytz1 — 11 Feb 2019, 19:01
Statistics: Posted by senso — 11 Feb 2019, 16:09
CODE:
//////////////////////////// Extract usine app path with refresh button ///////////////////////// // declaration var refresh,textOut : Tparameter; var position : integer; var pathstr : string; var is_windows : Tparameter;// initialisation : create parametersprocedure init; begin refresh := CreateParam('get_path',ptButton); SetIsOutPut(refresh,false); textOut := CreateParam('path',ptTextField); SetIsInPut(textOut,false); is_windows := CreateParam('is_windows',ptSwitch); SetIsInPut(is_windows,false); end; // Callbackprocedure callBack(n:integer);begin pathstr := GetApplicationPath(); setStringValue(textout,pathstr); position := pos('Win',pathstr); if(position>0) then begin setValue(is_windows,1); end;end;Statistics: Posted by 23fx23 — 11 Feb 2019, 02:22
Statistics: Posted by lytz1 — 11 Feb 2019, 00:50
Statistics: Posted by senso — 13 Feb 2019, 21:05
Statistics: Posted by lytz1 — 13 Feb 2019, 20:48
Statistics: Posted by lytz1 — 13 Feb 2019, 18:36
Statistics: Posted by lytz1 — 13 Feb 2019, 17:46
Statistics: Posted by 23fx23 — 13 Feb 2019, 17:21

Statistics: Posted by lytz1 — 13 Feb 2019, 17:03
Statistics: Posted by lytz1 — 13 Feb 2019, 16:48
Statistics: Posted by lytz1 — 11 Feb 2019, 19:01
Statistics: Posted by senso — 11 Feb 2019, 16:09
CODE:
//////////////////////////// Extract usine app path with refresh button ///////////////////////// // declaration var refresh,textOut : Tparameter; var position : integer; var pathstr : string; var is_windows : Tparameter;// initialisation : create parametersprocedure init; begin refresh := CreateParam('get_path',ptButton); SetIsOutPut(refresh,false); textOut := CreateParam('path',ptTextField); SetIsInPut(textOut,false); is_windows := CreateParam('is_windows',ptSwitch); SetIsInPut(is_windows,false); end; // Callbackprocedure callBack(n:integer);begin pathstr := GetApplicationPath(); setStringValue(textout,pathstr); position := pos('Win',pathstr); if(position>0) then begin setValue(is_windows,1); end;end;Statistics: Posted by 23fx23 — 11 Feb 2019, 02:22
Statistics: Posted by lytz1 — 11 Feb 2019, 00:50