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.31 by h677, Fri Aug 29 12:44:33 2003 UTC revision 1.32 by hi_, Fri Aug 29 17:52:18 2003 UTC
# Line 717  type Line 717  type
717        Button: TMouseButton; Shift: TShiftState; X, Y: Integer);        Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
718      procedure SelectComboBoxSplitterMouseUp(Sender: TObject;      procedure SelectComboBoxSplitterMouseUp(Sender: TObject;
719        Button: TMouseButton; Shift: TShiftState; X, Y: Integer);        Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
720        procedure StatusBarResize(Sender: TObject);
721          private          private
722                  { Private 宣言 }                  { Private 宣言 }
723    
# Line 936  var Line 937  var
937          Style: DWORD;          Style: DWORD;
938          msg: string;          msg: string;
939          i: Integer;          i: Integer;
 //      CoolSet: TCoolSet;  
940          wp: TWindowPlacement;          wp: TWindowPlacement;
941            s: string;
942  begin  begin
943  {$IFDEF DEBUG}  {$IFDEF DEBUG}
944          AllocConsole;          AllocConsole;
# Line 1227  begin Line 1228  begin
1228          SelectComboBoxSplitter.Parent := ListToolBar;          SelectComboBoxSplitter.Parent := ListToolBar;
1229    
1230          break;          break;
1231        end;                          end;
1232      end;      end;
1233    except    except
1234    end;    end;
# Line 1268  begin Line 1269  begin
1269  //      SetStdToolBar;  //      SetStdToolBar;
1270  //      SetLinkBar;  //      SetLinkBar;
1271    
1272      StatusBar.Panels.Items[2].Text := GikoSys.FAbon.NGwordname;          s := GikoSys.FAbon.NGwordname;
1273            StatusBar.Panels[2].Text := s;
1274            StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
1275            StatusBarResize(Sender);
1276  end;  end;
1277    
1278  //  //
# Line 6912  end; Line 6916  end;
6916    
6917  procedure TGikoForm.GoBackClick(Sender: TObject);  procedure TGikoForm.GoBackClick(Sender: TObject);
6918  var  var
6919      ThreadItem : TThreadItem;                  ThreadItem : TThreadItem;
6920                    s: string;
6921  begin  begin
6922      if GikoSys.FAbon.GoForward =false then begin                  if GikoSys.FAbon.GoForward =false then begin
6923                  MsgBox(Handle, '一つ前のNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);                  MsgBox(Handle, '一つ前のNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
6924      end else begin                  end else begin
6925          StatusBar.Panels.Items[2].Text := GikoSys.FAbon.NGwordname;                                  s := GikoSys.FAbon.NGwordname;
6926          //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。                                  StatusBar.Panels.Items[2].Text := s;
6927          ThreadItem := GetActiveContent;                                  StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
6928              if ThreadItem <> nil then                                  StatusBarResize(Sender);
6929                  SetContent( ThreadItem );                                  //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。
6930      end;                          ThreadItem := GetActiveContent;
6931                            if ThreadItem <> nil then
6932                                                                    SetContent( ThreadItem );
6933                    end;
6934    
6935  end;  end;
6936    
6937  procedure TGikoForm.GoFowardClick(Sender: TObject);  procedure TGikoForm.GoFowardClick(Sender: TObject);
6938  var  var
6939      ThreadItem : TThreadItem;                  ThreadItem : TThreadItem;
6940                    s: string;
6941  begin  begin
6942      if GikoSys.FAbon.GoBack =false then begin                  if GikoSys.FAbon.GoBack =false then begin
6943                  MsgBox(Handle, '一つ後ろのNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);                  MsgBox(Handle, '一つ後ろのNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
6944      end else begin                  end else begin
6945          //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。                                  //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。
6946          StatusBar.Panels.Items[2].Text := GikoSys.FAbon.NGwordname;                                  s := GikoSys.FAbon.NGwordname;
6947              ThreadItem := GetActiveContent;                                  StatusBar.Panels.Items[2].Text := s;
6948              if ThreadItem <> nil then                                  StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
6949                  SetContent( ThreadItem );                                  StatusBarResize(Sender);
6950      end;                          ThreadItem := GetActiveContent;
6951                            if ThreadItem <> nil then
6952                                                                    SetContent( ThreadItem );
6953                    end;
6954    
6955  end;  end;
6956    
# Line 7011  begin Line 7023  begin
7023  end;  end;
7024    
7025  procedure TGikoForm.SelectComboBoxSplitterMouseUp(Sender: TObject;  procedure TGikoForm.SelectComboBoxSplitterMouseUp(Sender: TObject;
7026    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
7027    begin
7028            IsDraggingSelectComboBox := False;
7029    end;
7030    
7031    procedure TGikoForm.StatusBarResize(Sender: TObject);
7032  begin  begin
7033    IsDraggingSelectComboBox := False;          StatusBar.Panels[1].Width := StatusBar.Width -
7034                                                                                                                             StatusBar.Panels[0].Width -
7035                                                                                                                             StatusBar.Panels[2].Width;
7036  end;  end;
7037    
7038  initialization  initialization
7039          OleInitialize(nil);                                  OleInitialize(nil);
7040  finalization  finalization
7041          OleUninitialize;                                  OleUninitialize;
7042  end.  end.

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

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