Dialog implemented

[winbottle/winbottle.git] / bottleclient / SearchLog.pas

diff --git a/bottleclient/SearchLog.pas b/bottleclient/SearchLog.pas
index c42b545..55d61c1 100644 (file)
--- a/bottleclient/SearchLog.pas
+++ b/bottleclient/SearchLog.pas
@@ -1,5 +1,7 @@
 unit SearchLog;
 
+// \81u\83\8d\83O\82Ì\8c\9f\8dõ\81v\83t\83H\81[\83\80\82Æ\81A\82»\82Ì\8c\9f\8dõ\8fð\8c\8f
+
 interface
 
 uses
@@ -7,7 +9,10 @@ uses
   Dialogs, StdCtrls, ExtCtrls, Spin;
 
 type
-  // \8c\9f\8dõ\8fð\8c\8f\82ð\95\\82·\83N\83\89\83X
+  // \8c\9f\8dõ\8fð\8c\8f\82ð\95\\82·\83N\83\89\83X\81B
+  // \8cã\82Å\89½\82ç\82©\82Ì\95û\96@\82Å\89i\91±\89»\82·\82é\82©\82à\82µ\82ê\82È\82¢\82Ì\82Å\95Ê\83N\83\89\83X\82É\82·\82é
+  TSearchLogRange = (srSelectedLogList, srAboveSelectedLog, srAllLogLists);
+
   TSearchCond = class(TComponent)
   private
     FScriptRegExp: boolean;
@@ -16,12 +21,18 @@ type
     FGhost: String;
     FChannel: String;
     FScriptPattern: String;
+    FMinVote: integer;
+    FMinAgree: integer;
+    FSearchLogRange: TSearchLogRange;
     procedure SetChannel(const Value: String);
     procedure SetGhost(const Value: String);
     procedure SetMaxLength(const Value: integer);
     procedure SetMinLength(const Value: integer);
     procedure SetScriptPattern(const Value: String);
     procedure SetScriptRegExp(const Value: boolean);
+    procedure SetMinAgree(const Value: integer);
+    procedure SetMinVote(const Value: integer);
+    procedure SetSearchLogRange(const Value: TSearchLogRange);
   public
     procedure Assign(Source: TPersistent); override;
   published
@@ -31,9 +42,13 @@ type
     property Ghost: String read FGhost write SetGhost;
     property MinLength: integer read FMinLength write SetMinLength;
     property MaxLength: integer read FMaxLength write SetMaxLength;
+    property MinVote: integer read FMinVote write SetMinVote;
+    property MinAgree: integer read FMinAgree write SetMinAgree;
+    property SearchLogRange: TSearchLogRange read FSearchLogRange write SetSearchLogRange;
   end;
 
-  TTfrmSearchLog = class(TForm)
+  // \83\8d\83O\82Ì\8c\9f\8dõ\83t\83H\81[\83\80
+  TfrmSearchLog = class(TForm)
     btnOk: TButton;
     btnCancel: TButton;
     gbxCondition: TGroupBox;
@@ -47,21 +62,28 @@ type
     rgpTarget: TRadioGroup;
     lblMinVote: TLabel;
     lblMinAgree: TLabel;
-    SpinEdit1: TSpinEdit;
-    SpinEdit2: TSpinEdit;
+    spnMinVote: TSpinEdit;
+    spnMinAgree: TSpinEdit;
     procedure btnOkClick(Sender: TObject);
     procedure btnCancelClick(Sender: TObject);
   private
     FCondition: TSearchCond;
     procedure SetCondition(const Value: TSearchCond);
-
+    procedure SetChannelList(const Value: TStrings);
+    procedure SetGhostList(const Value: TStrings);
+    function GetChannelList: TStrings;
+    function GetGhostList: TStrings;
   public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
     function Execute: boolean;
     property Condition: TSearchCond read FCondition write SetCondition;
+    property GhostList: TStrings read GetGhostList write SetGhostList;
+    property ChannelList: TStrings read GetChannelList write SetChannelList;
   end;
 
 var
