| 182 |
N15: TMenuItem; |
N15: TMenuItem; |
| 183 |
SelectListReloadAction: TAction; |
SelectListReloadAction: TAction; |
| 184 |
SelectThreadReloadAction: TAction; |
SelectThreadReloadAction: TAction; |
| 185 |
SelectTimer: TTimer; |
ResizeTimer: TTimer; |
| 186 |
KokoPopupMenu: TPopupMenu; |
KokoPopupMenu: TPopupMenu; |
| 187 |
KokomadePMenu: TMenuItem; |
KokomadePMenu: TMenuItem; |
| 188 |
AllPMenu: TMenuItem; |
AllPMenu: TMenuItem; |
| 626 |
procedure ShowThreadActionUpdate(Sender: TObject); |
procedure ShowThreadActionUpdate(Sender: TObject); |
| 627 |
procedure ShowBoardActionUpdate(Sender: TObject); |
procedure ShowBoardActionUpdate(Sender: TObject); |
| 628 |
procedure SelectThreadReloadActionUpdate(Sender: TObject); |
procedure SelectThreadReloadActionUpdate(Sender: TObject); |
| 629 |
procedure SelectTimerTimer(Sender: TObject); |
procedure ResizeTimerTimer(Sender: TObject); |
| 630 |
procedure ItemReloadActionUpdate(Sender: TObject); |
procedure ItemReloadActionUpdate(Sender: TObject); |
| 631 |
procedure ListViewDblClick(Sender: TObject); |
procedure ListViewDblClick(Sender: TObject); |
| 632 |
procedure LogDeleteActionExecute(Sender: TObject); |
procedure LogDeleteActionExecute(Sender: TObject); |
| 4741 |
procedure TGikoForm.FormResize(Sender: TObject); |
procedure TGikoForm.FormResize(Sender: TObject); |
| 4742 |
begin |
begin |
| 4743 |
MessageListView.Column[0].Width := MessageListView.ClientWidth - 32; |
MessageListView.Column[0].Width := MessageListView.ClientWidth - 32; |
| 4744 |
MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width; |
MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width; |
| 4745 |
|
ResizeTimer.Enabled := True; |
|
FOldFormWidth := Width; |
|
|
if FIsIconiced then begin |
|
|
FIsIconiced := False; |
|
|
end; |
|
| 4746 |
end; |
end; |
| 4747 |
|
|
| 4748 |
procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject); |
procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject); |
| 4828 |
ActiveLogDeleteAction.Enabled := GetActiveContent <> nil; |
ActiveLogDeleteAction.Enabled := GetActiveContent <> nil; |
| 4829 |
end; |
end; |
| 4830 |
|
|
| 4831 |
procedure TGikoForm.SelectTimerTimer(Sender: TObject); |
procedure TGikoForm.ResizeTimerTimer(Sender: TObject); |
| 4832 |
begin |
begin |
| 4833 |
SelectTimer.Enabled := False; |
FOldFormWidth := Width; |
| 4834 |
ListClick; |
if FIsIconiced then begin |
| 4835 |
|
FIsIconiced := False; |
| 4836 |
|
end; |
| 4837 |
|
ResizeTimer.Enabled := False; |
| 4838 |
end; |
end; |
| 4839 |
|
|
| 4840 |
procedure TGikoForm.ListViewDblClick(Sender: TObject); |
procedure TGikoForm.ListViewDblClick(Sender: TObject); |