Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 821

•  TDictionary Custom Sort  5 923

•  Fast Watermark Sources  5 728

•  3D Designer  8 514

•  Sik Screen Capture  6 069

•  Patch Maker  6 505

•  Айболит (remote control)  6 496

•  ListBox Drag & Drop  5 357

•  Доска для игры Реверси  95 060

•  Графические эффекты  6 703

•  Рисование по маске  5 837

•  Перетаскивание изображений  4 883

•  Canvas Drawing  5 253

•  Рисование Луны  4 976

•  Поворот изображения  4 523

•  Рисование стержней  3 205

•  Paint on Shape  2 447

•  Генератор кроссвордов  3 323

•  Головоломка Paletto  2 631

•  Теорема Монжа об окружностях  3 425

•  Пазл Numbrix  2 258

•  Заборы и коммивояжеры  2 919

•  Игра HIP  1 887

•  Игра Go (Го)  1 805

•  Симулятор лифта  2 142

•  Программа укладки плитки  1 869

•  Генератор лабиринта  2 311

•  Проверка числового ввода  1 996

•  HEX View  2 307

•  Физический маятник  1 965

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как создать TrackBar, в котором вместо широкой белой полосы была бы тонкая линия




Попадают Гейтс, Клинтон и Гор в рай. Бог их и спрашивает:
- Ну во что вы верите? Клинтон:
- Ну я верю в демократию и т.д. Бог:
- Молодец, садись по мою правую руку, а ты Гор во что веришь? Гор:
- Ну я верю в то что есть проблема глобального потепления и экологии. Бог:
- Правильно веришь, садись по левую мою руку. Ну а во что веришь ты, Гейтс? Гейтс:
- Хе-хе, мне кажется я верю что вы сидите на моем месте.

В примере создается компонент, унаследованный от TTrackbar который переопределяет метод CreateParams и убират флаг TBS_ENABLESELRANGE из Style. Константа TBS_ENABLESELRANGE обьявленна в модуле CommCtrl.


unit Unit1;

interface

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

type
  TMyTrackBar = class(TTrackBar)
    procedure CreateParams(var Params: TCreateParams); override;
  end;

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

var
  Form1: TForm1;
  MyTrackbar : TMyTrackbar;

implementation
{$R *.DFM}

procedure TMyTrackBar.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and not TBS_ENABLESELRANGE;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyTrackBar := TMyTrackbar.Create(Form1);
  MyTrackbar.Parent := Form1;
  MyTrackbar.Left := 100;
  MyTrackbar.Top := 100;
  MyTrackbar.Width := 150;
  MyTrackbar.Height := 45;
  MyTrackBar.Visible := true;
end;

end.








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте