Как сделать расстояние между края картинки и панели одинаковыми во всех ячейках? У меня почему-то идет смещение картинок внутри панели.
procedure TForm1.FormCreate(Sender: TObject);
var
X, Y: Integer;
PanelArray: Array [1 .. 5, 1 .. 5] of TPanel;
ImgArray: Array [1 .. 5, 1 .. 5] of TImage;
begin
for Y := 1 to 5 do
for X := 1 to 5 do
begin
PanelArray[X, Y] := TPanel.Create(Self);
PanelArray[X, Y].Parent := Self;
PanelArray[X, Y].Color := clBtnFace;
PanelArray[X, Y].BevelInner := bvNone;
PanelArray[X, Y].BevelKind := bkNone;
PanelArray[X, Y].BevelOuter := bvRaised;
PanelArray[X, Y].Left := X * 170 - 150; // расстояние между панелями по горизонтали
PanelArray[X, Y].Top := Y * 170 - 150; // расстояние между панелями по вертикали
PanelArray[X, Y].Width := 150; // ширина панели
PanelArray[X, Y].Height := 155; // высота панели
ImgArray[X, Y] := TImage.Create(PanelArray[X, Y]);
ImgArray[X, Y].Parent := PanelArray[X, Y];
ImgArray[X, Y].Left := x * 10 - 8;
ImgArray[X, Y].Top := y * 10 - 8;
ImgArray[X, Y].Width := 100;
ImgArray[X, Y].Height := 100;
ImgArray[X, Y].Picture.LoadFromFile(IntToStr(x) + '.bmp');
end;
end;
TGridPanel