Verhalten von Align in D2006 und D2007 geändert.

[MaBuSE]

Hallo,
In der Komponente TControl (und allen davon abgeleiteten Komponenten) hat sich das Verhalten von Align geändert.

Anleitung zum Reproduzieren des Features:

• eine neue Anwendung in z.B. Delphi 7 erstellen
• ein TMemo auf das leere Form legen
• Memo1.Align im Objektinspektor auf alClient setzten -> Das Memo füllt das ganze Form aus.
• Memo1.Align im Objektinspektor auf alNone setzten -> Das Memo füllt immer noch das ganze Form aus.

In Delphi 2006 oder 2007:

• eine neue Anwendung in z.B. Delphi 2007 für Win32 erstellen
• ein TMemo auf das leere Form legen
• Memo1.Align im Objektinspektor auf alClient setzten -> Das Memo füllt das ganze Form aus.
• Memo1.Align im Objektinspektor auf alNone setzten -> Das Memo hat wieder die ursprüngliche Position und Größe.

Die alten Werte sind in den readonly Eigenschaften ExplicitLeft, ExplicitTop, ExplicitWidth und ExplicitHeight gespeichert.

Die ExplicitLeft Eigenschaft wird dem ein oder anderen durch die Fehlermeldung "property ExplicitLeft not found" bekannt sein.
(bzw: "Im Projekt Project1.exe ist eine Exception der Klasse EReadError mit der Meldung 'Eigenschaft ExplicitLeft existiert nicht.' aufgetreten.")
Die ExplicitLeft wurde in D2006 eingeführt.

Die Align Funktionalität ist in der Komponente TControl gekapselt.

In D7 wird in SetAlign folgendes gemacht:

Delphi-Quellcode:

...
    if ... then
        SetBounds(Left, Top, Height, Width)
      else
        AdjustSize;
...

In D2007 wird dort auf ExplicitXXX zugegriffen.

Delphi-Quellcode:

...
      if ... then
        SetBounds(Left, Top, Height, Width)
      else if (OldAlign <> alNone) and (Value = alNone) then
        SetBounds(FExplicitLeft, FExplicitTop, FExplicitWidth, FExplicitHeight)
      else
        AdjustSize;
...

Die ExplicitXXX Properties werden in D2007 in SetLeft, SetTop, SetWidth und SetHeight explizit gesetzt.

Delphi-Quellcode:

...
procedure TControl.SetLeft(Value: Integer);
begin
  SetBounds(Value, FTop, FWidth, FHeight);
  Include(FScalingFlags, sfLeft);
  if csReading in ComponentState then
    FExplicitLeft := FLeft;
end;
...

Im Vergleich dazu die D7 Source:

Delphi-Quellcode:

...
procedure TControl.SetLeft(Value: Integer);
begin
  SetBounds(Value, FTop, FWidth, FHeight);
  Include(FScalingFlags, sfLeft);
end;
...

Es ist also kein Bug, sondern ein Feature !!!

Es sollten alle Programmstellen bearbeitet werden, in denen ein

Delphi-Quellcode:

Align := alClient; 
Align := alNone;

gemacht wird, um das Control der Containergröße anzupassen. (z.B. in diversen Freeware Komponenten)

Viele Grüße
MaBuSE