Советы по Delphi
Встроенные форматы буфера обмена
Где бы мне раздобыть список встроенных в win95 форматов буфера обмена и соответствующие им номера?
Вы можете получить эту информацию с помощью следующей процедуры:
| procedure TForm1.BtnShowFormatsClick(Sender: TObject);Varbuf: Array [0..60] of Char;n : Integer;fmt: Word;name: String[30];beginMemFormats.Clear;for n := 0 to Clipboard.FormatCount-1 do beginfmt := Clipboard.Formats[n];If GetclipboardFormatName( fmt, buf, Pred(Sizeof(buf))) <> 0 ThenMemFormats.Lines.Add( StrPas( buf ))Else BeginCase fmt of1: 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';Elsename := 'неизвестный формат';End;MemFormats.Lines.Add( name );end;end;end; |
- Peter Below [000966]
