paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 19:46:01 +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 FindLiteralChar (MaskOffset: Integer; InChar: Char): Integer;
function GetEditText: string; function GetEditText: string;
function GetMasked: Boolean; function GetMasked: Boolean;
function GetText: string; function GetText: string; override;
function GetMaxLength: Integer; function GetMaxLength: Integer;
function CharKeys(var CharCode: Char): Boolean; function CharKeys(var CharCode: Char): Boolean;
procedure SetEditText(const Value: string); procedure SetEditText(const Value: string);
procedure SetEditMask(const Value: string); procedure SetEditMask(const Value: string);
procedure SetMaxLength(Value: Integer); procedure SetMaxLength(Value: Integer);
procedure SetText(const Value: string); procedure SetText(const Value: string); override;
procedure DeleteKeys(CharCode: Word); procedure DeleteKeys(CharCode: Word);
procedure HomeEndKeys(CharCode: Word; Shift: TShiftState); procedure HomeEndKeys(CharCode: Word; Shift: TShiftState);
procedure CursorInc(CursorPos: Integer; Incr: Integer); procedure CursorInc(CursorPos: Integer; Incr: Integer);
@ -376,7 +376,6 @@ begin
if Sep2 <> Length(EditMask)+1 then if Sep2 <> Length(EditMask)+1 then
begin begin
try try
writeln(EditMask[Sep2]);
Result := not (EditMask [Sep2] = MaskNoSave); Result := not (EditMask [Sep2] = MaskNoSave);
except except
Result := False; Result := False;
@ -771,10 +770,6 @@ begin
end; end;
procedure TCustomMaskEdit.SetCursor(Pos: Integer); procedure TCustomMaskEdit.SetCursor(Pos: Integer);
var
//KeyState: TKeyboardState;
//NewKeyState: TKeyboardState;
I: Integer;
begin begin
if (Pos >= 1) and (ByteType(EditText, Pos) = mbLeadByte) then Dec(Pos); if (Pos >= 1) and (ByteType(EditText, Pos) = mbLeadByte) then Dec(Pos);
SelStart := Pos; SelStart := Pos;
@ -834,7 +829,6 @@ end;
function TCustomMaskEdit.CharKeys(var CharCode: Char): Boolean; function TCustomMaskEdit.CharKeys(var CharCode: Char): Boolean;
var var
Txt: string; Txt: string;
CharMsg: TMsg;
OldPos: Integer; OldPos: Integer;
begin begin
Result := False; Result := False;
@ -1022,7 +1016,7 @@ end;
procedure TCustomMaskEdit.DeleteKeys(CharCode: Word); procedure TCustomMaskEdit.DeleteKeys(CharCode: Word);
var var
NuSelStart, TmpStart: Integer; NuSelStart: Integer;
CType: TMaskCharType; CType: TMaskCharType;
Str: string; Str: string;
begin begin