Changeset 463

Timestamp:

Feb 10, 2014, 5:18:38 PM (10 years ago)

Author:

chronos

Message:

• Modified: All components from Common package are registered to component pallete to group Common.
• Modified: TListViewSort is now component.
• Added: Class TListViewFilter for entering filtering text for TListViewSort.

Location:

Common

Files:

• Common.lpk (modified) (4 diffs)
• Common.pas (modified) (2 diffs)
• UApplicationInfo.pas (modified) (1 diff)
• UDebugLog.pas (modified) (1 diff)
• UFindFile.pas (modified) (1 diff)
• UJobProgressView.pas (modified) (1 diff)
• ULastOpenedList.pas (modified) (1 diff)
• UListViewSort.pas (modified) (6 diffs)
• UPersistentForm.pas (modified) (1 diff)

Common/Common.lpk

@@ -1 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <Package Version="4">
@@ -22 +22 @@
     <License Value="GNU/GPL"/>
     <Version Minor="7"/>
-    <Files Count="18">
+    <Files Count="19">
       <Item1>
         <Filename Value="StopWatch.pas"/>
@@ -93 +93 @@
       <Item17>
         <Filename Value="UListViewSort.pas"/>
+        <HasRegisterProc Value="True"/>
         <UnitName Value="UListViewSort"/>
       </Item17>
@@ -100 +101 @@
         <UnitName Value="UPersistentForm"/>
       </Item18>
+      <Item19>
+        <Filename Value="UFindFile.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="UFindFile"/>
+      </Item19>
     </Files>
     <i18n>

Common/Common.pas

@@ -11 +11 @@
   UMemory, UResetableThread, UPool, ULastOpenedList, URegistry, 
   UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort, 
-  UPersistentForm, LazarusPackageIntf;
+  UPersistentForm, UFindFile, LazarusPackageIntf;
 
 implementation
@@ -21 +21 @@
   RegisterUnit('UJobProgressView', @UJobProgressView.Register);
   RegisterUnit('UApplicationInfo', @UApplicationInfo.Register);
+  RegisterUnit('UListViewSort', @UListViewSort.Register);
   RegisterUnit('UPersistentForm', @UPersistentForm.Register);
+  RegisterUnit('UFindFile', @UFindFile.Register);
 end;
 

Common/UApplicationInfo.pas

@@ -55 +55 @@
 procedure Register;
 begin
-  RegisterComponents('Samples', [TApplicationInfo]);
+  RegisterComponents('Common', [TApplicationInfo]);
 end;
 

Common/UDebugLog.pas

@@ -52 +52 @@
 procedure Register;
 begin
-  RegisterComponents('Samples', [TDebugLog]);
+  RegisterComponents('Common', [TDebugLog]);
 end;
 

Common/UFindFile.pas

@@ -64 +64 @@
 procedure Register;
 begin
-  RegisterComponents('Samples', [TFindFile]);
+  RegisterComponents('Common', [TFindFile]);
 end;
 

Common/UJobProgressView.pas

@@ -169 +169 @@
 procedure Register;
 begin
-  RegisterComponents('Samples', [TJobProgressView]);
+  RegisterComponents('Common', [TJobProgressView]);
 end;
 

Common/ULastOpenedList.pas

@@ -40 +40 @@
 procedure Register;
 begin
-  RegisterComponents('Samples', [TLastOpenedList]);
+  RegisterComponents('Common', [TLastOpenedList]);
 end;
 

Common/UListViewSort.pas

@@ -9 +9 @@
 uses
   {$IFDEF Windows}Windows, CommCtrl, {$ENDIF}Classes, Graphics, ComCtrls, SysUtils,
-  Controls, DateUtils, Dialogs, SpecializedList;
+  Controls, DateUtils, Dialogs, SpecializedList, Forms, Grids, StdCtrls, ExtCtrls;
 
 type
