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

synedit: fixed typo

Browse Source 
git-svn-id: trunk@27505 -
This commit is contained in:
mattias 2010-09-28 13:37:16 +00:00
parent d26e7c8a0b
commit 81974df6bd
3 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/synedit/syncompletion.pas
View File

@ -82,11 +82,11 @@ type
end; end;
TSynComletionLongHintType = (sclpNone, TSynCompletionLongHintType = (sclpNone,
sclpExtendRightOnly, sclpExtendRightOnly,
sclpExtendHalfLeft, sclpExtendHalfLeft,
sclpExtendUnlimitedLeft sclpExtendUnlimitedLeft
); );
{ TSynBaseCompletionForm } { TSynBaseCompletionForm }
@ -116,13 +116,13 @@ type
FHint: TSynBaseCompletionHint; FHint: TSynBaseCompletionHint;
FHintTimer: TTimer; FHintTimer: TTimer;
FLongLineHintTime: Integer; FLongLineHintTime: Integer;
FLongLineHintType: TSynComletionLongHintType; FLongLineHintType: TSynCompletionLongHintType;
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override; procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
procedure SetCurrentString(const Value: string); procedure SetCurrentString(const Value: string);
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override; procedure KeyPress(var Key: char); override;
procedure Paint; override; procedure Paint; override;
procedure AppDeactivated(Sender: TObject); // Because Form.Deactrivate isn't called procedure AppDeactivated(Sender: TObject); // Because Form.Deactivate isn't called
procedure Deactivate; override; procedure Deactivate; override;
procedure SelectPrec; procedure SelectPrec;
procedure SelectNext; procedure SelectNext;
@ -184,7 +184,7 @@ type
read FTextSelectedColor write FTextSelectedColor; read FTextSelectedColor write FTextSelectedColor;
property LongLineHintTime: Integer read FLongLineHintTime property LongLineHintTime: Integer read FLongLineHintTime
write SetLongLineHintTime default 0; write SetLongLineHintTime default 0;
property LongLineHintType: TSynComletionLongHintType read FLongLineHintType property LongLineHintType: TSynCompletionLongHintType read FLongLineHintType
write FLongLineHintType default sclpExtendRightOnly; write FLongLineHintType default sclpExtendRightOnly;
end; end;
@ -199,7 +199,7 @@ type
function GetCaseSensitive: boolean; function GetCaseSensitive: boolean;
function GetClSelect: TColor; function GetClSelect: TColor;
function GetLongLineHintTime: Integer; function GetLongLineHintTime: Integer;
function GetLongLineHintType: TSynComletionLongHintType; function GetLongLineHintType: TSynCompletionLongHintType;
function GetOnMeasureItem: TSynBaseCompletionMeasureItem; function GetOnMeasureItem: TSynBaseCompletionMeasureItem;
function GetOnPositionChanged: TNotifyEvent; function GetOnPositionChanged: TNotifyEvent;
procedure SetCaseSensitive(const AValue: boolean); procedure SetCaseSensitive(const AValue: boolean);
@ -215,7 +215,7 @@ type
procedure SetCurrentString(const Value: string); procedure SetCurrentString(const Value: string);
procedure SetItemList(const Value: TStrings); procedure SetItemList(const Value: TStrings);
procedure SetLongLineHintTime(const AValue: Integer); procedure SetLongLineHintTime(const AValue: Integer);
procedure SetLongLineHintType(const AValue: TSynComletionLongHintType); procedure SetLongLineHintType(const AValue: TSynCompletionLongHintType);
procedure SetNbLinesInWindow(const Value: Integer); procedure SetNbLinesInWindow(const Value: Integer);
procedure SetOnCancel(const Value: TNotifyEvent); procedure SetOnCancel(const Value: TNotifyEvent);
procedure SetOnKeyPress(const Value: TKeyPressEvent); procedure SetOnKeyPress(const Value: TKeyPressEvent);
@ -278,7 +278,7 @@ type
property Width: Integer read FWidth write SetWidth; property Width: Integer read FWidth write SetWidth;
property LongLineHintTime: Integer read GetLongLineHintTime property LongLineHintTime: Integer read GetLongLineHintTime
write SetLongLineHintTime default 0; write SetLongLineHintTime default 0;
property LongLineHintType: TSynComletionLongHintType read GetLongLineHintType property LongLineHintType: TSynCompletionLongHintType read GetLongLineHintType
write SetLongLineHintType default sclpExtendRightOnly; write SetLongLineHintType default sclpExtendRightOnly;
end; end;
@ -1061,7 +1061,7 @@ begin
Form.LongLineHintTime := AValue; Form.LongLineHintTime := AValue;
end; end;
procedure TSynBaseCompletion.SetLongLineHintType(const AValue: TSynComletionLongHintType); procedure TSynBaseCompletion.SetLongLineHintType(const AValue: TSynCompletionLongHintType);
begin begin
Form.LongLineHintType := AValue; Form.LongLineHintType := AValue;
end; end;
@ -1118,7 +1118,7 @@ begin
Result := Form.LongLineHintTime; Result := Form.LongLineHintTime;
end; end;
function TSynBaseCompletion.GetLongLineHintType: TSynComletionLongHintType; function TSynBaseCompletion.GetLongLineHintType: TSynCompletionLongHintType;
begin begin
Result := Form.LongLineHintType; Result := Form.LongLineHintType;
end; end;

