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;