Советы по Delphi




Встроенные форматы буфера обмена


Где бы мне раздобыть список встроенных в win95 форматов буфера обмена и соответствующие им номера?

Вы можете получить эту информацию с помощью следующей процедуры:

    procedure TForm1.BtnShowFormatsClick(Sender: TObject); Var buf: Array [0..60] of Char; n  : Integer; fmt: Word; name: String[30]; begin MemFormats.Clear; for n := 0 to Clipboard.FormatCount-1 do begin fmt := Clipboard.Formats[n]; If GetclipboardFormatName( fmt, buf, Pred(Sizeof(buf))) <> 0 Then MemFormats.Lines.Add( StrPas( buf )) Else Begin Case fmt of 1: name := 'CF_TEXT'; 2: name := 'CF_BITMAP'; 3: name := 'CF_METAFILEPICT'; 4: name := 'CF_SYLK'; 5: name := 'CF_DIF'; 6: name := 'CF_TIFF'; 7: name := 'CF_OEMTEXT'; 8: name := 'CF_DIB'; 9: name := 'CF_PALETTE'; 10: name := 'CF_PENDATA'; 11: name := 'CF_RIFF'; 12: name := 'CF_WAVE'; 13: name := 'CF_UNICODETEXT'; 14: name := 'CF_ENHMETAFILE'; 15: name := 'CF_HDROP (Win 95)'; 16: name := 'CF_LOCALE (Win 95)'; 17: name := 'CF_MAX (Win 95)'; $0080: name := 'CF_OWNERDISPLAY'; $0081: name := 'CF_DSPTEXT'; $0082: name := 'CF_DSPBITMAP'; $0083: name := 'CF_DSPMETAFILEPICT'; $008E: name := 'CF_DSPENHMETAFILE'; $0200..$02FF: name := 'частный формат'; $0300..$03FF: name := 'Объект GDI'; Else name := 'неизвестный формат'; End; MemFormats.Lines.Add( name ); end; end; end;

- Peter Below [000966]




Содержание  Назад  Вперед