mal wieder 'ne Uhr

[nahpets]

Habe das Programm mit Delphi 7 geöffnet, kompiliert: passt.

Aber trotzdem hab' ich mal am Quelltext was geändert, damit zur Laufzeit die Bilder positioniert werden können.

Damit könnten dann eventuelle Bildgrößenänderungen (die von wem auch immer da reingewuselt werden) zu einer neuen Positionierung führen, so das hoffentlich) am Ende doch alles passt.

Delphi-Quellcode:

procedure TfrmMain.FormShow(Sender: TObject);
var
  hwndOwner: HWnd;
begin
  hwndOwner := GetWindow(Handle, GW_OWNER);
  ShowWindow(hwndOwner, SW_HIDE);
  Application.Icon := frmMain.Icon;
  if sLeft <> -99999 then frmMain.Left := sLeft;
  if sTop  <> -99999 then frmmain.Top  := sTop;
  Image8.Left := 0;
  img1.Left   := Image8.Left + Image8.Width;
  Image1.Left := img1.left   + img1.Width;
  img2.Left   := Image1.Left + Image1.Width;
  Image2.Left := img2.Left   + img2.Width;
  dp1.Left    := Image2.Left + Image2.Width;
  Image3.Left := dp1.Left    + dp1.Width;
  img3.Left   := Image3.Left + Image3.Width;
  Image4.Left := img3.Left   + img3.Width;
  img4.Left   := Image4.Left + Image4.Width;
  Image5.Left := img4.Left   + img4.Width;
  dp2.Left    := Image5.Left + Image5.Width;
  Image6.Left := dp2.Left    + dp2.Width;
  img5.Left   := Image6.Left + Image6.Width;
  Image7.Left := img5.Left   + img5.Width;
  img6.Left   := Image7.Left + Image7.Width;
  Image9.Left := img6.Left   + img6.Width;

  Image10.Top := 0;
  Image8.Top  := Image10.Top + Image10.Height;
  img1.Top    := Image8.Top;
  Image1.Top  := Image8.Top;
  img2.Top    := Image8.Top;
  Image2.Top  := Image8.Top;
  dp1.Top     := Image8.Top;
  Image3.Top  := Image8.Top;
  img3.Top    := Image8.Top;
  Image4.Top  := Image8.Top;
  img4.Top    := Image8.Top;
  Image5.Top  := Image8.Top;
  dp2.Top     := Image8.Top;
  Image6.Top  := Image8.Top;
  img5.Top    := Image8.Top;
  Image7.Top  := Image8.Top;
  img6.Top    := Image8.Top;
  Image9.Top  := Image8.Top;

  Image11.Top := Image8.Top + Image8.Height;

  frmMain.ClientWidth  := Image11.Width;
  frmMain.ClientHeight := Image11.Height + Image11.Top;

  ChangeDP(DColor);
  Timer1Timer(Self);
end;