passwörter (***) in der listview?

[100nF]

hi,

ich wollte mal fragen ob es möglich ist, EINE(nicht alle!) spalte in der listview(vsReport) als passwort anzeigen lassen, dass nur *** angezeigt werden. man sollte in programm einstellen können, ob es als passwort angezeigt werden soll oder als klartext.

ich hoffe es ist möglich...

gruss
urbanbruhin

[phlux]

Hi!

Ich denke mal das musst du per Hand übernehmen ;)

mfg phlux :hi:

[100nF]

hi,

und wie macht man das?

[jfheins]

In einer for-Schleife die items durchgehen, und ein bestimmtes Subitem durch Sternchen ersetzen (StringofChar) ;)

[phlux]

Zitat:

Zitat von urbanbruhin

hi,

und wie macht man das?

na du musst doch wissen, wann deine tlistview mit den items befüllt wird, dann fragts du einfach ab ob der benutzer angewählt hat ob er die pw's im klartext sehen will oder als *** und dementsprechend schreibst du halt das item in die tlistview ;)

[malo]

Ihr vergesst dabei aber, dass der String dann auch *** ist!

Eine Abfrage des Passworts wird dabei z.B. unmöglich! ;)

//edit: Man könnte das Passwort im Klartext dann auch in eine Variable speichern, mit der man dann abfragt.

[100nF]

Delphi-Quellcode:

Man könnte das Passwort im Klartext dann auch in eine Variable speichern, mit der man dann abfragt.

also am besten eine stringlist, oder?

[Matze]

Zum Beispiel. Das ist in dem Falle wohl das einfachste, da der Itemindex sogar gleich mit dem der ListView übereinstimmt.

[100nF]

ok, dann probiere ich es mal so...


danke für die antworten!

MFG
urbanbruhin

[Sharky]

Hai,

am einfachsten dürfte es wohl sein einfach die Ausgabe des Textes zu ändern ;-)
Wozu extra eine Stringliste verwalten wenn es doch nur darum geht das die Passwörter nicht angezeigt werden :stupid:

Der Code geht davon aus das die Passwörter in der zweiten Spalte (SubItem = 1) stehen. Über CheckBox1 wird entschieden ob sie gezeigt werden oder nicht.

Delphi-Quellcode:

uses
  CommCtrl;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  ListView1.Repaint;
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: integer; State: TCustomDrawState; var DefaultDraw: boolean);
var
  rect: TRect;
begin
  if (SubItem = 1) and (CheckBox1.Checked) then
  begin
    DefaultDraw := False;
    ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @rect);
    DrawText(Sender.Canvas.Handle,
      PChar('******'),
      Length('******'),
      rect,
      DT_SINGLELINE or DT_END_ELLIPSIS);
  end
  else
  begin
    DefaultDraw := True;
  end;
end;

procedure TForm1.ListView1Click(Sender: TObject);
begin
  Edit1.Text := ListView1.Items[ListView1.ItemIndex].SubItems[0];
end;

[100nF]

hi Sharky,

vielen dank für deine antwort!!
si funktioniert FAST...

also das erste problem ist noch, dass als passwort immer ***** angezeigt wird. das problem dabei ist, dass die länge nicht mit der länge des passworts überrein simmt. ich habe schon ein bisschen herumprobiert, aber ich habe es nicht rausgefunden, wie man das ändern lönnte.

das zweite problem ist, dass der text der spalten hinter der passwort-spalte fett ist. ich kann mir einfach nicht erklären, wieso...

ich wäre sehr dankbar, wenn du eine lösung dazu hättest :mrgreen:

edit: ich glaube die spalten hinter der passwort-spalte werden nicht fett, sondern eine size grösser, und die schriftart wird geändert.


gruss
urbanbruhin

[alzaimar]

Ich würde es über die OwnerData-Property versuchen. Dann musst Du das OnData-Eregnis angeben, das für jedes ListViewItem aufgerufen wird. Dadrin füllst Du alle Werte des ListItems und die entsprechende Spalte mit '*' oder dem Klartext.

Delphi-Quellcode:

Procedure ListView1Data(Sender: TObject; Item: TListItem);
Begin
  Item.Caption := MyUserData[Item.Index].UserName;
  Item.ImageIndex := MyUserData[Item.Index].UserGroupIndex; // <-- Verschiedene bmps für Usergruppen z.B.
  If UserWantsToSeePassword Then
    Item.SubCaptions.Add(MyUserData[Item.Index].UserPassword)
  Else
    Item.SubCaptions.Add('****************');
End;

Das OnChange-Event der 'Klartextpasswärter anzeigen'-Checkbox macht dann nur noch das:

Delphi-Quellcode:

