Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ResPopupBrowser.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by h677, Tue May 5 11:32:21 2009 UTC revision 1.11 by h677, Tue Mar 23 14:53:31 2010 UTC
# Line 370  begin Line 370  begin
370      end;      end;
371      if (Result.Right > WorkArea.Right) then begin      if (Result.Right > WorkArea.Right) then begin
372          // 逆サイドに余裕があれば、出力位置の左右転換          // 逆サイドに余裕があれば、出力位置の左右転換
373          if ((p.X - WorkArea.Left) * 2 > WorkArea.Right) then begin          if ((p.X - WorkArea.Left) * 2 > MaxWidth) then begin
374              if( (GikoSys.Setting.PopupPosition = gppTop) or              if( (GikoSys.Setting.PopupPosition = gppTop) or
375                  (GikoSys.Setting.PopupPosition = gppBottom)) then begin                  (GikoSys.Setting.PopupPosition = gppBottom)) then begin
376                  OffsetRect(Result, -(Result.Right - WorkArea.Right), 0);                  OffsetRect(Result, -(Result.Right - WorkArea.Right), 0);

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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