Форум: "Начинающим";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];

Вниз

как рисовать на Tpanel?   Найти похожие ветки 

← →
zxc   (2005-11-12 23:44) [0]

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

---

← →
Zeqfreed ©   (2005-11-12 23:52) [1]

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;

---

← →
Delphi_is_cool ©   (2005-11-12 23:57) [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;

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

---

← →
zxc   (2005-11-13 00:51) [3]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.015 c