From e4b3e3e6e218c42f633aeee5365909bd0bde3c79 Mon Sep 17 00:00:00 2001
From: doom4ster <doom4ster@gmail.com>
Date: 星期一, 14 八月 2017 17:24:07 +0800
Subject: [PATCH] CB_IMGPSScan.cab ver2.0.1.31 修正 檢核相關視窗定位
---
ErrList.pas | 20 ++++++++++++++++++--
1 files changed, 18 insertions(+), 2 deletions(-)
diff --git a/ErrList.pas b/ErrList.pas
index f4b82eb..a7ef3c0 100644
--- a/ErrList.pas
+++ b/ErrList.pas
@@ -464,10 +464,12 @@
//if MpsViewX2.FileName <> RelaFileName then
//begin
ImageScrollBox2.LoadFromFile(RelaFileName,1);
- FindPoint(ImageScrollBox2.Graphic,UpLPoint_Rela,UpRPoint_Rela,DownLPoint_Rela,'');
+ //FindPoint(ImageScrollBox2.Graphic,UpLPoint_Rela,UpRPoint_Rela,DownLPoint_Rela,'');
+ FindPoint(ImageScrollBox2.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH,ANCHOR);
//GetFFPoint(MpsViewX2,RelaFileName); //��FreeForm���Q�r�I���
//end;
+
ShowRelaOMRErr(RelaSiteIdx);
end;
@@ -521,12 +523,26 @@
var
Site : String;
iRect : TRect;
+ SP:TShape;
begin
if RelaIdx > RelaSiteList.Count then Exit;
+ SP := TShape(FindComponent('SP'+inttostr(RelaIdx+1))); //20170327 �b�j�餤�n�ϥΦh�վB�n
+ SP.Brush.Color :=$00FEFAAD;
+ SP.Parent := ImageScrollBox1;
+ SP.Pen.Style := psSolid;
+ SP.Pen.Color := $00FEFAAD;
+ SP.Pen.Width := 1;
+ SP.Pen.Mode := pmMask;
+ SP.Left := iRect.Left;
+ SP.Top := iRect.Top;
+ SP.Width := iRect.Right-iRect.Left;
+ SP.Height := iRect.Bottom-iRect.Top;
+
Site := RelaSiteList.Strings[RelaIdx-1];
iRect := CM_Str2Rect(Site,ImageScrollBox1.Graphic.XDotsPerInch,UpLPoint_Rela);
- ShowKeyinRect(ImageScrollBox2,iRect);
+ //ShowKeyinRect(ImageScrollBox2,iRect);
+ SetKeyinRect_New(ImageScrollBox2,Site,'','',UpLPoint,UpRPoint,sp);
end;
procedure TErrlistForm.SiteNextBtClick(Sender: TObject);
--
Gitblit v1.8.0