paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 19:22:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed warnings

Browse Source 
git-svn-id: trunk@4074 -
This commit is contained in:
mattias 2003-04-18 07:34:39 +00:00
parent ea81b30e67
commit c209bb9189
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/maskedit.pp
View File

@ -91,13 +91,13 @@ type
function FindLiteralChar (MaskOffset: Integer; InChar: Char): Integer;
function GetEditText: string;
function GetMasked: Boolean;
function GetText: string;
function GetText: string; override;
function GetMaxLength: Integer;
function CharKeys(var CharCode: Char): Boolean;
procedure SetEditText(const Value: string);
procedure SetEditMask(const Value: string);
procedure SetMaxLength(Value: Integer);
procedure SetText(const Value: string);
procedure SetText(const Value: string); override;
procedure DeleteKeys(CharCode: Word);
procedure HomeEndKeys(CharCode: Word; Shift: TShiftState);
procedure CursorInc(CursorPos: Integer; Incr: Integer);
@ -376,7 +376,6 @@ begin
if Sep2 <> Length(EditMask)+1 then
begin
try
writeln(EditMask[Sep2]);
Result := not (EditMask [Sep2] = MaskNoSave);
except
Result := False;
@ -771,10 +770,6 @@ begin
end;
procedure TCustomMaskEdit.SetCursor(Pos: Integer);
var
//KeyState: TKeyboardState;
//NewKeyState: TKeyboardState;
I: Integer;
begin
if (Pos >= 1) and (ByteType(EditText, Pos) = mbLeadByte) then Dec(Pos);
SelStart := Pos;
@ -834,7 +829,6 @@ end;
function TCustomMaskEdit.CharKeys(var CharCode: Char): Boolean;
var
Txt: string;
CharMsg: TMsg;
OldPos: Integer;
begin
Result := False;
@ -1022,7 +1016,7 @@ end;
procedure TCustomMaskEdit.DeleteKeys(CharCode: Word);
var
NuSelStart, TmpStart: Integer;
NuSelStart: Integer;
CType: TMaskCharType;
Str: string;
begin