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:
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