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.5 by h677, Sun Aug 13 01:14:19 2006 UTC revision 1.6 by h677, Sun Aug 27 10:18:37 2006 UTC
# Line 152  begin Line 152  begin
152      // 出し位置による補正      // 出し位置による補正
153          case GikoSys.Setting.PopupPosition of          case GikoSys.Setting.PopupPosition of
154                  gppRightTop:            OffsetRect(Result,                  gppRightTop:            OffsetRect(Result,
155              Point.x - (Result.Right - Result.Left) - 15, Point.y - (Result.Bottom - Result.Top) -       15);              Point.x - WindowWidth - 15, Point.y - WindowHeight -        15);
156                  gppRight:                       OffsetRect(Result,                  gppRight:                       OffsetRect(Result,
157              Point.x - (Result.Right - Result.Left) - 15, Point.y - ((Result.Bottom - Result.Top) div 2));              Point.x - WindowWidth - 15, Point.y - (WindowHeight div 2));
158                  gppRightBottom: OffsetRect(Result,                  gppRightBottom: OffsetRect(Result,
159              Point.x - (Result.Right - Result.Left) - 15, Point.y + 15);              Point.x - WindowWidth - 15, Point.y + 15);
160                  gppTop:                         OffsetRect(Result,                  gppTop:                         OffsetRect(Result,
161              Point.x - ((Result.Right - Result.Left) div 2), Point.y - (Result.Bottom - Result.Top) -    15);              Point.x - (WindowWidth div 2), Point.y - WindowHeight - 15);
162                  gppCenter:                      OffsetRect(Result,                  gppCenter:                      OffsetRect(Result,
163              Point.x - ((Result.Right - Result.Left) div 2), Point.y - ((Result.Bottom - Result.Top) div 2));              Point.x - (WindowWidth div 2), Point.y - (WindowHeight div 2));
164                  gppBottom:                      OffsetRect(Result,                  gppBottom:                      OffsetRect(Result,
165              Point.x - ((Result.Right - Result.Left) div 2), Point.y + 15);              Point.x - (WindowWidth div 2), Point.y + 15);
166                  gppLeftTop:                     OffsetRect(Result,                  gppLeftTop:                     OffsetRect(Result,
167              Point.x + 15, Point.y - (Result.Bottom - Result.Top) -      15);              Point.x + 15, Point.y - WindowHeight -      15);
168                  gppLeft:                        OffsetRect(Result,                  gppLeft:                        OffsetRect(Result,
169              Point.x + 15, Point.y - ((Result.Bottom - Result.Top) div 2));              Point.x + 15, Point.y - (WindowHeight div 2));
170                  gppLeftBottom:  OffsetRect(Result, Point.x + 15, Point.y + 15);         //ギコナビスレ パート1の453氏に感謝                  gppLeftBottom:  OffsetRect(Result, Point.x + 15, Point.y + 15);         //ギコナビスレ パート1の453氏に感謝
171          end;          end;
172    

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

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