Графика делфи

[shadezx]

Добрый вечер!Нужно сделать что бы при нажатие левой кнопки мыши рисовалась линия(как карандаш в Paint)только можно было выбрать тип линии, и ее Width. Кто может, набросайте пару примеров, хотя бы процедуры и MouseDown

[phomm]

Изучите стандартную демку дельфи
Путь_к_дельфи\Demos\Doc\Graphex\
Её можно и скачать в сети

[Stilet]

Такой набросочек подходит?:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ColorBox;

type

  { TForm1 }

  TForm1 = class(TForm)
    ColorBox1: TColorBox;
    ComboBox1: TComboBox;
    procedure ColorBox1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=1 to 100 do ComboBox1.Items.Append(IntToStr(i));
 ComboBox1.Style:=csDropDownList;
 Tag:=0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Canvas.Pen.Width:=ComboBox1.ItemIndex+1;
end;

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
  Canvas.Pen.Color:=ColorBox1.Color;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Tag:=1;
  Canvas.MoveTo(x,y);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if tag<>0 then
  Canvas.LineTo(x,y);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  tag:=0;
end;

end.

[shadezx]

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

Такой набросочек подходит?:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ColorBox;

type

  { TForm1 }

  TForm1 = class(TForm)
    ColorBox1: TColorBox;
    ComboBox1: TComboBox;
    procedure ColorBox1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=1 to 100 do ComboBox1.Items.Append(IntToStr(i));
 ComboBox1.Style:=csDropDownList;
 Tag:=0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Canvas.Pen.Width:=ComboBox1.ItemIndex+1;
end;

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
  Canvas.Pen.Color:=ColorBox1.Color;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Tag:=1;
  Canvas.MoveTo(x,y);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if tag<>0 then
  Canvas.LineTo(x,y);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  tag:=0;
end;

end.

да все работает, благодарю) но вот только черный цвет работает а остальные нет.

[Rin]

но вот только черный цвет работает а остальные нет.

А в delphi нет других цветов для мышки, вот такой вот недостаток имеет делфи.
Шучу,есть другие цвета. Просто кто-то ColorBox на форму кинул, а событие не выставил.