Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Preview.pas

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

revision 1.6 by h677, Sun Aug 27 10:18:37 2006 UTC revision 1.7 by h677, Sun Aug 19 09:29:32 2007 UTC
# Line 148  begin Line 148  begin
148          end;          end;
149    
150          Result := Rect(0, 0, WindowWidth, WindowHeight);          Result := Rect(0, 0, WindowWidth, WindowHeight);
151        // bata55以前は左右が間違ってた
152      // 出し位置による補正      // 出し位置による補正
153          case GikoSys.Setting.PopupPosition of          case GikoSys.Setting.PopupPosition of
154                  gppRightTop:            OffsetRect(Result,                  gppLeftTop:             OffsetRect(Result,
155              Point.x - WindowWidth - 15, Point.y - WindowHeight -        15);              Point.x - WindowWidth - 15, Point.y - WindowHeight -        15);
156                  gppRight:                       OffsetRect(Result,                  gppLeft:                        OffsetRect(Result,
157              Point.x - WindowWidth - 15, Point.y - (WindowHeight div 2));              Point.x - WindowWidth - 15, Point.y - (WindowHeight div 2));
158                  gppRightBottom: OffsetRect(Result,                  gppLeftBottom: OffsetRect(Result,
159              Point.x - WindowWidth - 15, Point.y + 15);              Point.x - WindowWidth - 15, Point.y + 15);
160                  gppTop:                         OffsetRect(Result,                  gppTop:                         OffsetRect(Result,
161              Point.x - (WindowWidth div 2), Point.y - WindowHeight - 15);              Point.x - (WindowWidth div 2), Point.y - WindowHeight - 15);
# Line 163  begin Line 163  begin
163              Point.x - (WindowWidth div 2), Point.y - (WindowHeight div 2));              Point.x - (WindowWidth div 2), Point.y - (WindowHeight div 2));
164                  gppBottom:                      OffsetRect(Result,                  gppBottom:                      OffsetRect(Result,
165              Point.x - (WindowWidth div 2), Point.y + 15);              Point.x - (WindowWidth div 2), Point.y + 15);
166                  gppLeftTop:                     OffsetRect(Result,                  gppRightTop:                    OffsetRect(Result,
167              Point.x + 15, Point.y - WindowHeight -      15);              Point.x + 15, Point.y - WindowHeight -      15);
168                  gppLeft:                        OffsetRect(Result,                  gppRight:                       OffsetRect(Result,
169              Point.x + 15, Point.y - (WindowHeight div 2));              Point.x + 15, Point.y - (WindowHeight div 2));
170                  gppLeftBottom:  OffsetRect(Result, Point.x + 15, Point.y + 15);         //ギコナビスレ パート1の453氏に感謝                  gppRightBottom:         OffsetRect(Result, Point.x + 15, Point.y + 15);         //ギコナビスレ パート1の453氏に感謝
171          end;          end;
172    
173  end;  end;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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