| 394 |
procedure AllSelectActionUpdate(Sender: TObject); |
procedure AllSelectActionUpdate(Sender: TObject); |
| 395 |
private |
private |
| 396 |
{ Private 宣言 } |
{ Private 宣言 } |
|
procedure RepaintStatusBar; |
|
| 397 |
procedure ClearResFilter; |
procedure ClearResFilter; |
| 398 |
procedure SetResRange(range: Integer); |
procedure SetResRange(range: Integer); |
| 399 |
procedure SetThreadAreaHorNormal; |
procedure SetThreadAreaHorNormal; |
| 404 |
procedure SelectThreadSaveToFile(dat: Boolean); |
procedure SelectThreadSaveToFile(dat: Boolean); |
| 405 |
public |
public |
| 406 |
{ Public 宣言 } |
{ Public 宣言 } |
| 407 |
|
procedure RepaintStatusBar; |
| 408 |
published |
published |
| 409 |
{ Published 宣言 } |
{ Published 宣言 } |
| 410 |
//! TActionでGetActiveContentがnil以外で有効になる |
//! TActionでGetActiveContentがnil以外で有効になる |
| 516 |
begin |
begin |
| 517 |
//ステータスに表示されるNGワードファイル名を更新 |
//ステータスに表示されるNGワードファイル名を更新 |
| 518 |
s := GikoSys.FAbon.NGwordname; |
s := GikoSys.FAbon.NGwordname; |
| 519 |
GikoForm.StatusBar.Panels.Items[2].Text := s; |
GikoForm.StatusBar.Panels.Items[GiKo.NGWORDNAME_PANEL].Text := s; |
| 520 |
//ステータスの表示サイズのリサイズ |
//ステータスの表示サイズのリサイズ |
| 521 |
GikoForm.StatusBar.Panels[2].Width := Max(GikoForm.StatusBar.Canvas.TextWidth(s), 100); |
GikoForm.StatusBar.Panels[GiKo.NGWORDNAME_PANEL].Width |
| 522 |
|
:= Max(GikoForm.StatusBar.Canvas.TextWidth(s), 100); |
| 523 |
GikoForm.StatusBarResize(nil); |
GikoForm.StatusBarResize(nil); |
| 524 |
end; |
end; |
| 525 |
// ************************************************************************* |
// ************************************************************************* |