paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: change formatting a bit

Browse Source 
git-svn-id: trunk@12248 -
This commit is contained in:
paul 2007-09-30 03:45:45 +00:00
parent 0752945e3d
commit 8dca013550
2 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/include/customcheckbox.inc
View File

@ -69,7 +69,8 @@ begin
Result:=FState;
// get the actual state of the component
// don't read from interface during loading
if HandleAllocated and ([csLoading,csDestroying]*ComponentState=[]) then begin
if HandleAllocated and ([csLoading,csDestroying]*ComponentState=[]) then
begin
Result := TWSCustomCheckBoxClass(WidgetSetClass).RetrieveState(Self);
//debugln('TCustomCheckBox.RetrieveState ',dbgsname(Self),' ',dbgs(ord(Result)));
end;
@ -84,13 +85,13 @@ end;
------------------------------------------------------------------------------}
constructor TCustomCheckBox.Create(TheOwner : TComponent);
begin
Inherited Create(TheOwner);
inherited Create(TheOwner);
fCompStyle := csCheckbox;
FState := cbUnchecked;
FState := cbUnchecked;
FAllowGrayed := false;
TabStop := true;
SetInitialBounds(0,0,90,23);
AutoSize:=true;
SetInitialBounds(0, 0, 90, 23);
AutoSize := true;
end;
{------------------------------------------------------------------------------
@ -128,7 +129,7 @@ end;
------------------------------------------------------------------------------}
procedure TCustomCheckBox.SetChecked(Value : Boolean);
var
OldState : TCheckBoxState;
OldState: TCheckBoxState;
begin
OldState := FState;
If Value then
@ -138,12 +139,12 @@ begin
//debugln('TCustomCheckBox.DoChange ',dbgsname(Self),' ',dbgs(ord(FState)));
if FState <> OldState then
begin
if Assigned(Action)
and (Action is TCustomAction) then
TCustomAction(Action).Checked := FState=cbChecked;
if Assigned(Action) and (Action is TCustomAction) then
TCustomAction(Action).Checked := FState = cbChecked;
ApplyChanges;
DoOnChange;
if (not UseOnChange) and (not ClicksDisabled) then Click;
if (not UseOnChange) and (not ClicksDisabled) then
Click;
end;
end;
@ -175,7 +176,8 @@ end;
------------------------------------------------------------------------------}
procedure TCustomCheckBox.ApplyChanges;
begin
if HandleAllocated and (not (csLoading in ComponentState)) then begin
if HandleAllocated and (not (csLoading in ComponentState)) then
begin
//debugln('TCustomCheckBox.ApplyChanges ',dbgsname(Self),' ',dbgs(ord(FState)),' ',WidgetSetClass.ClassName);
TWSCustomCheckBoxClass(WidgetSetClass).SetState(Self, FState);
end;
@ -185,8 +187,8 @@ procedure TCustomCheckBox.Loaded;
begin
// Send first the FState to the interface before calling inherited,
// otherwise the FState will be lost and the default interface State is taken.
if HandleAllocated
then TWSCustomCheckBoxClass(WidgetSetClass).SetState(Self, FState);
if HandleAllocated then
TWSCustomCheckBoxClass(WidgetSetClass).SetState(Self, FState);
inherited Loaded;
end;
@ -218,12 +220,11 @@ begin
if IsAccel(Message.CharCode, Caption) and CanFocus then
begin
SetFocus;
if Focused then Toggle;
if Focused then
Toggle;
Result := true;
end else
Result := inherited;
end;
// included by stdctrls.pp
// included by stdctrls.pp

5
lcl/include/customnotebook.inc
View File

@ -319,8 +319,9 @@ end;
function TCustomNotebook.CanChangePageIndex: boolean;
begin
Result:=true;
if Assigned(OnChanging) then OnChanging(Self,Result);
Result := True;
if ([csDestroying] * ComponentState = []) and Assigned(OnChanging) then
OnChanging(Self,Result);
end;
function TCustomNotebook.GetMinimumTabWidth: integer;