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

LazControls: include the new ListViewFilterEdit component in LazControls package.

Browse Source 
git-svn-id: trunk@47160 -
This commit is contained in:
juha 2014-12-10 00:46:38 +00:00
parent d8add73062
commit cbae1c8558
7 changed files with 50 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -2046,7 +2046,6 @@ components/lazcontrols/images/ttreefilteredit.png -text svneol=unset#image/png
components/lazcontrols/lazcontrols.lpk svneol=native#text/xml
components/lazcontrols/lazcontrols.pas svneol=native#text/pascal
components/lazcontrols/lazcontrols.res -text
components/lazcontrols/lazctrls.bat svneol=native#text/plain
components/lazcontrols/listfilteredit.pas svneol=native#text/plain
components/lazcontrols/listviewfilteredit.pas svneol=native#text/pascal
components/lazcontrols/lvlgraphctrl.pas svneol=native#text/plain

4
components/lazcontrols/fpmake.pp
View File

@ -47,15 +47,19 @@ begin
P.Options.Add('-Fu../../packager/units/$(CPU_TARGET)-$(OS_TARGET)');
P.Options.Add('-Fu.');
T:=P.Targets.AddUnit('lazcontrols.pas');
t.Dependencies.AddUnit('checkboxthemed');
t.Dependencies.AddUnit('dividerbevel');
t.Dependencies.AddUnit('extendednotebook');
t.Dependencies.AddUnit('listfilteredit');
t.Dependencies.AddUnit('listviewfilteredit');
t.Dependencies.AddUnit('treefilteredit');
t.Dependencies.AddUnit('shortpathedit');
T:=P.Targets.AddUnit('checkboxthemed.pas');
T:=P.Targets.AddUnit('dividerbevel.pas');
T:=P.Targets.AddUnit('extendednotebook.pas');
T:=P.Targets.AddUnit('listfilteredit.pas');
T:=P.Targets.AddUnit('listviewfilteredit.pas');
T:=P.Targets.AddUnit('treefilteredit.pas');
T:=P.Targets.AddUnit('shortpathedit.pas');

75
components/lazcontrols/lazcontrols.lpk
View File

@ -18,46 +18,51 @@
<Description Value="Some extra LCL controls needed by the IDE."/>
<License Value="modified LGPL-2"/>
<Version Major="1" Release="1"/>
<Files Count="8">
<Files Count="9">
<Item1>
<Filename Value="dividerbevel.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="DividerBevel"/>
</Item1>
<Item2>
<Filename Value="extendednotebook.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="ExtendedNotebook"/>
</Item2>
<Item3>
<Filename Value="listfilteredit.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="ListFilterEdit"/>
</Item3>
<Item4>
<Filename Value="treefilteredit.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="TreeFilterEdit"/>
</Item4>
<Item5>
<Filename Value="shortpathedit.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="ShortPathEdit"/>
</Item5>
<Item6>
<Filename Value="lvlgraphctrl.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="LvlGraphCtrl"/>
</Item6>
<Item7>
<Filename Value="extendedtabcontrols.pas"/>
<UnitName Value="ExtendedTabControls"/>
</Item7>
<Item8>
<Filename Value="checkboxthemed.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="CheckBoxThemed"/>
</Item1>
<Item2>
<Filename Value="dividerbevel.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="DividerBevel"/>
</Item2>
<Item3>
<Filename Value="extendednotebook.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="ExtendedNotebook"/>
</Item3>
<Item4>
<Filename Value="listfilteredit.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="ListFilterEdit"/>
</Item4>
<Item5>
<Filename Value="listviewfilteredit.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="ListViewFilterEdit"/>
</Item5>
<Item6>
<Filename Value="treefilteredit.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="TreeFilterEdit"/>
</Item6>
<Item7>
<Filename Value="shortpathedit.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="ShortPathEdit"/>
</Item7>
<Item8>
<Filename Value="lvlgraphctrl.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="LvlGraphCtrl"/>
</Item8>
<Item9>
<Filename Value="extendedtabcontrols.pas"/>
<UnitName Value="ExtendedTabControls"/>
</Item9>
</Files>
<LazDoc Paths="docs"/>
<Type Value="RunAndDesignTime"/>

9
components/lazcontrols/lazcontrols.pas
View File

@ -7,9 +7,9 @@ unit LazControls;
interface
uses
DividerBevel, ExtendedNotebook, ListFilterEdit, TreeFilterEdit,
ShortPathEdit, LvlGraphCtrl, ExtendedTabControls, CheckBoxThemed,
LazarusPackageIntf;
CheckBoxThemed, DividerBevel, ExtendedNotebook, ListFilterEdit,
ListViewFilterEdit, TreeFilterEdit, ShortPathEdit, LvlGraphCtrl,
ExtendedTabControls, LazarusPackageIntf;
implementation
@ -17,13 +17,14 @@ implementation
procedure Register;
begin
RegisterUnit('CheckBoxThemed', @CheckBoxThemed.Register);
RegisterUnit('DividerBevel', @DividerBevel.Register);
RegisterUnit('ExtendedNotebook', @ExtendedNotebook.Register);
RegisterUnit('ListFilterEdit', @ListFilterEdit.Register);
RegisterUnit('ListViewFilterEdit', @ListViewFilterEdit.Register);
RegisterUnit('TreeFilterEdit', @TreeFilterEdit.Register);
RegisterUnit('ShortPathEdit', @ShortPathEdit.Register);
RegisterUnit('LvlGraphCtrl', @LvlGraphCtrl.Register);
RegisterUnit('CheckBoxThemed', @CheckBoxThemed.Register);
end;
initialization

BIN
components/lazcontrols/lazcontrols.res
View File

Binary file not shown.

1
components/lazcontrols/lazctrls.bat
View File

@ -1 +0,0 @@
..\..\tools\lazres lazcontrols.res images\dividerbevel.png=tdividerbevel images\textnotebook.png=textendednotebook images\listfilteredit.png=tlistfilteredit images\treefilteredit.png=ttreefilteredit images\tlvlgraphcontrol.png images\shortpathedit.png=tshortpathedit images\checkboxthemed.png=tcheckboxthemed

2
components/lazcontrols/listfilteredit.pas
View File

@ -158,7 +158,7 @@ begin
if not (Pass or Done) then
Pass:=(Filter='') or (Pos(Filter,UTF8LowerCase(s))>0);
if Pass then begin
i:=fSortedData.Count-1;
i:=fSortedData.Count-1; // Always sort the data.
while i>=0 do begin
if CompareFNs(s,fSortedData[i])>=0 then break;
dec(i);