Untitled

mail@pastecode.io avatar
unknown
plain_text
2 years ago
724 B
1
Indexable
Never
%BEGIN main, idct_grid21 _CtlInfo
  win_main_eh(_Win,e_Control(idct_grid21,_CtrlType,_CtrlWin,_CtlInfo),0):-!,
  (
  	Grid21Object = win_GetCtlHandle(_Win,idct_grid21),
  	Value21 = win_GetText(Grid21Object),
  	Grid20Object = win_GetCtlHandle(_Win,idct_grid20),
  	Value20 = win_GetText(Grid20Object),
  	Value20 = "", win_SetText(Grid20Object, Value21), win_SetText(Grid21Object, "")
  );
  (	
  	Grid21Object = win_GetCtlHandle(_Win,idct_grid21),
  	Value21 = win_GetText(Grid21Object),
  	Grid22Object = win_GetCtlHandle(_Win,idct_grid22),
  	Value22 = win_GetText(Grid22Object),
  	Value22 = "", win_SetText(Grid22Object, Value21), win_SetText(Grid21Object, "")
  ),
	!.
%END main, idct_grid21 _CtlInfo