-  TfrmSearchLog: TTfrmSearchLog;
+  frmSearchLog: TfrmSearchLog;
 
 implementation
 
@@ -84,6 +106,9 @@ begin
     FGhost         := Src.Ghost;
     FMinLength     := Src.MinLength;
     FMaxLength     := Src.MaxLength;
+    FMinVote       := Src.MinVote;
+    FMinAgree      := Src.MinAgree;
+    SearchLogRange := Src.SearchLogRange;
   end;
 end;
 
@@ -102,11 +127,21 @@ begin
   FMaxLength := Value;
 end;
 
+procedure TSearchCond.SetMinAgree(const Value: integer);
+begin
+  FMinAgree := Value;
+end;
+
 procedure TSearchCond.SetMinLength(const Value: integer);
 begin
   FMinLength := Value;
 end;
 
+procedure TSearchCond.SetMinVote(const Value: integer);
+begin
+  FMinVote := Value;
+end;
+
 procedure TSearchCond.SetScriptPattern(const Value: String);
 begin
   FScriptPattern := Value;
@@ -119,26 +154,81 @@ end;
 
 { TTfrmSearchLog }
 
-function TTfrmSearchLog.Execute: boolean;
+function TfrmSearchLog.Execute: boolean;
 begin
+  with Condition do
+  begin
+    edtScriptPattern.Text := ScriptPattern;
+    cbxChannel.Text   := Channel;
+    cbxGhost.Text     := Ghost;
+    spnMinVote.Value  := MinVote;
+    spnMinAgree.Value := MinAgree;
+  end;
   Result := ShowModal = mrOk;
+  if not Result then
+    Exit;
+  with Condition do
+  begin
+    ScriptPattern := edtScriptPattern.Text;
+    Channel  := cbxChannel.Text;
+    Ghost    := cbxGhost.Text;
+    MinVote  := spnMinVote.Value;
+    MinAgree := spnMinAgree.Value;
+  end;
 end;
 
-procedure TTfrmSearchLog.SetCondition(const Value: TSearchCond);
+procedure TfrmSearchLog.SetCondition(const Value: TSearchCond);
 begin
   FCondition.Assign(Value);
 end;
 
-procedure TTfrmSearchLog.btnOkClick(Sender: TObject);
+procedure TfrmSearchLog.btnOkClick(Sender: TObject);
 begin
   // \8c\8b\89ÊOK\82Å\83E\83B\83\93\83h\83E\82ð\95Â\82¶\82é
   ModalResult := mrOk;
 end;
 
-procedure TTfrmSearchLog.btnCancelClick(Sender: TObject);
+procedure TfrmSearchLog.btnCancelClick(Sender: TObject);
 begin
   // \8c\8b\89Ê\83L\83\83\83\93\83Z\83\8b\82Å\83E\83B\83\93\83h\83E\82ð\95Â\82¶\82é
   ModalResult := mrCancel;
 end;
 
+procedure TfrmSearchLog.SetChannelList(const Value: TStrings);
+begin
+  cbxChannel.Items.Assign(Value);
+end;
+
+procedure TfrmSearchLog.SetGhostList(const Value: TStrings);
+begin
+  cbxGhost.Items.Assign(Value);
+end;
+
+constructor TfrmSearchLog.Create(AOwner: TComponent);
+begin
+  inherited;
+  FCondition := TSearchCond.Create(nil);
+end;
+
+destructor TfrmSearchLog.Destroy;
+begin
+  FCondition.Free;
+  inherited;
+end;
+
+function TfrmSearchLog.GetChannelList: TStrings;
+begin
+  Result := cbxChannel.Items;
+end;
+
+function TfrmSearchLog.GetGhostList: TStrings;
+begin
+  Result := cbxGhost.Items;
+end;
+
+procedure TSearchCond.SetSearchLogRange(const Value: TSearchLogRange);
+begin
+  FSearchLogRange := Value;
+end;
+
 end.