david
778b05bf9f
- Mustangpeak Common Library - 1.7.0 - EasyListview - 1.7.0 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.Mustangpeak@2 60b41242-d4b9-2247-b156-4ccd40706241
76 lines
2.2 KiB
ObjectPascal
76 lines
2.2 KiB
ObjectPascal
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, EasyListview, ImgList, ExtCtrls,
|
|
EasyScrollFrame, StdCtrls, MPCommonObjects;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
EasyScrollButton2: TEasyScrollButton;
|
|
EasyScrollButton3: TEasyScrollButton;
|
|
EasyScrollButton1: TEasyScrollButton;
|
|
EasyScrollButton4: TEasyScrollButton;
|
|
CheckBoxThemed: TCheckBox;
|
|
CheckBoxFlat: TCheckBox;
|
|
CheckBoxAutoScroll: TCheckBox;
|
|
CheckBoxEnabled: TCheckBox;
|
|
procedure EasyScrollButton2Click(Sender: TObject);
|
|
procedure CheckBoxThemedClick(Sender: TObject);
|
|
procedure CheckBoxFlatClick(Sender: TObject);
|
|
procedure CheckBoxAutoScrollClick(Sender: TObject);
|
|
procedure CheckBoxEnabledClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TForm1.EasyScrollButton2Click(Sender: TObject);
|
|
begin
|
|
beep;
|
|
end;
|
|
|
|
procedure TForm1.CheckBoxThemedClick(Sender: TObject);
|
|
begin
|
|
EasyScrollButton1.Themed := CheckBoxThemed.Checked;
|
|
EasyScrollButton2.Themed := CheckBoxThemed.Checked;
|
|
EasyScrollButton3.Themed := CheckBoxThemed.Checked;
|
|
EasyScrollButton4.Themed := CheckBoxThemed.Checked;
|
|
end;
|
|
|
|
procedure TForm1.CheckBoxFlatClick(Sender: TObject);
|
|
begin
|
|
EasyScrollButton1.Flat := CheckBoxFlat.Checked;
|
|
EasyScrollButton2.Flat := CheckBoxFlat.Checked;
|
|
EasyScrollButton3.Flat := CheckBoxFlat.Checked;
|
|
EasyScrollButton4.Flat := CheckBoxFlat.Checked;
|
|
end;
|
|
|
|
procedure TForm1.CheckBoxAutoScrollClick(Sender: TObject);
|
|
begin
|
|
EasyScrollButton1.AutoScroll := CheckBoxAutoScroll.Checked;
|
|
EasyScrollButton2.AutoScroll := CheckBoxAutoScroll.Checked;
|
|
EasyScrollButton3.AutoScroll := CheckBoxAutoScroll.Checked;
|
|
EasyScrollButton4.AutoScroll := CheckBoxAutoScroll.Checked;
|
|
end;
|
|
|
|
procedure TForm1.CheckBoxEnabledClick(Sender: TObject);
|
|
begin
|
|
EasyScrollButton1.Enabled := CheckBoxEnabled.Checked;
|
|
EasyScrollButton2.Enabled := CheckBoxEnabled.Checked;
|
|
EasyScrollButton3.Enabled := CheckBoxEnabled.Checked;
|
|
EasyScrollButton4.Enabled := CheckBoxEnabled.Checked;
|
|
end;
|
|
|
|
end.
|