JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
 | | Sujet: Contenu du presse-papier Dim 8 Avr 2018 - 21:38 | |
| C'est très rustique, juste pour avoir une idée de la nature du contenu du presse-papier. Je sais que Klaus a fait quelque chose de bien plus élaboré dans KGF.dll, mais ici c'est juste pour les données utilisables en Panoramic, savoir s'il est vide, s'il contient du texte ou une image: - Code:
-
SUB Clipdata()
' Nature du contenu du presse-papier
' Résultat dans natclip% =0 vide, =1 image, =2 texte
DIM_LOCAL sz%,ft$: ft$ = "C:\TEMP\Ftmp.bmp"
IF VARIABLE("natclip%") = 0 THEN DIM natclip%
MEMO 998: HIDE 998
IMAGE 999
CLIPBOARD_PASTE 998: CLIPBOARD_PASTE 999
natclip% = 1: ' image, a priori
IF COUNT(998)>0
natclip% = 2: ' contenu texte
ELSE
FILE_SAVE 999,ft$
FILEBIN_OPEN_READ 1,ft$: sz% = FILEBIN_SIZE(1): FILEBIN_CLOSE 1
FILE_DELETE ft$: IF sz% = 0 THEN natclip% = 0: ' clipboard vide
END_IF
DELETE 998: DELETE 999
END_SUB | |
|
Calendrier