|
Тема |
'*' парола в DBGrid |
|
Автор |
veselinap-126385 ((бойна)) |
|
Публикувано | 07.04.14 15:44 |
|
|
имам грид с поле "парола", където паролата трчбва да се появява във вид на "****'.
Кодът ми е следният:
grdPasswordOnDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var s:string;
i : integer;
begin
if Column.FieldName='PASSWORD' then
begin
if not(gdFixed in State) then begin
s:=Column.Field.AsString;
for l:=1 to length(s) do s[l]:='*';
with (Sender as TDBGrid).Canvas do begin
TextOut(Rect.Left, Rect.Top,s);
end;
end;
end;
end;
и нищо....
и това , пак не ми показва паролата с '***'
та, млко помощ ми е необходима
|
| |
|
|
|