Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.34 by yoffy, Sat Aug 30 14:38:22 2003 UTC revision 1.35 by h677, Tue Sep 2 13:27:07 2003 UTC
# Line 18  uses Line 18  uses
18          GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload,          GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload,
19          Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,          Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,
20          FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,          FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,
21          HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil;          HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,
22        IndividualAbon;
23    
24  type  type
25          TGikoTreeType = (gttNone, gtt2ch, gttHistory);          TGikoTreeType = (gttNone, gtt2ch, gttHistory);
# Line 459  type Line 460  type
460      GoFowardAction: TAction;      GoFowardAction: TAction;
461      GoBackAction: TAction;      GoBackAction: TAction;
462      SelectComboBoxSplitter: TImage;      SelectComboBoxSplitter: TImage;
463        IndividualAbon1: TMenuItem;
464        N41: TMenuItem;
465        IndividualAbon2: TMenuItem;
466        N42: TMenuItem;
467                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
468                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
469                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 718  type Line 723  type
723      procedure SelectComboBoxSplitterMouseUp(Sender: TObject;      procedure SelectComboBoxSplitterMouseUp(Sender: TObject;
724        Button: TMouseButton; Shift: TShiftState; X, Y: Integer);        Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
725      procedure StatusBarResize(Sender: TObject);      procedure StatusBarResize(Sender: TObject);
726        procedure IndividualAbon1Click(Sender: TObject);
727        procedure IndividualAbon2Click(Sender: TObject);
728        procedure N42Click(Sender: TObject);
729          private          private
730                  { Private 宣言 }                  { Private 宣言 }
731    
# Line 6921  begin Line 6929  begin
6929      if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin      if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin
6930                  MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);                  MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
6931      end else begin      end else begin
6932          //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。                  ThreadItem := GetActiveContent;
6933          ThreadItem := GetActiveContent;                  if ThreadItem <> nil then
         if ThreadItem <> nil then  
6934                  SetContent( ThreadItem );                  SetContent( ThreadItem );
6935      end;      end;
6936    
# Line 6941  begin Line 6948  begin
6948                                  StatusBar.Panels.Items[2].Text := s;                                  StatusBar.Panels.Items[2].Text := s;
6949                                  StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);                                  StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
6950                                  StatusBarResize(Sender);                                  StatusBarResize(Sender);
                                 //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。  
6951                          ThreadItem := GetActiveContent;                          ThreadItem := GetActiveContent;
6952                          if ThreadItem <> nil then                          if ThreadItem <> nil then
6953                                                                  SetContent( ThreadItem );                                                                  SetContent( ThreadItem );
# Line 6957  begin Line 6963  begin
6963                  if GikoSys.FAbon.GoBack =false then begin                  if GikoSys.FAbon.GoBack =false then begin
6964                  MsgBox(Handle, '一つ後ろのNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);                  MsgBox(Handle, '一つ後ろのNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
6965                  end else begin                  end else begin
                                 //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。  
6966                                  s := GikoSys.FAbon.NGwordname;                                  s := GikoSys.FAbon.NGwordname;
6967                                  StatusBar.Panels.Items[2].Text := s;                                  StatusBar.Panels.Items[2].Text := s;
6968                                  StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);                                  StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
# Line 7049  begin Line 7054  begin
7054                                                                                                                           StatusBar.Panels[0].Width -                                                                                                                           StatusBar.Panels[0].Width -
7055                                                                                                                           StatusBar.Panels[2].Width;                                                                                                                           StatusBar.Panels[2].Width;
7056  end;  end;
7057    //個別あぼーん「通常」
7058    procedure TGikoForm.IndividualAbon1Click(Sender: TObject);
7059    var
7060            ThreadItem : TThreadItem;
7061    begin
7062            GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag,1);
7063        ThreadItem := GetActiveContent;
7064        if ThreadItem <> nil then
7065            SetContent( ThreadItem );
7066    end;
7067    //個別あぼーん「透明」
7068    procedure TGikoForm.IndividualAbon2Click(Sender: TObject);
7069    var
7070            ThreadItem : TThreadItem;
7071    begin
7072            GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag,0);
7073        ThreadItem := GetActiveContent;
7074        if ThreadItem <> nil then
7075            SetContent( ThreadItem );
7076    end;
7077    //個別あぼーん解除
7078    procedure TGikoForm.N42Click(Sender: TObject);
7079    var
7080            IndividualForm :TIndividualAbonForm;
7081        ThreadItem : TThreadItem;
7082        i : Integer;
7083        msg : String;
7084    begin
7085        try
7086                    IndividualForm := TIndividualAbonForm.Create(Self);
7087            if GikoSys.FAbon.GetAbonResCount <> 0 then begin
7088                for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin
7089                            IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i));
7090                end;
7091                if IndividualForm.ShowModal = mrOK then begin
7092                    GikoSys.FAbon.DeleteIndividualAbon(IndividualForm.ResNumber);
7093                end;
7094                        ThreadItem := GetActiveContent;
7095                    if ThreadItem <> nil then
7096                            SetContent( ThreadItem );
7097            end else begin
7098                    msg := 'このスレッドでは個別あぼーんを行ってません';
7099                            MsgBox(Handle, msg, 'メッセージ', MB_OK);
7100            end;
7101        finally
7102            IndividualForm.Free;
7103        end;
7104    end;
7105    
7106  initialization  initialization
7107                                  OleInitialize(nil);                                  OleInitialize(nil);

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26