Semitransparente Abdeckung eines Grids

[ULIK]

Hallo,

Welche Möglichkeiten hat man denn, um in einem Programm einen Teil des GUIs (in dem Fall ein Grid) abzudunkeln (so als ob man ein semitransparentes Panel darüber plaziert hätte), und der abgedunkelte Bereich sollte dann zusätzlich noch einen Schriftzug enthalten.
Was ich bisher gefunden habe, war es mit einer Form mit Alphablennding zu probieren. Geht zwar, aber dann muß ich die Form bei Größenänderungen oder Positionswechslen des Grids immer synchron mitziehen. Modal kann ich sie auch nicht machen , da im Rest des Programms weiter gearbeitet werden muß.
Mir wäre es irgendwie lieber, wenn ich auf eine Form verzichten könnte und statt dessen so etwas wie ein semitransparentes Panel drüber legen könnte (ohne externe Komponenten).


Grüße,
Uli

[MaBuSE]

Versuch doch mal ein TImage mit einem halbtransparenten *.png draufzulegen.

Das kannst Du dann mit Image1.visible := True/False; an und ausschalten und es "fängt" Deine Mausklicks ab.

[ULIK]

Hab ich nun gerade mal ausprobiert. Funktioniert an sich schon, nur wenn mein Bereich der abgedeckt wird z.B. einen Button enthält, so wird dieser nicht abgedeckt (obwohl er ja in dem Fall gar nicht benutzbar sein sollte). Oder wenn ich ein Tabsheet abdecken will, das ein Grid enthält, so wird zwar das Sheet abgedeckt, aber nicht das Grid selbst.
Ich bin dabei immer so vorgegangen, daß ich den Parent des Images auf das abzudeckende Control gesetzt hab mit Align = alClient.

Ich hab mal einen Screenshot angehängt. Der dunkle Bereich ist der abgedunkelte und man sieht schön, wie der Controls auf dem Sheet nicht abgedeckt werden.

Nur falls es etwas ausmachen sollte: arbeiten tu ich unter Windows 7 mit Delphi XE.


Grüße,
Uli

[uligerhardt]

Das sieht nach cxGrid aus. Dann hilft dir vielleicht das:

(auf http://www.devexpress.com/Subscripti...ge=3#autolist1 nach "Locked View Image" suchen)

[Progman]

Und wenn du mal Image1.BringToFront aufrufst?

[ULIK]

Zitat von uligerhardt:

Das sieht nach cxGrid aus. Dann hilft dir vielleicht das:

Jup, ist ein cxGrid. Leider kann ich im Moment noch nicht auf die aktuelle Version hochziehen, sondern bin noch auf einen etwas älteren Build (56) angewiesen. Somit fällt diese Lösung erst mal flach.

Zitat von Progman:

Und wenn du mal Image1.BringToFront aufrufst?

Das funktioniert leider auch nicht.

[Tyrolean]

Zitat von ULIK:

Hallo,

Welche Möglichkeiten hat man denn, um in einem Programm einen Teil des GUIs (in dem Fall ein Grid) abzudunkeln (so als ob man ein semitransparentes Panel darüber plaziert hätte), und der abgedunkelte Bereich sollte dann zusätzlich noch einen Schriftzug enthalten.
Was ich bisher gefunden habe, war es mit einer Form mit Alphablennding zu probieren. Geht zwar, aber dann muß ich die Form bei Größenänderungen oder Positionswechslen des Grids immer synchron mitziehen. Modal kann ich sie auch nicht machen , da im Rest des Programms weiter gearbeitet werden muß.
Mir wäre es irgendwie lieber, wenn ich auf eine Form verzichten könnte und statt dessen so etwas wie ein semitransparentes Panel drüber legen könnte (ohne externe Komponenten).

Ich habe mir mal mit Hilfe so ein Teil gebastelt, ging dann auch, habe es dann aber doch nie eingesetzt. Vielleicht hilft es dir ja etwas.

Gruß aus den Bergen
Günter

[ULIK]

Hallo Günther,

das ist ja genau was ich suche! Funktioniert wie geschmiert.
Nun die Frage: darf ich deine Unit auch in einem kommerziellen Projekt einsetzen?


Grüße,
Uli

[MaBuSE]

Zitat von ULIK:

Hab ich nun gerade mal ausprobiert. Funktioniert an sich schon, nur wenn mein Bereich der abgedeckt wird z.B. einen Button enthält, so wird dieser nicht abgedeckt (obwohl er ja in dem Fall gar nicht benutzbar sein sollte). Oder wenn ich ein Tabsheet abdecken will, das ein Grid enthält, so wird zwar das Sheet abgedeckt, aber nicht das Grid selbst.
Ich bin dabei immer so vorgegangen, daß ich den Parent des Images auf das abzudeckende Control gesetzt hab mit Align = alClient.

Stimmt, hab ich auch gerade mal ausprobiert.

Aber evtl reicht es Dir ja schon, wenn Du "nur" alle Componenten des Containers enabled auf False setzt. Das ist ja mit einer einfachen For Schleife erledigt.

Hier ein kleines Beispiel.
Einfach ein Form mit einem Panel mit folgenden Imhalt: Button, Editfeld, RadioButton, Grid, ...
Dann eine CheckBox1 auf das Form1 legen und folgenden Code einfügen.
Das Panel1 inkl. aller enthaltener Komponenten werden Enabled False/True und jeweils ausgegraut.
Man könnte auch noch ein Color in der proc setzen oder einzelne Komponenten gesondert behandeln...

Delphi-Quellcode:

procedure CompEnabler(pForm: TCustomForm; pComp: TControl; pEnabled: Boolean);
var
  i: Integer;
// optional
const
  EnabledColor: array[Boolean] of TColor = (clBtnFace, clWindow);
// --optional
begin
  for i := 0 to pForm.ComponentCount-1 do
  begin
    if pForm.Components[i] is TControl then
    begin
      if ((pForm.Components[i] as TControl).Parent = pComp)
        or (pForm.Components[i] = pComp) then
      begin
        (pForm.Components[i] as TControl).Enabled := pEnabled;
        // optional
        if (pForm.Components[i] is TEdit) then
        begin
          (pForm.Components[i] as TEdit).Color := EnabledColor[pEnabled];
        end;
        // --optional
      end;
    end;
  end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  CompEnabler(Form1, Panel1, CheckBox1.Checked);
end;

Ich hoffe das hilft Dir.

[Tyrolean]

Zitat von ULIK:

das ist ja genau was ich suche! Funktioniert wie geschmiert.
Nun die Frage: darf ich deine Unit auch in einem kommerziellen Projekt einsetzen?

Klar. Habe ich ja auch mit Hilfe anderer gemacht. Schön wäre es, wenn du diese Unit bei Verbesserungen
mir dann auch wieder zukommen lassen könntest.

Gruß aus den Bergen
Günter