| 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 |
| 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 |
// 初期位置に移動 |
// 初期位置に移動 |