Как сделать линейку в Delphi

[blackstersl]

Всем привет. как сделать линейку в delphi.Хотяб подскажите что делать и какой компонент ставить? Спасибо.

[VVM]

Не совсем понятен вопрос. Что за линейку? Какими функциями она должна обладать? Или вы имеете в виду просто нарисовать?

[blackstersl]

просто нужно нарисовать линейку, так что б показывала ширину экрана(могла изменятся).

[VVM]

Как вариант - взять TImage например и на его Canvas'е нарисовать в цикле риски процедурами MoveTo и LineTo и цифры - TextOut. Изменение длины линейки = изменеию ширины TImage.

[VVM]

Ну где-то примерно так:

	
	
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  Distance = 5;
var
  X, Y, Count: integer;
begin
  Count := 0;
  Y := 60;
  with Image1.Canvas do
    for X := 0 to Image1.Width do
    begin      
      if (X = 0) or (X mod Distance = 0) then
      begin
        MoveTo(X, Y);
        LineTo(X, Height);
        if (X = 0) or (Count mod 10 = 0) then
        begin
          MoveTo(X, Y - 20);
          LineTo(X, Height);
          TextOut(X, Y - 40, IntToStr(Count div 10));
        end;
        inc(Count);        
      end;      
    end;    
end;

end.