ENTRY IMPORT_OnClick
INT _rows
INT _cols
; zistím si rozmer štruktúry v schránke
_rows := %HI_Get_Clipboard_Rows()
_cols := %HI_Get_Clipboard_Cols()
IF _rows=0 | _cols=0 THEN
; prázdna schránka
ELSE
; prečítam obsah schránky
%HI_From_Clipboard(_recFrom^Real, "")
ENDIF
END IMPORT_OnClick
Pridať komentár