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.2 by h677, Sun Jun 10 14:46:32 2007 UTC revision 1.3 by h677, Tue Aug 21 15:12:36 2007 UTC
# Line 53  type Line 53  type
53          end;          end;
54    
55  implementation  implementation
56  uses MojuUtils, GikoSystem, Setting, Giko, GikoDataModule;  uses MojuUtils, GikoSystem, Setting, Giko, GikoDataModule, Preview;
57    
58    const
59        // 要望によっては変更できるようにする。
60        // マウスカーソルからのずらし位置
61        DIV_X = 12;
62        DIV_Y = 8;
63    
64  constructor TResPopupBrowser.Create(AOwner: TComponent);  constructor TResPopupBrowser.Create(AOwner: TComponent);
65  begin  begin
# Line 279  begin Line 284  begin
284      case GikoSys.Setting.PopupPosition of      case GikoSys.Setting.PopupPosition of
285          gppRightTop:          gppRightTop:
286          begin          begin
287              dx1 := 0; dx2 := -2;              dx1 := 0; dx2 := + DIV_X;
288              dy1 := -h; dy2 := -2;              dy1 := -h; dy2 := - DIV_Y;
289          end;          end;
290          gppRight:          gppRight:
291          begin          begin
292              dx1 := 0; dx2 := -2;              dx1 := 0; dx2 := + DIV_X;
293              dy1 := - (h div 2); dy2 := 0;              dy1 := - (h div 2); dy2 := 0;
294          end;          end;
295          gppRightBottom:          gppRightBottom:
296          begin          begin
297              dx1 := 0; dx2 := -2;              dx1 := 0; dx2 := + DIV_X;
298              dy1 := 0; dy2 := +2;              dy1 := 0; dy2 := + DIV_Y;
299          end;          end;
300          gppTop:          gppTop:
301          begin          begin
302              dx1 := - (w div 2); dx2 := 0;              dx1 := - (w div 2); dx2 := 0;
303              dy1 := -h; dy2 := -2;              dy1 := -h; dy2 := - DIV_Y;
304          end;          end;
305          // 廃止 gppCenter: OffsetRect(Result, p.x - (w div 2), p.y - (h div 2));          // 廃止 gppCenter: OffsetRect(Result, p.x - (w div 2), p.y - (h div 2));
306          gppBottom:          gppBottom:
307          begin          begin
308              dx1 := - (w div 2); dx2 := 0;              dx1 := - (w div 2); dx2 := 0;
309              dy1 := 0; dy2 := +2;              dy1 := 0; dy2 := + DIV_Y;
310          end;          end;
311          gppLeftTop:          gppLeftTop:
312          begin          begin
313              dx1 := -w; dx2 := +2;              dx1 := -w; dx2 := - DIV_X ;
314              dy1 := -h; dy2 := -2;              dy1 := -h; dy2 := - DIV_Y;
315          end;          end;
316          gppLeft:          gppLeft:
317          begin          begin
318              dx1 := -w; dx2 := +2;              dx1 := -w; dx2 := - DIV_X;
319              dy1 := - (h div 2); dy2 := 0;              dy1 := - (h div 2); dy2 := 0;
320          end;          end;
321          gppLeftBottom:          gppLeftBottom:
322          begin          begin
323              dx1 := -w; dx2 := +2;              dx1 := -w; dx2 := - DIV_X;
324              dy1 := 0; dy2 := +2;              dy1 := 0; dy2 := + DIV_Y;
325          end;          end;
326      end;      end;
327      // 初期位置に移動      // 初期位置に移動

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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