[audiofeel]

Dodakaedr,
Shkutu,
да нее, создал я его этот чек бокс та...

читать дальше »

function NoStartIcon: Boolean;
begin
Result := not CheckBoxGetChecked(NoIconsChk);
end;

а как сделать при нажатии на него , кнопку ButtonSetEnabled(GroupBrowseBtn, False) ????
на чек боксы вообще нет процедур, только функции, то есть

читать дальше »

function DesktopIcon: Boolean;
begin
Result := CheckBoxGetChecked(DesktopChk);
end;

function DopPO: Boolean;
begin
Result := CheckBoxGetChecked(DopPOChk);
end;

function NoStartIcon: Boolean;
begin
Result := not CheckBoxGetChecked(NoIconsChk);
end;

я на него процедуру клика делал - ноль эмоций (может не правильно ??)
--------------------------------------
понимаю что качать не охота, поэтому вот часть скрипта с чек боксами

читать дальше »

type
TCusChk = record
Base, Mid, Top: TPanel;
Labl: TLabel;
IsChecked, IsEnabled: Boolean;
end;
procedure CheckBoxEnter(var CheckBox:TCusChk);
begin
if CheckBox.IsChecked then
begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:=$AAAAAA;
CheckBox.Labl.Font.Color:={#Color1};
end else begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:={#Color1};
end;
end;

procedure CheckBoxLeave(var CheckBox:TCusChk);
begin
if CheckBox.IsChecked then
begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color1};
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:=$AAAAAA;
end;
end;

procedure CheckBoxDown(var CheckBox:TCusChk);
begin
if CheckBox.IsChecked then
begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color1};
CheckBox.Labl.Font.Color:=$AAAAAA;
end
end;

