CheckBox и его размер.

[katttes]

Пишу программу на Delphi 7. Преподаватель выставил следущее требование:
Чтобы размер CheckBox (а именно того окошка, в котором ставится галочка) был намного больше.
Подскажите пожалуйста как это сделать.

[Arigato]

Мышкой растянуть.

[katttes]

если растянуть мышкой увеличивается поле надписи. а мне нужно увеличить сам квадратик белый.

[prog.delphin]

ну есть вариант поставить на форму image а ядом label и при нажатии на них менять картинку image.
другой вариант, написать компонент типо этого.(в моем варианте компонент не принимает фокуса )

unit CheckBoxSizable;

interface

uses
  SysUtils, Classes, Controls, Graphics;

type
  TCheckBoxSizable = class(TCustomControl)
  private
    FChecked: Boolean;
    FSize: longint;
    FCaption: String;
    procedure SetCaption(const Value: String);
    procedure SetChecked(const Value: Boolean);
    procedure SetSize(const Value: longint);
    { Private declarations }
  protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X: Integer; Y: Integer); override;
    procedure Paint; override;
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Public declarations }
    
  published
    { Published declarations }
    property Checked:Boolean read FChecked write SetChecked;
    property Caption:String read FCaption write SetCaption;
    property Size:longint read FSize write SetSize;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TCheckBoxSizable]);
end;

{ TCheckBoxSizable }

constructor TCheckBoxSizable.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

end;

destructor TCheckBoxSizable.Destroy;
begin

  inherited Destroy;
end;

procedure TCheckBoxSizable.MouseDown(Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Checked:=not Checked;
 Paint;
end;

procedure TCheckBoxSizable.Paint;
var h:Longint;
begin
  inherited Paint;
  h:=Height div 2 - Size div 2;
  Canvas.Brush.Color:=clBtnFace;
  Canvas.Rectangle(0,0,Width+1,Height+1);
  Canvas.Brush.Color:=clWhite;
  Canvas.Rectangle(2,h,2+size,h+size);
  Canvas.Brush.Color:=clBtnFace;
  if Checked then
   begin
    Canvas.Pen.Width:=2;
    Canvas.MoveTo(size div 4,h+size div 3);
    canvas.LineTo(size div 2 +1,h+2*(size div 3));
    canvas.LineTo(3*(size div 4),h+size div 4);
   end;
  Canvas.TextOut(size+2,height div 2-Canvas.Font.Size div 2,Caption);
end;

procedure TCheckBoxSizable.SetCaption(const Value: String);
begin
  FCaption := Value;
  Paint;
end;

procedure TCheckBoxSizable.SetChecked(const Value: Boolean);
begin
  FChecked := Value;
  Paint;
end;

procedure TCheckBoxSizable.SetSize(const Value: longint);
begin
  FSize := Value;
  Paint;
end;

end.

[Arigato]

Вам нужно что-то типа этого?



Тогда качайте архив из вложения. Ни каких дополнительных компонент. В коде уже сами разбирайте, что от куда и куда.

[katttes]

Спасибо!!!!!!