@@ -19 +19 @@
   TListFilterEvent = procedure (ListViewSort: TListViewSort) of object;
 
-  TListViewSort = class
+  TListViewSort = class(TComponent)
   private
     FListView: TListView;
@@ -43 +43 @@
     List: TListObject;
     Source: TListObject;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     function CompareTime(Time1, Time2: TDateTime): Integer;
@@ -50 +50 @@
     function CompareBoolean(Value1, Value2: Boolean): Integer;
     procedure Refresh;
+  published
     property ListView: TListView read FListView write SetListView;
     property OnCompareItem: TCompareEvent read FOnCompareItem
@@ -61 +62 @@
   end;
 
+  { TListViewFilter }
+
+  TListViewFilter = class(TWinControl)
+  private
+    FOnChange: TNotifyEvent;
+    FStringGrid1: TStringGrid;
+    procedure DoOnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+  public
+    constructor Create(AOwner: TComponent); override;
+    procedure UpdateFromListView(ListView: TListView);
+    function TextEntered: Boolean;
+    function GetColValue(Index: Integer): string;
+    property StringGrid: TStringGrid read FStringGrid1 write FStringGrid1;
+  published
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
+    property Align;
+    property Anchors;
+  end;
+
+procedure Register;
+
+
 implementation
+
+procedure Register;
+begin
+  RegisterComponents('Common', [TListViewSort, TListViewFilter]);
+end;
+
+{ TListViewFilter }
+
+procedure TListViewFilter.DoOnKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Assigned(FOnChange) then
+    FOnChange(Self);
+end;
+
+constructor TListViewFilter.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FStringGrid1 := TStringGrid.Create(Self);
+  FStringGrid1.Align := alClient;
+  FStringGrid1.Parent := Self;
+  FStringGrid1.Visible := True;
+  FStringGrid1.ScrollBars := ssNone;
+  FStringGrid1.FixedCols := 0;
+  FStringGrid1.FixedRows := 0;
+  FStringGrid1.RowCount := 1;
+  FStringGrid1.Options := [goFixedHorzLine, goFixedVertLine, goVertLine,
+    goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor, goSmoothScroll];
+  FStringGrid1.OnKeyUp := DoOnKeyUp;
+end;
+
+procedure TListViewFilter.UpdateFromListView(ListView: TListView);
+var
+  I: Integer;
+  NewColumn: TGridColumn;
+begin
+  with FStringGrid1 do begin
+    Columns.Clear;
+    while Columns.Count > ListView.Columns.Count do Columns.Delete(Columns.Count - 1);
+    while Columns.Count < ListView.Columns.Count do NewColumn := Columns.Add;
+    for I := 0 to ListView.Columns.Count - 1 do begin
+      Columns[I].Width := ListView.Columns[I].Width;
+    end;
+  end;
+end;
+
+function TListViewFilter.TextEntered: Boolean;
+var
+  I: Integer;
+begin
+  Result := False;
+  for I := 0 to FStringGrid1.ColCount - 1 do begin
+    if FStringGrid1.Cells[I, 0] <> '' then begin
+      Result := True;
+      Break;
+    end;
+  end;
+end;
+
+function TListViewFilter.GetColValue(Index: Integer): string;
+begin
+  if (Index >= 0) and (Index < StringGrid.Columns.Count) then
+    Result := StringGrid.Cells[Index, 0]
+    else Result := '';
+end;
 
 { TListViewSort }
@@ -160 +248 @@
 end;
 
-constructor TListViewSort.Create;
-begin
+constructor TListViewSort.Create(AOwner: TComponent);
+begin
+  inherited;
   List := TListObject.Create;
   List.OwnsObjects := False;

Common/UPersistentForm.pas

@@ -39 +39 @@
 procedure Register;
 begin
-  RegisterComponents('Samples', [TPersistentForm]);
+  RegisterComponents('Common', [TPersistentForm]);
 end;