forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

windows menu sorted

This commit is contained in:
Basile Burg 2015-03-27 04:19:02 +01:00
parent a151020a41
commit 875a41d01f
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ce_main.pas
View File

@ -447,6 +447,7 @@ begin
fWidgList.addWidget(@fTodolWidg); fWidgList.addWidget(@fTodolWidg);
fWidgList.addWidget(@fOptEdWidg); fWidgList.addWidget(@fOptEdWidg);
fWidgList.addWidget(@fSymlWidg); fWidgList.addWidget(@fSymlWidg);
fWidgList.sort(@CompareWidgCaption);
{$IFDEF WIN32} {$IFDEF WIN32}
fWidgList.addWidget(@fCdbWidg); fWidgList.addWidget(@fCdbWidg);

11
src/ce_widget.pas
View File

@ -100,6 +100,8 @@ type
property widget[index: integer]: TCEWidget read getWidget; property widget[index: integer]: TCEWidget read getWidget;
end; end;
TWidgetEnumerator = class TWidgetEnumerator = class
fList: TCEWidgetList; fList: TCEWidgetList;
fIndex: Integer; fIndex: Integer;
@ -110,6 +112,8 @@ type
operator enumerator(aWidgetList: TCEWidgetList): TWidgetEnumerator; operator enumerator(aWidgetList: TCEWidgetList): TWidgetEnumerator;
function CompareWidgCaption(Item1, Item2: Pointer): Integer;
implementation implementation
{$R *.lfm} {$R *.lfm}
@ -304,6 +308,13 @@ end;
{$ENDREGION} {$ENDREGION}
{$REGION TCEWidgetList----------------------------------------------------------} {$REGION TCEWidgetList----------------------------------------------------------}
function CompareWidgCaption(Item1, Item2: Pointer): Integer;
type
PWidg = ^TCEWidget;
begin
result := AnsiCompareStr(PWidg(Item1)^.Caption, PWidg(Item2)^.Caption);
end;
function TCEWidgetList.getWidget(index: integer): TCEWidget; function TCEWidgetList.getWidget(index: integer): TCEWidget;
begin begin
result := PTCEWidget(Items[index])^; result := PTCEWidget(Items[index])^;