Procedure Checkbox1Change (Sender : TObject);
Begin
  UserWantsToSeePassword  := Checkbox1.changed;
  ListBox1.Invalidate;
End;

Füllen brauchst Du die Listview dann nicht mehr, du setzt nur noch

Delphi-Quellcode:

ListView1.Items.Count = MyUserData.Count

Beim Einfügen und Löschen von MyUserData-Einträgen setzt Du die Count-Eigenschaft einfach neu. Nochmal: Die ListView.Items fässt Du nie direkt an!

IMHO sollten die OnDraw-Events nur dann verwendet werden, wenn man etwas am Layout ändern will. z.B. Progressbars in Spalten reinmalen oder so.
Aber nix gegen die Lösung von Sharky, denn viele Wege führen zum Ziel :wink:

@urbanbruhin: Ich würde die Anzahl der * nicht mit der Länge des Passwortes gleichsetzen, weil man dann gleich sehen kann, wer ein 'schwaches' Passwort hat.

[DP-Maintenance]

Dieses Thema wurde von "alcaeus" von "Sonstige Fragen zu Delphi" nach "VCL / WinForms / Controls" verschoben.
Es geht um eine VCL-Komponente, deshalb schiebe ich es mal in die entsprechende Sparte...

[100nF]

hi alzaimar,

danke für deine antwort, aber irgendwie bekomme ich die nicht zum laufen. ich blick auch nicht durch, wie sie funktionieren sollte.

trotzdem danke.

Zitat:

Ich würde die Anzahl der * nicht mit der Länge des Passwortes gleichsetzen, weil man dann gleich sehen kann, wer ein 'schwaches' Passwort hat.

du hast da etwas falsch verstanden. diese passwörter kann nur der benutzer sehen, dem sie auch gehören. dieser loggt sich mit einem passwort ein, und bekommt dann nur seine passwörter zu sehen, und keine anderen. falls er eines vergessen hat, kann er die passwörter anzeigen lassen.


gruss
urbanbruhin

[alzaimar]

Hab gerade für ein anderes Forum (die Konkurrenz :stupid:) ein Beispielprojekt mit OwnerData-Listviews erstellt. Schau's Dir an.
Achte darauf, das die ListView 10.000 Einträge hat. Geht auch mit 2.000.000.000! Dort ist auch Code, um die Checkbox-Funktionalität, die normalerweise vorhanden ist, nachzubilden.

Ich finde das Verfahren mit OwnerData=True aufgeräumt, weil das Befüllen der ListItems zentral an einer Stelle stattfindet und strikt zwischen Daten und Darstellung getrennt wird.

Zu den '*': Wenn nur der Anwender seine Passwörter sehen kann, wozu dann mit '*' verstecken? Wegen der Spione, die ihm über die Schulter schauen? Na dann doch erst Recht verschleiern... Aber, is deine Sache (wie sowieso Alles andere auch :zwinker:)

[Sharky]

Und hier noch einmal das ganze im OnDrawSubItem ;-)

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: integer; State: TCustomDrawState; var DefaultDraw: boolean);
var
  rect: TRect;
  Text: string;
begin
  DefaultDraw := False;
  if (SubItem = 1) and (CheckBox1.Checked) then
  begin
    Text := StringOfChar('*',Length(Item.SubItems[0]))
  end
  else
  begin
    Text := Item.SubItems[SubItem - 1]
  end;
  ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @rect);
  (Sender as TListView).Canvas.TextRect(rect, Text);
end;

[100nF]

hi,

mit dem anhang konnte ich leider nicht viel anfangen, da ich keine checkboxes in der listview habe...

Zitat:

Wenn nur der Anwender seine Passwörter sehen kann, wozu dann mit '*' verstecken?

es könnte ja mal sein, dass jemand die tür reinkommt... und wenn man nur ein passwort hinzufügen will, braucht man ja die anderen passwörter nicht zu sehen...

auf jeden fall ist es so sicherer :mrgreen:

[100nF]

@Sharky :

dein code funktioniert wunderbar!!
ein nachteil ist, dass nicht mehr die ganze zeile markiert werden kann, aber ich glaube dass lass ich sein.

vielen dank!! :mrgreen:

MFG
urbanbruhin

[Sharky]

Zitat:

Zitat von urbanbruhin

...aber ich glaube dass lass ich sein. ...

Hmmm.... dann musst Du die "markierung" einfach selber zeichnen ;-)

[100nF]

Zitat:

Hmmm.... dann musst Du die "markierung" einfach selber zeichnen

das habe ich auch schon probiert, aber in diesem gebiet bin ich halt kein profi. darum habe ichs auch nicht hinbekommen.

wenn du das auch noch programmieren würdenst, wäre ich sehr dankbar!

zur information:
die listview hat vier spalten. die hinteren drei werden nicht markiert.