Scrollbars

[himitsu]

Dem Panel ist es egal, es verkleinert sich auch, wenn dessen Inhalt nicht ganz reinpassen würde.
Die Form reagiert nur auf die Größe des Panels und da es sich in die Form einpaßt, steht es nicht über den Rand der Form drüber und deshalb braucht die Form keine Scrollbar anzuzeigen.

Du könntest höchstes dem Panel aber auch eine Minimalgröße vorgeben.

[Bjoerk]

Eine Panelmindeströße vorgeben bringt da auch nix, genau das ist mein Problem…

Bei alClient holen sich die Steuerelemente die Größe vom übergeordneten Container, die Form also von Screen, das Panel von Form usw.. Der Form ist es dabei egal, was auf dem Panel so drauf ist.

[jaenicke]

Also erstens: Warum nimmst du für das untere Panel alClient, wenn du genau das gar nicht willst? Das ist dafür gedacht, dass der vorhandene Platz ausgefüllt wird. Du willst aber eine bestimmte Größe. Wenn du nicht alClient nimmst, funktionieren auch die Scrollbars.

Zweitens: Du kannst die Scrollbox ja auf das Panel drauf legen und dahinein die Elemente, die zu groß für das Formular sein könnten.

[Bjoerk]

Ja, ich weiß, ihr habt da alle Recht. Mich bitte auch jetzt nicht falsch verstehen. Ich hab meine Gründe, warum ich das so frage. Normalerweise arbeite ich constraints usw., zur Not mit einer Scrollbox und fertig. Ich hab‘ ca. 100 Forms, bei denen das so ist, wie oben beschrieben. Wenn ich da jetzt anfange zu ändern, wird‘ ich nie mehr fertig. Dann hab ich in OnResize auch noch einiges stehen. Meine Notlösung sah bis bisher so aus:

Delphi-Quellcode:

procedure MainFormPaint;
var
  ATop, ALeft, AWidth, AHeight, SWidth, SHeight, SLeft, STop, T: integer;
begin
  ALeft:= Application.MainForm.Left;
  ATop:= Application.MainForm.Top;
  AWidth:= Application.MainForm.Width;
  AHeight:= Application.MainForm.Height;

  SWidth:= Screen.WorkAreaWidth;
  SHeight:= Screen.WorkAreaHeight;
  STop:= Screen.WorkAreaTop;
  SLeft:= Screen.WorkAreaLeft;

  if ((SWidth-AWidth) < 0) or ((SHeight-AHeight) < 0) then
  begin
    Application.MainForm.HorzScrollBar.Range:= AWidth;
    Application.MainForm.VertScrollBar.Range:= AHeight;
    AWidth:= SWidth;
    AHeight:= SHeight;
  end;

  T:= ALeft;
  while (T+SLeft+AWidth) > SWidth do Dec(T);
  if T < SLeft then T:= SLeft;
  ALeft:= T;

  T:= ATop;
  while (T+STop+AHeight) > SHeight do Dec(T);
  if T < STop then T:= STop;
  ATop:= T;

  Application.MainForm.SetBounds(ALeft, ATop, AWidth, AHeight);
end;

[Bjoerk]

Ich werd's jetzt doch ändern. So geht's eigentlich ganz gut mit relativ wenig Aufwand. Statt des einen Panels dann halt doch eine Scrollbox. Den fehlenden Text kann ich mir über eine Suchen und Ersetzenroutine vor Formcreate erst mal reinschaffen. Der Compiler bleibt ja dann später an der entsprechen Stelle stehen und ich kann's dann weiter ändern.

Delphi-Quellcode:

procedure TForm1.PageControlChange(Sender: TObject);
begin
  with PageControl do
  begin
    if ActivePage = TabSheet1 then
    begin
      Width:= GroupBox1.Width+40;
      Height:= GroupBox1.Height+50;
    end;
    if ActivePage = TabSheet2 then
    begin
      Width:= GroupBox4.Width+40;
      Height:= GroupBox4.Height+50;
    end;
    Self.ClientWidth:= Width + 2*Left;
    Self.ClientHeight:= Height + 2*Top + StatusBar.Height + Panel2.Height;
  end;
  with ScrollBox.HorzScrollBar do if IsScrollBarVisible then Position:= 0;
  with ScrollBox.VertScrollBar do if IsScrollBarVisible then Position:= 0;
  UmspeichernNachMaske(Sender);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Scaled:= false;
  PageControl.Align:= alNone;
  PageControl.ActivePage:= TabSheet1;
  Constraints.MaxWidth:= Screen.WorkAreaWidth;
  Constraints.MaxHeight:= Screen.WorkAreaHeight;
  AbelHelp1.Execute;
end;