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

Delphi-Quellcode:

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:
Anhang 36046
(auf http://www.devexpress.com/Subscripti...ge=3#autolist1 nach "Locked View Image" suchen)

[Progman]

Und wenn du mal Image1.BringToFront aufrufst?

[ULIK]

Zitat:

Zitat von uligerhardt (Beitrag 1145606)

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:

Zitat von Progman (Beitrag 1145608)

Und wenn du mal Image1.BringToFront aufrufst?

Das funktioniert leider auch nicht.

[Tyrolean]

Zitat:

Zitat von ULIK (Beitrag 1145553)

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. :party:
Nun die Frage: darf ich deine Unit auch in einem kommerziellen Projekt einsetzen?


Grüße,
Uli

[MaBuSE]

Zitat:

Zitat von ULIK (Beitrag 1145604)

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:

Zitat von ULIK (Beitrag 1145620)

das ist ja genau was ich suche! Funktioniert wie geschmiert. :party:
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

[ULIK]

Danke!

Änderungen bekommst Du auf alle Fälle geschickt.


Grüße,
Uli

[ULIK]

Zitat:

Zitat von MaBuSE (Beitrag 1145622)

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.

Das reine Setzen auf disabled würde in meiner speziellen Situation nicht ganz ausreichen. Aber trotzdem vielen Dank für's Nachschauen!


Grüße,
Uli

[MaBuSE]

Zitat:

Zitat von Tyrolean (Beitrag 1145624)

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

Hallo,
Pack mal ein TMemo auf ein Form, füll es mit Text, schalte beide Scrollbalken an (

Delphi-Quellcode:

scrollbars := ssBoth

) und erzeuge dann den Schleier.

Delphi-Quellcode:

var
  t: TSchleier;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(t) then
  begin
    t := TSchleier.Create(self);
    t.HideControl := Memo1;
    t.MessageText := 'Test';
    t.Active := True;
  end
  else
  begin
    t.Active := False;
    t.Free;
    t := nil;
  end;
end;

Ich hoffe das ist so richtig.

Der Scheier wird auf das TMemo gelegt.

Folgende Probleme sind mir aufgefallen:

• Scheier ist nur auf der Editfläche, nicht auf den Scrollbereich.
• Scrollbalken lassen sich anklicken und bewegen
• Es ist noch ein kleiner weißer Bereich des Editbereichs sichtbar
• Der weiße Rand ist klickbar und man ist im TMemo und kann editieren.
• Man kann via Tab Taste in das TMemo gelangen und es Editieren.

Eine einfache Lösung dieses Problem ware eine zusätzliche Zeile in Deinem Quellcode um Enabled des Controls zu setzen:

Delphi-Quellcode:

procedure TSchleier.SetActive(const Value: Boolean);
begin
  if FActive = Value then exit;
  FActive := Value;
  if FActive then begin
    DoThunk;
    FHook := SetWindowsHookEx(WH_CALLWNDPROC, FStub, 0, GetCurrentThreadId);
    if FForm = nil then FForm := TSchleierForm.mgmCreate(TWinControl(HideControl.Owner));
    MessageText := MessageText;
    FForm.HideControl := HideControl;
  end
  else begin
    if FForm <> Nil
     then FForm.HideControl := nil;
    if FHook <> 0
     then UnhookWindowsHookEx(FHook);
    FHook :=0;
  end;
  //
  if (FForm <> Nil) then begin
    FForm.Visible := Value;
  end;
  HideControl.Enabled := not Value;     // <-- 
end;

Ich hoffe das hilft Dir.

[MaBuSE]

Hallo,
ich habe mir erlaubt, die uSchleier um einen class helper zu erweitern und die Unit von DevExpress zu befreien.

Damit ist es nun sehr einfach möglich den Schleier zu verwenden.

Jedes TWinControl wird damit um 2 Eigenschaften erweitert.

• Delphi-Quellcode:

  property SchleierMessage: string;

  .
  Das ist die Meldung die über der ausgegrauten Komponente angezeigt wird.
  (Default = 'bitte warten...')
• Delphi-Quellcode:

  property SchleierActive: Boolean;

  .
  Damit wird die Komponente ausgegraut und die Meldung angezeigt

Es muß nur die Unit uSchleier eingebunden werden.

Beisp.

Delphi-Quellcode:

...
uses 
  uSchleier;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.SchleierMessage := 'MaBuSE';
  Panel1.SchleierActive := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Panel1.SchleierActive := False;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Panel1.SchleierActive := not Panel1.SchleierActive;
end;
...

Viel Spaß

[ULIK]

Fein!

Was mich noch interessieren würde: hast Du einmal versucht, einen OnClick Event zu verwenden? Das funktioniert bei mir hier nämlich gar nicht. Zum einen, wird der Event nicht an die Form übergeben. Hier müßte es wohl

Delphi-Quellcode:

procedure TSchleier.SetActive(const Value: Boolean);
begin
  if FActive = Value then exit;
  FActive := Value;
  if FActive then begin
    DoThunk;
    FHook := SetWindowsHookEx(WH_CALLWNDPROC, FStub, 0, GetCurrentThreadId);
    if FForm = nil then FForm := TSchleierForm.mgmCreate(TWinControl(HideControl.Owner));
    MessageText := MessageText;
    FForm.HideControl := HideControl;
    OnClick := OnClick;             <-- ULIK: Event durchschleifen
    OnDblClick := OnDblClick;       <-- ULIK: Event durchschleifen
  end
 
...

heißen. Zum anderen funktionieren die Events dann aber auch nicht, weil das Fenster die Nachricht nicht bekommt. Hier dürfte das Problem darin liegen, daß im FormActivate der TSchleierform der Fokus ja gleich wieder an das aufrufende Control zurückgegeben wird. Somit wird bei einem Mausklick die Schleierform erst aktiviert und verliert sofort wieder den Fokus, weswegen wohl dann die Messages des Mausklicks ins Leere laufen. Nimmt man die Rückfokusierung raus, dann geht's, aber gerade die Rückfokusierung ist eigentlich schon erforderlich.

Delphi-Quellcode:

procedure TSchleierForm.FormActivate(Sender: TObject);
begin
  if csdestroying in ComponentState then exit;
  if Hidecontrol = nil then exit;

  // exit;  here and events are working

  if (oOverForm <> nil) and (TCustomForm(oOverForm).Canfocus) and (oOverForm.Enabled) and (oOverForm.visible)
    then TCustomForm(oOverForm).SetFocus;
end;

Hast Du eine Idee, wie man das lösen könnte?


Grüße,
Uli

[MaBuSE]

Zitat:

Zitat von ULIK (Beitrag 1145755)

Fein!

Was mich noch interessieren würde: hast Du einmal versucht, einen OnClick Event zu verwenden?

Nein, auf Elementen mit Enabled := False hat man ja auch nicht zu klicken :stupid:

Zitat:

Zitat von ULIK (Beitrag 1145755)

Delphi-Quellcode:

...
    OnClick := OnClick;             <-- ULIK: Event durchschleifen
    OnDblClick := OnDblClick;       <-- ULIK: Event durchschleifen
...

Das ist jetzt nicht Dein Ernst, oder?

Mit

Delphi-Quellcode:

i := i;

ändert sich nix.
In so einem Fall sollte man immer

Delphi-Quellcode:

objekt.i := anderesobjekt.i;

verwenden.

Ich hoffe diese Anregung hilft Dir.

[ULIK]

Zitat:

Zitat von MaBuSE (Beitrag 1145772)

Zitat:

Zitat von ULIK (Beitrag 1145755)

Fein!

Was mich noch interessieren würde: hast Du einmal versucht, einen OnClick Event zu verwenden?

Nein, auf Elementen mit Enabled := False hat man ja auch nicht zu klicken :stupid:

Jein, das macht schon Sinn: ich rede ja vom OnClick der Schleierform! Was ich eigentlich erreichen will ist, daß wenn man auf den nun abgedunkelten Bereich klickt, dann sollte eine Aktion ausgelöst werden (In dem Fall das Aktualisieren von Daten). Es ist ja nur das Control unter dem abgedunkelten Bereich disabled, nicht aber der Bereich selbst.

Zitat:

Zitat von MaBuSE (Beitrag 1145772)

Zitat:

Zitat von ULIK (Beitrag 1145755)

Delphi-Quellcode:

...
    OnClick := OnClick;             <-- ULIK: Event durchschleifen
    OnDblClick := OnDblClick;       <-- ULIK: Event durchschleifen
...

Das ist jetzt nicht Dein Ernst, oder?

Mit

Delphi-Quellcode:

i := i;

ändert sich nix.
In so einem Fall sollte man immer

Delphi-Quellcode:

objekt.i := anderesobjekt.i;

verwenden.

Ich hoffe diese Anregung hilft Dir.

Doch, das ist mein Ernst: weil in diesem Fall nämlich der Setter von OnClick aufgerufen wird, der nun den Event an die Form durchschleift. Ist wie mit dem Code zwei Zeilen drüber: MessageText := MessageText
:-D


Grüße,
Uli

[MaBuSE]

Zitat:

Zitat von ULIK (Beitrag 1145783)

Doch, das ist mein Ernst: weil in diesem Fall nämlich der Setter von OnClick aufgerufen wird, der nun den Event an die Form durchschleift. Ist wie mit dem Code zwei Zeilen drüber: MessageText := MessageText

Stimmt. :roll:

Ich würde es daher ändern in z.B.

Delphi-Quellcode:

SetMessageText(FMessageText);

.
Damit wäre es dann eindeutig, was man erreichen möchte.

[ULIK]

Da hast Du recht, besser lesbar wäre es dann. Wobei es eh egal ist, denn ohne die Lösung des Problems mit dem Fokus und den Click-Messages bringt das sowieso nichts.

[ULIK]

So, hab mich mal etwas gespielt. Die angehängte Version von uSchleier reagiert nun auf (Doppel)Klicks auf den Schleier.

Hier im Detail:

• Schleierhelper mittels DEFINE ein/ausschaltbar (ich will das Ding nur dort haben, wo ich es auch wirklich brauch)
• Schleierform reagiert nun auf Mausklicks. Erreicht wird da durch die Prüfung, ob beim FormAktivate der Cursor über der aktiven Schleierform ist. Wenn ja, dann wird der Fokus nicht wieder auf das ursprüngliche Control zurückgesetzt. Keine optimale Lösung, aber was Besseres ist mir nicht eingefallen und für meine Zwecke tut's das :-D
• Das Neu-Positionieren des Schleiers kann nun von Aussen aufgerufen werden. Der Hintergrund dafür ist: ich hab den Schleier an ein Tabsheet gebunden und beim Maximize/Restore der Form ist die Größe nicht korrekt bestimmt worden, da die ClientWidth/Height des Sheets noch nicht angepaßt waren. Aber über das externe Positionieren kann ich das dann nachträglich lösen.

Alles in allem zwar etwas Gefrickel, aber wenn's hilft ... :-D


Grüße,
Ulrich