わかりやすくなったきがします

エラーは引き続き出ます

diff --git a/binary/Unit1.dfm b/binary/Unit1.dfm
index 9d80034..ea5c819 100644 (file)
--- a/binary/Unit1.dfm
+++ b/binary/Unit1.dfm
@@ -2,8 +2,8 @@ object Form1: TForm1
   Left = 0
   Top = 0
   Caption = 'Form1'
-  ClientHeight = 299
-  ClientWidth = 635
+  ClientHeight = 418
+  ClientWidth = 690
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -12,13 +12,13 @@ object Form1: TForm1
   Font.Style = []
   OldCreateOrder = False
   DesignSize = (
-    635
-    299)
+    690
+    418)
   PixelsPerInch = 96
   TextHeight = 13
   object Image1: TImage
-    Left = 32
-    Top = 24
+    Left = 489
+    Top = 87
     Width = 193
     Height = 193
     Picture.Data = {
@@ -47033,15 +47033,15 @@ object Form1: TForm1
     Proportional = True
   end
   object Image2: TImage
-    Left = 248
-    Top = 24
-    Width = 209
-    Height = 193
+    Left = 0
+    Top = 0
+    Width = 449
+    Height = 417
     Anchors = [akLeft, akTop, akRight, akBottom]
     Proportional = True
   end
   object Button1: TButton
-    Left = 504
+    Left = 559
     Top = 32
     Width = 75
     Height = 25
@@ -47049,5 +47049,6 @@ object Form1: TForm1
     Caption = 'Button1'
     TabOrder = 0
     OnClick = Button1Click
+    ExplicitLeft = 504
   end
 end

diff --git a/binary/Unit1.pas b/binary/Unit1.pas
index 4ea6b58..ecbcc42 100644 (file)
--- a/binary/Unit1.pas
+++ b/binary/Unit1.pas
@@ -42,14 +42,14 @@ begin
   nx := Image1.Picture.Bitmap.Width;
   ny := Image1.Picture.Bitmap.Height;
   SetLength(f, nx, ny);
-  getBinaryImage(Image1.Picture.Bitmap, f);
-  kaisu := thinning4(nx, ny, f);
-  color.rgbtBlue := 255;
-  color.rgbtGreen := 255;
-  color.rgbtRed := 255;
   bmp := TBitmap.Create;
   try
     bmp.Assign(Image1.Picture.Bitmap);
+    getBinaryImage(bmp, f);
+    kaisu := thinning4(nx, ny, f);
+    color.rgbtBlue := 255;
+    color.rgbtGreen := 255;
+    color.rgbtRed := 255;
     for j := 0 to ny - 1 do
     begin
       Pointer(g) := bmp.ScanLine[j];