Panel Zentrieren...

[Delbor]

Hi zusammen

Ich hab jetzt länger gesucht, aber keine Antwort auf mein Problem gefundn. Mein erster gedanke: Es liegt an unterschiedlichen Koordinatensystemen. Die antwort wäre wohl ParentToClient oder umgekehrt.
Bloss - wie bringe ich Client.Width und Parent.Padding "zusammen" ?

Mein Ansatz (ohne TGridPanel...):

Delphi-Quellcode:

function TPnlCalendarFrame.GetParentControlPostion(AParentCtrl : TPanel): integer;
  var Widthtotal : Word;
begin
  Widthtotal := (6 * FDayNumberFrame.Width);
  Result := (AParentCtrl.ClientWidth div 2) - (Widthtotal div 2);
end;


procedure TPnlCalendarFrame.CreateDayNumberFrame(AMonth: Integer);
  var LMonat, LName :String; LYear, LMonth, LDay : Word;
begin
  System.SysUtils.DecodeDate(FFirstMonthDay, LYear, LMonth, LDay);
  FDayNumberFrame := TDayNumberFrame.Create(Self);
  LMonat := Monate[AMonth];
  LName := LMonat + 'Frame';
  case AMonth of
    1..6: begin
            FParentCtrl := PnlSixMonts1;
            FParentCtrl.Padding.Left := GetParentControlPostion(FParentCtrl);
          end;
    7..12:begin
            FParentCtrl := PnlSixMonts2;

          end;
  end;
  FDayNumberFrame.LblCaption.Caption := LMonat;
  FDayNumberFrame.Name := LName;
  FDayNumberFrame.InitDayNumberFrame;
  FDayNumberFrame.FirstMonthDay := StartOfAMonth(LYear, AMonth);
  FDayNumberFrame.LastMonthDay := EndOfAMonth(LYear, AMonth);
  FDayNumberFrame.Parent := FParentCtrl;
  FDayNumberFrame.Align := alLeft;
  FDayNumberFrame.Visible := true;
  FDayNumberFrame.HorzDayNumbersMonths;
end;

Und so schauts dann aus:
Pnl_MonthParents 1.jpg

Dass die Reihenfolge der Monate durcheinanderkommt, bemerke ich auch erst jetzt...
Dass das Monatspanel über den linken Rand hinausragt, führe ich auf die unterschiedlichen Koordinatensysteme beider Panels zurück. Das schreit nach ClienttoParent... Blos: wie bringt man TPoint und integer (AParentCtrl.ClientWidth) zusammen?

Gruss
Delbor