NOVINKA - Online rekvalifikační kurz Python programátor. Oblíbená a studenty ověřená rekvalifikace - nyní i online.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.

Diskuze: StringGrid - PasswordChar

Jak se ti líbí článek?
Před uložením hodnocení, popiš prosím autorovi, co je špatněZnaků 0 z 50-500
Jak se ti kurz líbí?
Tvé hodnocení kurzuZnaků 0 z 50-500
Aktivity
Avatar
Pavel.H
Člen
Avatar
Pavel.H:14.2.2019 21:01

Zdravím.
Bych chtěl do jednoho sloupce vkladat hesla.
Potřebují aby v jednom sloupcí, kde jsou ty hesla byli jen tečky, tak jak to je v komponentě  Edit.
edit1.PasswordChar := '*';
Jdeto?
Poradí někdo?

 
Odpovědět
14.2.2019 21:01
Avatar
Michal Haňáček
Tvůrce
Avatar
Odpovídá na Pavel.H
Michal Haňáček:15.2.2019 6:55

Obavam se ze defaultne to nejde, respektive jsem si tim temer jisty, ale to ti nijak nebrani ve vlastnim reseni. Ted z fleku me napadaji 2 ...

  • Budes si do sloupcu kde chces mit ta hesla vykreslovat ty tve edity a pak to cist z nich. Ale to je docela slusna prasarna, protoze tim vytvoris mraky instanci komponenty, kterou defacto nepotrebujes.
  • Vytvoris si v pameti nejakou strukturu (pole, list, slovnik,...) a pri vyplneni hodnoty do gridu si to "heslo" ulozis do tve struktury a do gridu misto textu hvezdicky. Tak budes mit vzdycky prehled o tom v jake bunce je co vyplneno, nebudes ty hodnoty muset tahat primo z gridu a s gridem jakozto vizualni komponentou si muzes delat cokoli ...
Nahoru Odpovědět
15.2.2019 6:55
Každé rozhodnutí a každý krok v životě nás někam posune. Bohužel jen některé nás posouvají dopředu.
Avatar
Pavel.H
Člen
Avatar
Odpovídá na Michal Haňáček
Pavel.H:15.2.2019 7:10 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  drawText: String;
begin
  drawText := StringGrid1.Cells[ACol, ARow];
  if ACol = 2 then begin
    drawText := StringOfChar('*', Length(WideString(drawText)));
  end;
  StringGrid1.canvas.TextRect(Rect, Rect.Left +1, Rect.Top + 1,drawText);
end;

Toto překresluje v bunce jen když na ní kliknu, pokud kliknu mimo bunku se to překresli zpět a znaky vidím, :-(

 
Nahoru Odpovědět
15.2.2019 7:10
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 3 zpráv z 3.