OSDN Git Service

ネットワークがオフラインの時に、送信で例外が発生する不具合の修正
[gikonavigoeson/gikonavi.git] / ResPopupBrowser.pas
index 1263b9a..1be0fea 100644 (file)
@@ -370,7 +370,7 @@ begin
     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);