| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Оптимизация

JustI ©   (2008-10-31 15:36:00) 

Реализовал возможность вставки ихзображения из 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;


---

clickmaker   (2008-10-31 16:05:00) [1]

> А как это ты умудрился ассигновать битмап из не-битмап-класса
> ?

да это-то как раз нормально, там есть такая возможность.

---

Сергей М.   (2008-10-31 15:43:00) [2]

> Bitmap.Assign(Clipboard);


А как это ты умудрился ассигновать битмап из не-битмап-класса ?


> Сомневаюсь в необходимости блоков кода для открытия и закрытия
> Clipboard


А зря.

---

Наверх