Форум: "Начинающим";
Текущий архив: 2008.12.14;
Скачать: [xml.tar.bz2];
ВнизОптимизация Найти похожие ветки
← →
JustI (2008-10-31 15:36) [0]Реализовал возможность вставки ихзображения из Clipboard. Вот код:
procedure TFC.PasteBitmapFromBuffer;
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
if not Clipboard.HasFormat(CF_BITMAP) then
Exit;
Clipboard.Open;
try
Bitmap.Assign(Clipboard);
finally
Clipboard.Close;
end;
TFCImage(Self).SetLocalBitmap(Bitmap, const_default_LocalBitmapName);
finally
Bitmap.Free;
end;
end;
Сомневаюсь в необходимости блоков кода для открытия и закрытия Clipboard, или же правильнее будет обойтись без них.:
Clipboard.Open;
try
Bitmap.Assign(Clipboard);
finally
Clipboard.Close;
end;
← →
Сергей М. © (2008-10-31 15:43) [1]
> Bitmap.Assign(Clipboard);
А как это ты умудрился ассигновать битмап из не-битмап-класса ?
> Сомневаюсь в необходимости блоков кода для открытия и закрытия
> Clipboard
А зря.
← →
clickmaker © (2008-10-31 16:05) [2]> А как это ты умудрился ассигновать битмап из не-битмап-класса
> ?
да это-то как раз нормально, там есть такая возможность.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.12.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c