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 prvý stĺpec schránky a vložím ho do stĺpca 'Real'
%HI_From_Clipboard(_recFrom^Real, "")
; alebo prečítam toľko stĺpcov schránky, koľko ich obsahuje premenná _recFrom
%HI_From_Clipboard(_recFrom\HBJ, "")
ENDIF
END IMPORT_OnClick
0 komentárov