end;
if (Result.Right > WorkArea.Right) then begin
// \8bt\83T\83C\83h\82É\97]\97T\82ª\82 \82ê\82Î\81A\8fo\97Í\88Ê\92u\82Ì\8d¶\89E\93]\8a·
- if ((p.X - WorkArea.Left) * 2 > WorkArea.Right) then begin
+ if ((p.X - WorkArea.Left) * 2 > MaxWidth) then begin
if( (GikoSys.Setting.PopupPosition = gppTop) or
(GikoSys.Setting.PopupPosition = gppBottom)) then begin
OffsetRect(Result, -(Result.Right - WorkArea.Right), 0);