Boolean Indikator

[shmia]

Ich möchte dem Benutzer verschiedene boolsche Werte anzeigen ohne dass der Benutzer auf die Idee kommt er könnte an dem angezeigten Zustand etwas ändern.

Häufig wird dazu eine Checkbox mit Enabled=False verwendet.
Optisch ergibt das aber einen ziemlich schwachen grau-in-grau Eindruck.

Man kann auch eine CheckListbox verwenden (so wie im Screenshot), aber der Benutzer bekommt so immer den Eindruck, er könne durch Klicken etwas ändern.
Man braucht nur den Screenshot anschauen und spürt sofort den Zwang das Bild anzuklicken

Kann man das Design von Checkbox/ChecklistBox durch Windows-Messages verändern?
Sonstige Ideen?

[Luckie]

Was passiert, wenn du die Checkbox auf ein Panel legst und dieses deaktivierst?

[UliBru]

Wie wäre es z.B. mit einer Leuchtdiode als Anzeigeelement?
Z.B. http://www.delphipraxis.net/720842-post1.html

[shmia]

Zitat von UliBru:

Wie wäre es z.B. mit einer Leuchtdiode als Anzeigeelement?

Auch nicht schlecht - ich dachte nur man könnte vielleicht mit Bordmitteln etwas tricksen.

[Bummi]

etwas ala

DrawFrameControl( Canvas.Handle, Rect(0,0,20,20), DFC_BUTTON, DFCS_BUTTONCHECK );

[BUG]

Du könntest auch Labels mit Unicode-Zeichen benutzen:

✓ Checkmark
✗ Ballot
☐ Ballot Box
☒ Ballot Box with X
☑ Ballot Box with Check

[himitsu]

Kennt D5 noch kein TCheckListBox.ItemEnabled ?

Außerdem kennt TCheckListBox.State noch einen dritten Status. (cbGrayed)

[shmia]

Zitat von Luckie:

Was passiert, wenn du die Checkbox auf ein Panel legst und dieses deaktivierst?

Das löst zumindest mal das Problem mit der grau-in-grau Optik.

Wenn man die Checkboxen überreden könnte einen grünen OK-Haken (=True) und ein rotes X (=False) ohne Kästchen anzuzeigen... das würde dem Benutzer zeigen, dass er hier nicht anklicken kann.

[exilant]

Ich nehme für solche Sachen ein zweispaltiges Stringgrid, schalte die horizontalen und vertikalen Linien aus und male in Spalte 1 eine Bitmap (Grüner Haken) oder auch nicht und schreibe in die zweite Spalte den Text. Sieht gut aus und ist leicht zu erweitern.

[Popov]

Zitat von shmia:

Sonstige Ideen?

Jep, mit Trick 17.

Delphi-Quellcode:

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
  CheckListBox1.Checked[CheckListBox1.ItemIndex] :=
    not CheckListBox1.Checked[CheckListBox1.ItemIndex]; // Trick 17
end;

procedure TForm1.Button1Click(Sender: TObject); // Beispiel
var
  i: Integer;
begin            // Beispiel Checks setzten
  for i := 0 to CheckListBox1.Count - 1 do
    CheckListBox1.Checked[i] := Random(2) = 0;
end;

Wenn das Item ausgecheckt wird, dann checken wir es doch wieder

//Edit:

Eine kleine Erweiterung, sie ersetzt das Check-Zeichen durch einen Smiley

Delphi-Quellcode:

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  R: TRect;
  CLB: TCheckListBox;
  CW: Integer;
  FN: String;
  Ch: Char;
  TopDifTxt: Integer; // Gleicht die Höhendifferenz aus
begin
  CLB := (Control as TCheckListBox);
  R := Rect;
  CW := CLB.ClientWidth - (R.Right - R.Left);
  R.Left := R.Left - CW;
  R.Right := R.Left + CW;

  TopDifTxt := (CLB.ItemHeight div 2) - (CLB.Canvas.TextHeight(CLB.Items[Index]) div 2);

  //Ausgabe normaler Text
  CLB.Canvas.TextRect(Rect, Rect.Left, Rect.Top + TopDifTxt, CLB.Items[Index]);

  //Checkersatz
  CLB.Canvas.Font.Name := 'Wingdings';
  if CLB.Checked[Index] then Ch := 'J' else Ch := #32;
  CLB.Canvas.TextRect(R, R.Left + 2, Rect.Top + TopDifTxt, Ch);
end;