4
ide/editoroptions.pp
View File

@ -929,7 +929,7 @@ type
TEditorOptions = class(TAbstractIDEEnvironmentOptions) TEditorOptions = class(TAbstractIDEEnvironmentOptions)
private private
FCompletionLongLineHintInMSec: Integer; FCompletionLongLineHintInMSec: Integer;
FCompletionLongLineHintType: TSynComletionLongHintType; FCompletionLongLineHintType: TSynCompletionLongHintType;
FHideSingleTabInWindow: Boolean; FHideSingleTabInWindow: Boolean;
xmlconfig: TRttiXMLConfig; xmlconfig: TRttiXMLConfig;
@ -1154,7 +1154,7 @@ type
write FAutoRemoveEmptyMethods default False; write FAutoRemoveEmptyMethods default False;
property CompletionLongLineHintInMSec: Integer property CompletionLongLineHintInMSec: Integer
read FCompletionLongLineHintInMSec write FCompletionLongLineHintInMSec; read FCompletionLongLineHintInMSec write FCompletionLongLineHintInMSec;
property CompletionLongLineHintType: TSynComletionLongHintType property CompletionLongLineHintType: TSynCompletionLongHintType
read FCompletionLongLineHintType write FCompletionLongLineHintType read FCompletionLongLineHintType write FCompletionLongLineHintType
default sclpExtendRightOnly; default sclpExtendRightOnly;

2
ide/frames/editor_codetools_options.pas
View File

@ -241,7 +241,7 @@ begin
AutoRemoveEmptyMethods := AutoRemoveEmptyMethodsOnSave.Checked; AutoRemoveEmptyMethods := AutoRemoveEmptyMethodsOnSave.Checked;
CompletionLongLineHintInMSec := CompletionDropDownHintTrackBar.Position; CompletionLongLineHintInMSec := CompletionDropDownHintTrackBar.Position;
CompletionLongLineHintType := TSynComletionLongHintType(CompletionDropDownHint.ItemIndex); CompletionLongLineHintType := TSynCompletionLongHintType(CompletionDropDownHint.ItemIndex);
MarkupCurWordTime := MarkupWordTimeTrackBar.Position; MarkupCurWordTime := MarkupWordTimeTrackBar.Position;
MarkupCurWordFullLen := MarkupWordFullLenSpin.Value; MarkupCurWordFullLen := MarkupWordFullLenSpin.Value;