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

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

как рисовать на Tpanel?

zxc ©   (2005-11-12 23:44:00) 

как рисовать на Tpanel?

---

zxc   (2005-11-13 00:51:00) [1]

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

---

Delphi_is_cool   (2005-11-12 23:57:00) [2]

Попробуй так:

procedure TForm1.FormPaint(Sender: TObject);
var
 Icon: TIcon;
 Canvas: TCanvas;
begin
 Icon := TIcon.Create;
 Canvas := TCanvas.Create;
 Canvas.Handle := GetDC(Panel1.Handle);
 Icon.Handle := ExtractIcon(0, PChar(Application.ExeName), 0);
 Canvas.Draw(0, 0, Icon);
 ReleaseDC(Panel1.Handle, Canvas.Handle);
 Canvas.Free;
 Icon.Free;
end;

Должна нарисоватся иконка исполняемого файла.

---

Zeqfreed   (2005-11-12 23:52:00) [3]

zxc   (12.11.05 23:44)

Например, так:
procedure TForm1.Button1Click(Sender: TObject);
var
 dc : HDC;
 cnv : TCanvas;
begin
 dc := GetWindowDC(Panel1.Handle);
 if (dc <> 0) then begin
  cnv := TCanvas.Create;
  try
   cnv.Handle := dc;
   cnv.Ellipse(0, 0, 10, 10);
  finally
   cnv.Free;
  end;

  ReleaseDC(Panel1.Handle, dc);
 end;
end;

---

Наверх