paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-19 10:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Minor changes to FindPalette

Browse Source 
git-svn-id: trunk@35007 -
This commit is contained in:
juha 2012-01-29 08:43:34 +00:00
parent 7781a12813
commit ab26698c0c
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/findpalettecomp.pas
View File

@ -39,10 +39,12 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons, FormEditingIntf, db,
LazarusIDEStrConsts, ComponentReg, PackageDefs, ExtCtrls, ButtonPanel;
LazarusIDEStrConsts, ComponentReg, PackageDefs, ExtCtrls, ButtonPanel, fgl;
type
TRegisteredCompList = specialize TFPGList<TRegisteredComponent>;
{ TFindPaletteComponentDlg }
TFindPaletteComponentDlg = class(TForm)
@ -58,7 +60,7 @@ type
procedure FormDestroy(Sender: TObject);
procedure PatternEditChange(Sender: TObject);
private
fSelectedComponents: TFPList;// list of TRegisteredComponent
fSelectedComponents: TRegisteredCompList;
procedure UpdateComponentSelection;
public
function GetSelectedComponent: TRegisteredComponent;
@ -111,7 +113,7 @@ begin
if fSelectedComponents=nil then exit;
if (Index<0) or (Index>=fSelectedComponents.Count) then exit;
// draw registered component
CurComponent:=TRegisteredComponent(fSelectedComponents[Index]);
CurComponent:=fSelectedComponents[Index];
with ComponentsListBox.Canvas do begin
CurStr:=Format(lisPckEditPage, [CurComponent.ComponentClass.ClassName,
CurComponent.Page.PageName]);
@ -154,23 +156,23 @@ var
p: Integer;
Page: TBaseComponentPage;
c: Integer;
AComponent: TRegisteredComponent;
Comp: TRegisteredComponent;
begin
if fSelectedComponents=nil then
fSelectedComponents:=TFPList.Create;
fSelectedComponents:=TRegisteredCompList.Create;
fSelectedComponents.Clear;
if IDEComponentPalette=nil then exit;
for p:=0 to IDEComponentPalette.Count-1 do begin
Page:=IDEComponentPalette.Pages[p];
if not Page.Visible then continue;
for c:=0 to Page.Count-1 do begin
AComponent:=Page.Items[c];
if not AComponent.Visible then continue;
Comp:=Page.Items[c];
if not Comp.Visible then continue;
if (PatternEdit.Text='')
or (System.Pos(UpperCase(PatternEdit.Text),
UpperCase(AComponent.ComponentClass.ClassName))>0)
UpperCase(Comp.ComponentClass.ClassName))>0)
then
fSelectedComponents.Add(AComponent);
fSelectedComponents.Add(Comp);
end;
end;
while ComponentsListBox.Items.Count<fSelectedComponents.Count do
@ -188,7 +190,7 @@ begin
i:=ComponentsListBox.ItemIndex;
if (i>=fSelectedComponents.Count) or (i<0) then
i:=0;
Result:=TRegisteredComponent(fSelectedComponents[i]);
Result:=fSelectedComponents[i];
end;
end.