Делфи графика

[shadezx]

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

Сообщение от shadezx

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

[Serge_Bliznykov]

можно линиями и окружностями прямо на канве.
см. методы TCanvas

[Serge_Bliznykov]

например, начало может выглядеть таким образом:
pop_screen.jpg

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation
var x, y, step : integer;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  x:=50;
  y:=10;
  step := 40;
end;

procedure TForm1.FormPaint(Sender: TObject);
var i : integer;
begin
   Canvas.Pen.Color := clGray;     // цвет линий
   Canvas.Pen.Width := 1;

   i := x;
   while i<= x+step*7 do begin
     Canvas.MoveTo(i,y);
     Canvas.LineTo(i,y+step*9);
     Inc(i,step);
   end;

   i := y;
   while i<= y+step*9 do begin
     Canvas.MoveTo(x, i);
     Canvas.LineTo(x+step*7, i);
     Inc(i,step);
   end;

   Canvas.Pen.Color := clBlack;     // цвет линий
   Canvas.Pen.Width := 4;
   Canvas.Brush.Style := bsClear;

   Canvas.Arc(x,y+step*2,x+step*2,y+step*4, x+step,y+step*2, x, y+step*3 );
   Canvas.MoveTo(x, y+step*3);
   Canvas.LineTo(x+step*2, y+step*3);
   Canvas.MoveTo(x+step, y+step*2);
   Canvas.LineTo(x+step*2, y+step*2);
   Canvas.LineTo(x+step, y+step);
   Canvas.LineTo(x+step*2, y+step);
   Canvas.LineTo(x+step*2, y);
   Canvas.LineTo(x+step*3, y+step);
   Canvas.LineTo(x+step*3, y);
   Canvas.LineTo(x+step*4, y+step);
   Canvas.LineTo(x+step*4, y);
   Canvas.LineTo(x+step*5, y+step);
   Canvas.LineTo(x+step*5, y+step*7);
   Canvas.LineTo(x+step*5, y+step*7);
   Canvas.MoveTo(x+step*5, y+step*6);
   Canvas.LineTo(x+step*7, y+step*8);
   Canvas.LineTo(x+step*6, y+step*8);
   Canvas.LineTo(x+step*6, y+step*9);
   Canvas.LineTo(x+step*5, y+step*8);
   Canvas.LineTo(x+step*2, y+step*8);

   {глаз}
   Canvas.Ellipse(x+step*2,y+step*2,x+step*3,y+step*3);

   {зрачок}
   Canvas.Brush.Style := bsSolid;
   Canvas.Brush.Color := clBlack;
   Canvas.Ellipse(x+7+step*2,y+(step div 2)+step*2,x+17+step*2,y+8+(step div 2)+step*2);


end;

end.

[phomm]

Я бы обратил внимание на программу Lines отсюда http://programmersforum.ru/showthread.php?t=214863
С её помощью можно нарисовать нужное, и при необходимости скопировать в свой код команды рисования. Этакий редактор операций канваса.