procedure CheckBoxUp(var CheckBox:TCusChk);
begin
if CheckBox.IsChecked then
begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:=$AAAAAA;
CheckBox.Labl.Font.Color:={#Color1};
end else begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:={#Color1};
end;
end;

procedure CheckBoxClick(var CheckBox:TCusChk);
begin
CheckBox.IsChecked:= not CheckBox.IsChecked;
end;

procedure CheckBoxOnEnter(Sender:TObject);
begin
case Sender of
NoIconsChk.Top: CheckBoxEnter(NoIconsChk);
DesktopChk.Top: CheckBoxEnter(DesktopChk);
DopPOChk.Top: CheckBoxEnter(DopPOChk);
end;
end;

procedure CheckBoxOnLeave(Sender:TObject);
begin
case Sender of
NoIconsChk.Top: CheckBoxLeave(NoIconsChk);
DesktopChk.Top: CheckBoxLeave(DesktopChk);
DopPOChk.Top: CheckBoxLeave(DopPOChk);
end;
end;

procedure CheckBoxOnDown(Sender:TObject; CheckBox:TMouseButton; Shift:TShiftState; X, Y:Integer);
begin
case Sender of
NoIconsChk.Top: CheckBoxDown(NoIconsChk);
DesktopChk.Top: CheckBoxDown(DesktopChk);
DopPOChk.Top: CheckBoxDown(DopPOChk);
end;
end;

procedure CheckBoxOnClick(Sender:TObject);
begin
case Sender of
NoIconsChk.Top: CheckBoxClick(NoIconsChk);
DesktopChk.Top: CheckBoxClick(DesktopChk);
DopPOChk.Top: CheckBoxClick(DopPOChk);
end;
end;

procedure CheckBoxOnUp(Sender:TObject; CheckBox:TMouseButton; Shift:TShiftState; X, Y:Integer);
begin
case Sender of
NoIconsChk.Top: CheckBoxUp(NoIconsChk);
DesktopChk.Top: CheckBoxUp(DesktopChk);
DopPOChk.Top: CheckBoxUp(DopPOChk);
end;
end;

procedure CheckBoxSetText(var CheckBox: TCusChk; hText: String);
begin
CheckBox.Top.Caption:=hText;
end;

procedure CheckBoxSetVisibility(var CheckBox: TCusChk; hVisible: Boolean);
begin
CheckBox.Base.Visible:=hVisible;
CheckBox.Labl.Visible:=hVisible;
end;

procedure CheckBoxSetEnabled(var CheckBox: TCusChk; hEnabled: Boolean);
begin
CheckBox.Base.Enabled:=hEnabled;
CheckBox.IsEnabled:=hEnabled;
if hEnabled then
begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:=$AAAAAA;
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
if CheckBox.IsEnabled then
begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:=$AAAAAA;
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:=$AAAAAA;
end;
end;
end;

procedure CheckBoxSetChecked(var CheckBox: TCusChk; hChecked: Boolean);
begin
CheckBox.IsChecked:= hChecked;
if CheckBox.IsEnabled then
begin
if hChecked then
begin
CheckBox.Base.Color:={#Color1};
CheckBox.Top.Color:={#Color1};
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:=$AAAAAA;
end;
end else begin
if hChecked then
begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:=$AAAAAA;
CheckBox.Labl.Font.Color:=$AAAAAA;
end else begin
CheckBox.Base.Color:=$AAAAAA;
CheckBox.Top.Color:={#Color2};
CheckBox.Labl.Font.Color:=$AAAAAA;
end;
end;
end;

function CheckBoxGetChecked(var CheckBox: TCusChk): Boolean;
begin
Result:=CheckBox.IsChecked;
end;

procedure CheckBoxSetEvent(var CheckBox: TCusChk; Event: TNotifyEvent);
begin
if CheckBox.IsChecked then
CheckBox.Top.OnClick:=Event;
end;

function CheckBoxCreate(hParent :TWinControl; hLeft, hTop, hWidth, hHeight: Integer; hText: String): TCusChk;
begin
Result.IsEnabled:=True;
Result.Base:= TPanel.Create(hParent);
with Result.Base do begin
Parent:=hParent;
Left:=hLeft;
Top:=hTop;
Width:=hWidth;
Height:=hHeight;
Color:=$AAAAAA;
BorderStyle := bsNone;
BevelInner := bvNone;
BevelOuter := bvNone;
BorderWidth := 0;
ParentBackground := False;
end;

Result.Mid:= TPanel.Create(Result.Base);
with Result.Mid do begin
Parent:=Result.Base;
Left:=1;
Top:=1;
Width:=hWidth - 2;
Height:=hHeight - 2;
Color:={#Color2};
BorderStyle := bsNone;
BevelInner := bvNone;
BevelOuter := bvNone;
BorderWidth := 0;
ParentBackground := False;
end;

Result.Top:= TPanel.Create(Result.Mid);
with Result.Top do begin
Parent:=Result.Mid;
Left:=1;
Top:=1;
Width:=hWidth - 4;
Height:=hHeight - 4;
OnMouseEnter:= @CheckBoxOnEnter;
OnMouseLeave:= @CheckBoxOnLeave;
OnMouseDown := @CheckBoxOnDown;
OnMouseUp := @CheckBoxOnUp;
OnClick := @CheckBoxOnClick;
Color:={#Color2};
BorderStyle := bsNone;
BevelInner := bvNone;
BevelOuter := bvNone;
BorderWidth := 0;
ParentBackground := False;
end;

Result.Labl:= TLabel.Create(hParent);
with Result.Labl do
begin
Parent:=hParent;
OnMouseEnter:= @CheckBoxOnEnter;
OnMouseLeave:= @CheckBoxOnLeave;
OnMouseDown := @CheckBoxOnDown;
OnMouseUp := @CheckBoxOnUp;
// Layout:=tlCenter;
Transparent := True;
Font.Color:=$AAAAAA;
Font.Name:='Segoe UI Light';
Font.Size:=11;
SetBounds((hLeft + hWidth) + 5,hTop - 2,0,0);
Caption:=hText
end;
end;