gateofdenied
-
Постов
3 -
Зарегистрирован
-
Посещение
-
Победитель дней
1
Активность репутации
-
gateofdenied получил реакцию от Pax Beach в Данные из ClipBoard с форматированием
В общем разобрался.
Вдруг кому пригодится
procedure TForm1.Button1Click(Sender: TObject);
var
buf: array[0..60] of Char;
n: Integer;
fmt: Word;
H: THandle;
P: PAnsiChar;
S:UnicodeString;
begin
for n := 0 to Clipboard.FormatCount - 1 do
begin
fmt := Clipboard.Formats[n];
Clipboard.Open;
if GetclipboardFormatName(fmt, buf, Pred(Sizeof(buf))) <> 0 then
begin
begin
H := Clipboard.GetAsHandle(fmt);
P := GlobalLock(H);
S:=UnicodeString(P);
Memo1.Lines.Add(P);
GlobalUnlock(H);
end;
end;
Clipboard.Close;
end;
end;
-
gateofdenied получил реакцию от dnekrasov в Данные из ClipBoard с форматированием
В общем разобрался.
Вдруг кому пригодится
procedure TForm1.Button1Click(Sender: TObject);
var
buf: array[0..60] of Char;
n: Integer;
fmt: Word;
H: THandle;
P: PAnsiChar;
S:UnicodeString;
begin
for n := 0 to Clipboard.FormatCount - 1 do
begin
fmt := Clipboard.Formats[n];
Clipboard.Open;
if GetclipboardFormatName(fmt, buf, Pred(Sizeof(buf))) <> 0 then
begin
begin
H := Clipboard.GetAsHandle(fmt);
P := GlobalLock(H);
S:=UnicodeString(P);
Memo1.Lines.Add(P);
GlobalUnlock(H);
end;
end;
Clipboard.Close;
end;
end;
-
gateofdenied получил реакцию от Barbanel в Данные из ClipBoard с форматированием
В общем разобрался.
Вдруг кому пригодится
procedure TForm1.Button1Click(Sender: TObject);
var
buf: array[0..60] of Char;
n: Integer;
fmt: Word;
H: THandle;
P: PAnsiChar;
S:UnicodeString;
begin
for n := 0 to Clipboard.FormatCount - 1 do
begin
fmt := Clipboard.Formats[n];
Clipboard.Open;
if GetclipboardFormatName(fmt, buf, Pred(Sizeof(buf))) <> 0 then
begin
begin
H := Clipboard.GetAsHandle(fmt);
P := GlobalLock(H);
S:=UnicodeString(P);
Memo1.Lines.Add(P);
GlobalUnlock(H);
end;
end;
Clipboard.Close;
end;
end;
-
gateofdenied получил реакцию от Ingalime в Данные из ClipBoard с форматированием
В стандартной поставке delphi Fire monkey нет RichEdit.
Платное решение например https://tmssoftware.com/site/tmsfmxpack.asp?s=fmxricheditor#features