难!难!难!image显示问题!

Question

INI文件
[ini]
width=200
height=200
X=8
Y=56
排列=1
;0:水平；1：垂直image1图像来源ClipBoard将image1根据x分成若干等份，其中一些显示图像，一些不显示(黑色)
(如果排列=水平，根据x, 把form的width平分，如果排列=垂直，根据x, 把form的height平分)
效果如下(水平)：width 1---------------------------------------200
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图| height
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   1
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   |
...                                                 ...
|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|黑|图|   200
    1     2     3     4     5     6     7     8垂直：
width: 1~~200 height: 1~~200
------------------------------------------------
黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑
------------------------------------------------
图图图图图图图图图图图图图图图图图图图图图图图图  1
------------------------------------------------
黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑  
------------------------------------------------
图图图图图图图图图图图图图图图图图图图图图图图图  2
------------------------------------------------
黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑
------------------------------------------------
图图图图图图图图图图图图图图图图图图图图图图图图  3
...
------------------------------------------------
黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑黑
------------------------------------------------
图图图图图图图图图图图图图图图图图图图图图图图图  8
------------------------------------------------附VB源码：排列=0
        For I = 1 To 31
            Unload GAME.VERPIC(I)
        Next I
        YDLT = (GAME.Picture1.Width - 2) / XDOTS
        XDLT = (GAME.Picture1.Height - 2) / YDOTS
        I = 1
        Load GAME.HORPIC(I)
        With GAME.HORPIC(I)
            .Top = 1
            .Left = 0
            .Height = XDLT / 4
            .Width = GAME.HORPIC(I).Width
            .ZOrder (0)
        End With
        GAME.HORPIC(I).Visible = True
        For I = 2 To YDOTS ' + 1
            Load GAME.HORPIC(I)
            With GAME.HORPIC(I)
                .Top = ((I - 2) + 3 / 4) * XDLT + 1
                .Left = 0
                .Height = XDLT / 2
                .Width = GAME.HORPIC(I).Width
                .ZOrder (0)
            End With
            GAME.HORPIC(I).Visible = True
        Next I
        Load GAME.HORPIC(I)
        With GAME.HORPIC(I)
            .Top = ((I - 2) + 3 / 4) * XDLT + 1
            .Left = 0
            .Height = XDLT / 4
            .Width = GAME.HORPIC(I).Width
            .ZOrder (0)
        End With
        GAME.HORPIC(I).Visible = True
        
排列=1
        For I = 1 To 31
            Unload GAME.HORPIC(I)
        Next I
        XDLT = (GAME.Picture1.Width - 2) / YDOTS
        YDLT = (GAME.Picture1.Width - 2) / XDOTS
        I = 1
        Load GAME.VERPIC(I)
        With GAME.VERPIC(I)
            .Top = 0
            .Left = 1
            .Width = XDLT / 4
            .Height = GAME.VERPIC(I).Height
            .ZOrder (0)
        End With
        GAME.VERPIC(I).Visible = True
        For I = 2 To YDOTS
            Load GAME.VERPIC(I)
            With GAME.VERPIC(I)
                .Left = ((I - 2) + 3 / 4) * XDLT + 1
                .Top = 0
                .Width = XDLT / 2
                .Height = GAME.VERPIC(I).Height
                .ZOrder (0)
            End With
            GAME.VERPIC(I).Visible = True
        Next I
        Load GAME.VERPIC(I)
        With GAME.VERPIC(I)
            .Left = ((I - 2) + 3 / 4) * XDLT + 1
            .Top = 0
            .Width = XDLT / 4
            .Height = GAME.VERPIC(I).Height
            .ZOrder (0)
        End With
        GAME.VERPIC(I).Visible = True

Answer 1

放一个TImage组件,放一张图片上去,放两个TButton,代码如下!unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,     StdCtrls, ExtCtrls;const
  X = 8;type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    FSplit: Integer;
  public
    { 公共成员（变量、函数）声明 }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Rect: TRect;
begin
  FSplit := Image1.Width div x;
  with Image1.Canvas do
  begin
    Brush.Color := clBlack;
    I := 0;
    while I < Width do
    begin
      with Rect do
      begin
        Left := I;
        Top := 0;
        Bottom := Height;
        Right := I+X;
      end;
      FillRect(Rect);
      Inc(I,x*2);
    end;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
  Rect: TRect;
begin
  FSplit := Image1.Height div x;
  with Image1.Canvas do
  begin
    Brush.Color := clBlack;
    I := 0;
    while I < Height do
    begin
      with Rect do
      begin
        Left := 0;
        Top := I;
        Bottom := I+X;
        Right := Width;
      end;
      FillRect(Rect);
      Inc(I,x*2);
    end;
  end;end;end.