Nicht-visuelle Komponenten dauerhaft ausblenden?

[PeterPanino]

Ich habe folgende Verbesserungen in TNonVisualArea eingefügt:

1. Damit der "nutzbare" Bereich der Form gleichbleibt, habe ich folgenden Code im constructor eingefügt:

Delphi-Quellcode:

if Owner is TForm then
  TForm(Owner).Height := TForm(Owner).Height + Height;

Damit wird die Höhe der Form automatisch angepasst, wenn die TNonVisualArea-Komponente eingefügt wird.

2. Sollte sich der Nutzer entschließen, die TNonVisualArea-Komponente wieder zu entfernen (nicht empfohlen), wird die Höhe der Form automatisch zurückgesetzt:

Delphi-Quellcode:

destructor TNonVisualArea.Destroy;
begin
  if csDesigning in ComponentState then
  begin
    if Assigned(Parent) then
    begin
      if FRight then
        Self.Parent.Width := Self.Parent.Width - Self.Width
      else
        Self.Parent.Height := Self.Parent.Height - Self.Height;
    end;
  end;

  inherited;
end;

Bitte um konstruktive Kritik!

[himitsu]

1. darf nur gemacht werden, wenn sich die Form im Designmodus und nicht im Ladevorgang befindet.

[PeterPanino]

Zitat von himitsu:

1. darf nur gemacht werden, wenn sich die Form im Designmodus und nicht im Ladevorgang befindet.

Gut, hab ich nun gemacht:

Delphi-Quellcode:

constructor TNonVisualArea.Create(Owner: TComponent);
begin
  inherited;
  Align := alBottom;
  Height := 100;

  if csDesigning in ComponentState then
  begin
    if Owner is TForm then
      TForm(Owner).Height := TForm(Owner).Height + Height;
  end;
end;

Ich habe jetzt auch Code hinzugefügt, damit die "nutzbare" Fläche der Form gleich bleibt, wenn der Nutzer von Unten nach Rechts oder zurück umschaltet:

Delphi-Quellcode:

procedure TNonVisualArea.SetRight(Value: Boolean);
begin
  FRight := Value;
  if FRight then
  begin
    Self.Parent.Height := Self.Parent.Height - Self.Height;
    Align := alRight;
    Self.Parent.Width := Self.Parent.Width + Self.Width;
  end
  else
  begin
    Self.Parent.Width := Self.Parent.Width - Self.Width;
    Align := alBottom;
    Self.Parent.Height := Self.Parent.Height + Self.Height;
  end;
end;

[uligerhardt]

Zitat von PeterPanino:

2. Sollte sich der Nutzer entschließen, die TNonVisualArea-Komponente wieder zu entfernen (nicht empfohlen), wird die Höhe der Form automatisch zurückgesetzt:

Hier wäre es vielleicht günstig, wenn alle "auf" der TNonVisualArea-Komponente liegenden nichtvisuellen Komponenten um deren Höhe nach oben verschoben würden - sonst "verschwinden" sie ja.

BTW: Im Zip aus Posting 23 hast du procedure register; geschrieben. Mein D2007 installiert dann die Kompo nicht. Mit procedure Register; (großes R!) geht's.

[PeterPanino]

Zitat von uligerhardt:

Zitat von PeterPanino:

2. Sollte sich der Nutzer entschließen, die TNonVisualArea-Komponente wieder zu entfernen (nicht empfohlen), wird die Höhe der Form automatisch zurückgesetzt:

Hier wäre es vielleicht günstig, wenn alle "auf" der TNonVisualArea-Komponente liegenden nichtvisuellen Komponenten um deren Höhe nach oben verschoben würden - sonst "verschwinden" sie ja.

Werde ich versuchen.

Zitat von uligerhardt:

BTW: Im Zip aus Posting 23 hast du procedure register; geschrieben. Mein D2007 installiert dann die Kompo nicht. Mit procedure Register; (großes R!) geht's.

Seltsam! Aber gut, habe ich geändert. Aber die Original-Komponente stammt von himitsu. Ich habe lediglich Änderungen hinzugefügt.

[himitsu]

Das mit dem Verschieben ist eben noch ein Problem. Hab jetzt in dem "Hinweis" noch nicht nachgesehn, aber die Stelle, wo ich weiß, daß dort die Position der Komponente gespeichert wird, die kann man zwar setzen, aber der FormEditor bekommt das nicht mit.

So, fertig mit Arbeit ... nun erstmal heimfahren.

[uligerhardt]

Zitat von himitsu:

Das mit dem Verschieben ist eben noch ein Problem. Hab jetzt in dem "Hinweis" noch nicht nachgesehn, aber die Stelle, wo ich weiß, daß dort die Position der Komponente gespeichert wird, die kann man zwar setzen, aber der FormEditor bekommt das nicht mit.

Soweit hab ich wieder gar nicht gedacht.
Ich hab selber vor Jahren mal versucht, einen GExperten zu schreiben, der NV-Kompos per Menü versteckt. Da ist aber nie was Fertiges draus geworden. Mal sehen, ob ich den noch finde.

Edit: Hier isser: NonVisExperts_Again.zip
Sicher nur mit einer uralten GExperts-Version zu kompilieren. Ich schau mal, was geht.

Zitat von himitsu:

So, fertig mit Arbeit ... nun erstmal heimfahren.

Schönen Feierabend!

[PeterPanino]

Zitat von himitsu:

Das mit dem Verschieben ist eben noch ein Problem.

Was meinst du mit Verschieben? Das Umschalten von Unten nach Rechts und zurück funktioniert bei mir ohne Probleme.

Edit: Habe jetzt erst gemerkt, dass du das Verschieben der Komponenten meintest.

[PeterPanino]

So, nun kann man auch die Größe der NonVisualArea verändern (im Inspektor sowie durch Ziehen am oberen bzw. linken Anfassfeld), wobei die Größe der Form ohne Änderung der Nutzfläche geändert wird!

Jetzt fehlt nur noch das automatische Verschieben der NV-Komponenten.

[himitsu]

Zitat:

NonVisExperts_Again.zip

Damit läßt sich was anfangen.