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.243 by yoffy, Mon Apr 5 11:02:40 2004 UTC revision 1.244 by yoffy, Mon Apr 5 13:42:22 2004 UTC
# Line 4760  end; Line 4760  end;
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

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