paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 12:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Menu editor: Fix indentation.

Browse Source 
git-svn-id: trunk@51546 -
This commit is contained in:
juha 2016-02-08 21:47:24 +00:00
parent 969f23b12f
commit 4f0a8f60aa
1 changed files with 225 additions and 226 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
designer/menushadows.pp
View File

@ -18,53 +18,53 @@ uses
type
TShadowMenu = class;
TShadowBox = class;
TShadowMenu = class;
TShadowBox = class;
{ TFake }
{ TFake }
TFake = class(TCustomControl)
protected
TFake = class(TCustomControl)
protected
FShadowMenu: TShadowMenu;
FMinWidth: integer;
function GetShouldBeVisible: boolean; virtual; abstract;
procedure SetVisibilitySizeAndPosition; virtual; abstract;
procedure TextChanged; override;
protected
protected
class function GetControlClassDefaultSize: TSize; override;
procedure Paint; override;
public
public
constructor Create(anOwner: TShadowMenu); reintroduce;
procedure Refresh;
property ShouldBeVisible: boolean read GetShouldBeVisible;
end;
end;
TAddSiblingFake = class(TFake)
protected
TAddSiblingFake = class(TFake)
protected
function GetShouldBeVisible: boolean; override;
procedure SetVisibilitySizeAndPosition; override;
end;
end;
TAddSubmenuFake = class(TFake)
protected
TAddSubmenuFake = class(TFake)
protected
function GetShouldBeVisible: boolean; override;
procedure SetVisibilitySizeAndPosition; override;
end;
end;
TAddFirstFake = class(TFake)
protected
TAddFirstFake = class(TFake)
protected
function GetShouldBeVisible: boolean; override;
procedure SetVisibilitySizeAndPosition; override;
end;
end;
TShadowItemDisplayState = (dsNormal, dsSelected, dsDisabled);
TShadowItemDisplayState = (dsNormal, dsSelected, dsDisabled);
TMenuDesigner = class;
TMenuDesigner = class;
{ TShadowItem }
{ TShadowItem }
TShadowItem = class(TShadowItemBase)
strict private
TShadowItem = class(TShadowItemBase)
strict private
FBottomFake: TFake;
FParentBox: TShadowBox;
FRightFake: TFake;
@ -81,7 +81,7 @@ strict private
function GetShowingBottomFake: boolean;
function GetShowingRightFake: boolean;
procedure SetState(AValue: TShadowItemDisplayState);
protected
protected
function GetHeight: integer;
function GetWidth: integer;
function HasChildBox(out aChildBox: TShadowBox): boolean;
@ -96,7 +96,7 @@ protected
procedure ShowDisabled;
procedure ShowNormal;
procedure ShowSelected;
public
public
constructor CreateWithBoxAndItem(aSMenu: TShadowMenu; aParentBox: TShadowBox;
aRealItem: TMenuItem);
property BottomFake: TFake read GetBottomFake write FBottomFake;
@ -108,12 +108,12 @@ public
property ShowingBottomFake: boolean read GetShowingBottomFake write FShowingBottomFake;
property ShowingRightFake: boolean read GetShowingRightFake write FShowingRightFake;
//property State: TShadowItemDisplayState read FState;
end;
end;
{ TShadowBox }
{ TShadowBox }
TShadowBox = class(TShadowBoxBase)
strict private
TShadowBox = class(TShadowBoxBase)
strict private
FParentBox: TShadowBox;
FShadowMenu: TShadowMenu;
FUpdating: boolean;
@ -123,7 +123,7 @@ strict private
procedure BeginUpdate;
procedure EndUpdate;
procedure ShowAllUnSelected;
protected
protected
function GetInnerDims: TPoint;
procedure AddItemAndShadow(existingSI: TShadowItem; addBefore: boolean;
isSeparator: boolean=False);
@ -137,14 +137,14 @@ protected
property ParentBox: TShadowBox read FParentBox;
property ShadowCount: integer read GetShadowCount;
property Updating: boolean read FUpdating;
public
public
constructor CreateWithParentBox(aSMenu: TShadowMenu; aParentBox: TShadowBox;
aParentItem: TMenuItem);
destructor Destroy; override;
procedure SetUnCheckedAllExcept(aMI: TMenuItem);
end;
end;
TPopEnum = {%region}
TPopEnum = {%region}
(popItemMoveBefore, popItemMoveAfter,
popSeparators_,
popAddSeparatorBefore, popAddSeparatorAfter, popRemoveAllSeparators,
@ -157,10 +157,10 @@ TPopEnum = {%region}
popTemplates_,
popSaveAsTemplate, popAddFromTemplate, popDeleteTemplate);{%endregion}
{ TShadowMenu }
{ TShadowMenu }
TShadowMenu = class(TShadowMenuBase)
strict private
TShadowMenu = class(TShadowMenuBase)
strict private
FActionList: TActionList;
FAddImgListIconAction: TAction;
FAddItemFake: TFake;
@ -215,7 +215,7 @@ strict private
procedure RemoveAllSeparators(Sender: TObject);
procedure ResolveShortcutConflicts(Sender: TObject);
procedure SaveAsTemplate(Sender: TObject);
private
private
FMenu: TMenu;
FDesigner: TMenuDesigner;
FEditorDesigner: TComponentEditorDesigner;
@ -229,16 +229,16 @@ private
procedure RemoveEmptyBox(aSB: TShadowBox);
procedure SetSelectedShadow(const prevSelectedItem, curSelectedItem: TMenuItem; viaDesigner: boolean);
procedure UpdateActionsEnabledness;
private
private
property AddItemFake: TFake read FAddItemFake;
property AddSubmenuFake: TFake read FAddSubmenuFake;
property BoxList: TFPList read FBoxList;
property ItemsPopupMenu: TPopupMenu read FItemsPopupMenu;
property RootBox: TShadowBox read FRootBox;
protected
protected
procedure Paint; override;
procedure SetParent(NewParent: TWinControl); override;
public
public
constructor Create(aDesigner: TMenuDesigner; aForm: TForm; aMenu: TMenu;
aSelect: TMenuItem; aWidth, aHeight: integer); reintroduce;
destructor Destroy; override;
@ -250,13 +250,13 @@ public
viaDesigner, prevWasDeleted: boolean); override;
procedure UpdateBoxLocationsAndSizes;
procedure UpdateSelectedItemInfo;
public
public
property EditorDesigner: TComponentEditorDesigner read FEditorDesigner;
property IsMainMenu: boolean read FIsMainMenu;
property LookupRoot: TComponent read FLookupRoot;
property SelectedShadowBox: TShadowBox read GetSelectedShadowBox;
property SelectedShadowItem: TShadowItem read GetSelectedShadowItem;
end;
end;
{ TMenuDesigner }
@ -280,7 +280,6 @@ end;
procedure ExecuteVerb(Index: Integer); override;
end;
{ TMenuItemsPropertyEditor - property editor for TMenuItem properties.
Invokes the parent menu's component editor }