Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 4760 |
|
|
| 4761 |
procedure TGikoForm.FormResize(Sender: TObject); |
procedure TGikoForm.FormResize(Sender: TObject); |
| 4762 |
begin |
begin |
| 4763 |
MessageListView.Column[0].Width := MessageListView.ClientWidth - 32; |
MessageListView.Column[0].Width := MessageListView.ClientWidth - 32; |
| 4764 |
MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width; |
MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width; |
| 4765 |
|
|
| 4766 |
|
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 4767 |
|
if GikoSys.Setting.ListWidthState = glsMin then begin |
| 4768 |
|
// 最小表示にする |
| 4769 |
|
ViewPanel.Width := ThreadMainPanel.Width - 80; |
| 4770 |
|
end; |
| 4771 |
|
end else begin |
| 4772 |
|
if GikoSys.Setting.ListHeightState = glsMin then begin |
| 4773 |
|
// 最小表示にする |
| 4774 |
|
ViewPanel.Height := ThreadMainPanel.Height - BrowserCoolBar.Height - 7; |
| 4775 |
|
end; |
| 4776 |
|
end; |
| 4777 |
|
|
| 4778 |
ResizeTimer.Enabled := True; |
ResizeTimer.Enabled := True; |
| 4779 |
end; |
end; |
| 4780 |
|
|
|
|
Legend:
| Removed from v.1.243 |
|
| changed lines |
| |
Added in v.1.244 |
|
|
|