From f577443b19a16ee59a8ac5cc8f4745c09108d3e2 Mon Sep 17 00:00:00 2001
From: Hong-Dell\Hong <chlin1022@i-mps.com>
Date: 星期四, 14 三月 2024 17:56:53 +0800
Subject: [PATCH] Ver 2,0,1,78

---
 ErrList.pas |   51 ++++++++++++++++++++++++++++++++++++++++++---------
 1 files changed, 42 insertions(+), 9 deletions(-)

diff --git a/ErrList.pas b/ErrList.pas
index ed4543d..9e60021 100644
--- a/ErrList.pas
+++ b/ErrList.pas
@@ -91,14 +91,15 @@
     //********�Q�r�w���I��T********
 
     ISB_BW: TImageScrollBox;
-    SP1:TShape;//20170630 �s�[
+    {SP1:TShape;//20170630 �s�[
     SP2:TShape;//20170630 �s�[
     SP3:TShape;//20170630 �s�[
     SP4:TShape;//20170630 �s�[
     SP5:TShape;//20170630 �s�[
     SP6:TShape;//20170630 �s�[
     SP7:TShape;//20170630 �s�[
-    SP8:TShape;//20170630 �s�[
+    SP8:TShape;//20170630 �s�[ }
+    SP : TShape;
 
     procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
     Procedure ShowOMRErr(Idx:Integer); //�e���W�q�XOMR�ˮ֥���
@@ -308,6 +309,8 @@
 end;
 
 procedure TErrlistForm.FormCreate(Sender: TObject);
+var
+  i : Integer;
 begin
   MyHotkeyid1 := GlobalAddAtom('MyHotkeyid1')- $C000;
   RegisterHotKey(Handle, MyHotkeyid1,MOD_CONTROL,Ord('D'));
@@ -315,7 +318,17 @@
   SiteList := TStringlist.Create;
   RelaSiteList := TStringlist.Create;
   ISB_BW:=TImageScrollBox.Create(Self);
-  SP1:= TShape.Create(self);
+  for i := 1 to 30 do
+  begin
+    Sp := TShape.Create(self);
+    Sp.Name := 'SP'+inttostr(i);
+  end;
+  for i := 1 to 30 do
+  begin
+    Sp := TShape.Create(self);
+    Sp.Name := 'SP_R'+inttostr(i);
+  end;
+  {SP1:= TShape.Create(self);
   SP1.Name := 'SP1';
   SP2:= TShape.Create(self);
   SP2.Name := 'SP2';
@@ -330,22 +343,32 @@
   SP7:= TShape.Create(self);
   SP7.Name := 'SP7';
   SP8:= TShape.Create(self);
-  SP8.Name := 'SP8';
+  SP8.Name := 'SP8'; }
 end;
 
 procedure TErrlistForm.FormDestroy(Sender: TObject);
+var
+  i : Integer;
 begin
   SiteList.Free;
   RelaSiteList.Free;
   ISB_BW.Free;
-  SP1.Free;
+  for i := 1 to 30 do
+  begin
+    TShape(FindComponent('SP'+inttostr(i))).Free;
+  end;
+  for i := 1 to 30 do
+  begin
+    TShape(FindComponent('SP_R'+inttostr(i))).Free;
+  end;
+  {SP1.Free;
   SP2.Free;
   SP3.Free;
   SP4.Free;
   SP5.Free;
   SP6.Free;
   SP7.Free;
-  SP8.Free;
+  SP8.Free;}
 end;
 
 procedure TErrlistForm.ImmediateBtClick(Sender: TObject);
@@ -382,6 +405,8 @@
 end;
 
 Procedure TErrlistForm.InitialData;  //��_����������A
+var
+  i : Integer;
 begin
   SitePreBt.Enabled := False;
   SiteNextBt.Enabled := False;
@@ -397,6 +422,14 @@
   Siteidx := 1;
   RelaSiteidx := 1;
   DeleteBt.Enabled := False;
+  for i := 1 to 30 do
+  begin
+    TShape(FindComponent('SP'+inttostr(i))).Parent := nil;
+  end;
+  for i := 1 to 30 do
+  begin
+    TShape(FindComponent('SP_R'+inttostr(i))).Parent := nil;
+  end;
 end;
 
 Procedure TErrlistForm.GetOMRErrini(Index:String); //���ˮ֥���ini
@@ -478,7 +511,6 @@
         //GetFFPoint(MpsViewX2,RelaFileName); //��FreeForm���Q�r�I���
 
       //end;
-
       ShowRelaOMRErr(RelaSiteIdx);
     end;
 
@@ -536,9 +568,10 @@
 begin
   if RelaIdx > RelaSiteList.Count then Exit;
 
-  SP := TShape(FindComponent('SP'+inttostr(RelaIdx+1))); //20170327 �b�j�餤�n�ϥΦh�վB�n
+  //SP := TShape(FindComponent('SP'+inttostr(RelaIdx+1))); //20170327 �b�j�餤�n�ϥΦh�վB�n
+  SP := TShape(FindComponent('SP_R'+inttostr(RelaIdx)));  //20240314 Hong �令�o��
   SP.Brush.Color :=$00FEFAAD;
-  SP.Parent := ImageScrollBox1;
+  SP.Parent := ImageScrollBox2;
   SP.Pen.Style := psSolid;
   SP.Pen.Color := $00FEFAAD;
   SP.Pen.Width := 1;

--
Gitblit v1.8.0