| 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 |
|
|
| 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; |
| 1228 |
SelectComboBoxSplitter.Parent := ListToolBar; |
SelectComboBoxSplitter.Parent := ListToolBar; |
| 1229 |
|
|
| 1230 |
break; |
break; |
| 1231 |
end; |
end; |
| 1232 |
end; |
end; |
| 1233 |
except |
except |
| 1234 |
end; |
end; |
| 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 |
// |
// |
| 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 |
|
|
| 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. |