From: Remko B. <rem...@us...> - 2004-07-24 12:51:42
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23700 Modified Files: JvEdit.pas Log Message: Sorted Index: JvEdit.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvEdit.pas,v retrieving revision 1.45 retrieving revision 1.46 diff -C2 -d -r1.45 -r1.46 *** JvEdit.pas 21 Jul 2004 06:01:01 -0000 1.45 --- JvEdit.pas 24 Jul 2004 12:51:33 -0000 1.46 *************** *** 48,52 **** Windows, Messages, {$IFDEF VisualCLX} ! Qt, QTypes, {$ENDIF VisualCLX} Classes, Graphics, Controls, Menus, --- 48,52 ---- Windows, Messages, {$IFDEF VisualCLX} ! qt, QTypes, {$ENDIF VisualCLX} [...967 lines suppressed...] ! inherited else begin ! if PasswordChar = #0 then ! S := Text else ! S := StrFillChar(PasswordChar, Length(Text)); ! Canvas := nil; ! try ! if not PaintEdit(Self, S, FAlignment, False, {0,} FDisabledTextColor, ! Focused, Canvas, Msg) then ! inherited; ! finally ! Canvas.Free; ! end; end; end; + {$ENDIF VCL} end. |