Как определить шрифт при копировании через буфер обмена?

← →
Oleg) (2004-04-23 11:59) [0]

В новом проекте на форме лишь один мемо кнопка
по нажатию кнопки выполняется:

Memo1.Lines.Clear;
Memo1.Lines.Add("Проверка");
Memo1.SelectAll;
Memo1.Font.Name:="Arial CYR";
Memo1.Font.Charset:=204;
Memo1.Font.size:=20;
Memo1.CopyToClipboard;

Вставляю в Excel, а там абракадабра (ïðîâåðêà), и подобрать шрифт не удается -(

← →
Oleg) (2004-04-23 11:59) [0]

← →
Курдль © (2004-04-23 12:01) [1]

Почитайте про форматы буфера обмена. Кажись, на Королевстве Делфи были статьи. Например, при копировании всего одной ячейки Ёкселя, происходит загрузка более 30 форматов клипборда. Где-то там есть и фонты :)

← →
Курдль © (2004-04-23 12:01) [1]

← →
Oleg) (2004-04-23 12:04) [2]

Вот выяснил: если предварительно перед нажатием кнопки перейти на русский шрифт в виндах то все ОК

← →
Oleg) (2004-04-23 12:04) [2]

Вот выяснил: если предварительно перед нажатием кнопки перейти на русский шрифт в виндах то все ОК

← →
clickmaker © (2004-04-23 12:07) [3]

procedure SetClipboardText(const S: string);
var
wsz: PWideChar;
dwSize: Cardinal;
hData: Cardinal;
begin
if (Win32Platform = VER_PLATFORM_WIN32_NT) then begin

dwSize := (Length(S)+1) * SizeOf(WideChar);
hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, dwSize);
wsz := PWideChar(GlobalLock(hData));
StringToWideChar(S, wsz, Length(S)+1);
GlobalUnlock(hData);
Clipboard.SetAsHandle(CF_UNICODETEXT, hData);
end else
Clipboard.AsText := S;
end;

← →
Oleg) (2004-04-23 12:26) [4]

Как определить шрифт при копировании через буфер обмена? Найти похожие ветки