paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 22:20:24 +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;
TSynComletionLongHintType = (sclpNone,
sclpExtendRightOnly,
sclpExtendHalfLeft,
sclpExtendUnlimitedLeft
);
TSynCompletionLongHintType = (sclpNone,
sclpExtendRightOnly,
sclpExtendHalfLeft,
sclpExtendUnlimitedLeft
);
{ TSynBaseCompletionForm }
@ -116,13 +116,13 @@ type
FHint: TSynBaseCompletionHint;
FHintTimer: TTimer;
FLongLineHintTime: Integer;
FLongLineHintType: TSynComletionLongHintType;
FLongLineHintType: TSynCompletionLongHintType;
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
procedure SetCurrentString(const Value: string);
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); 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 SelectPrec;
procedure SelectNext;
@ -184,7 +184,7 @@ type
read FTextSelectedColor write FTextSelectedColor;
property LongLineHintTime: Integer read FLongLineHintTime
write SetLongLineHintTime default 0;
property LongLineHintType: TSynComletionLongHintType read FLongLineHintType
property LongLineHintType: TSynCompletionLongHintType read FLongLineHintType
write FLongLineHintType default sclpExtendRightOnly;
end;
@ -199,7 +199,7 @@ type
function GetCaseSensitive: boolean;
function GetClSelect: TColor;
function GetLongLineHintTime: Integer;
function GetLongLineHintType: TSynComletionLongHintType;
function GetLongLineHintType: TSynCompletionLongHintType;
function GetOnMeasureItem: TSynBaseCompletionMeasureItem;
function GetOnPositionChanged: TNotifyEvent;
procedure SetCaseSensitive(const AValue: boolean);
@ -215,7 +215,7 @@ type
procedure SetCurrentString(const Value: string);
procedure SetItemList(const Value: TStrings);
procedure SetLongLineHintTime(const AValue: Integer);
procedure SetLongLineHintType(const AValue: TSynComletionLongHintType);
procedure SetLongLineHintType(const AValue: TSynCompletionLongHintType);
procedure SetNbLinesInWindow(const Value: Integer);
procedure SetOnCancel(const Value: TNotifyEvent);
procedure SetOnKeyPress(const Value: TKeyPressEvent);
@ -278,7 +278,7 @@ type
property Width: Integer read FWidth write SetWidth;
property LongLineHintTime: Integer read GetLongLineHintTime
write SetLongLineHintTime default 0;
property LongLineHintType: TSynComletionLongHintType read GetLongLineHintType
property LongLineHintType: TSynCompletionLongHintType read GetLongLineHintType
write SetLongLineHintType default sclpExtendRightOnly;
end;
@ -1061,7 +1061,7 @@ begin
Form.LongLineHintTime := AValue;
end;
procedure TSynBaseCompletion.SetLongLineHintType(const AValue: TSynComletionLongHintType);
procedure TSynBaseCompletion.SetLongLineHintType(const AValue: TSynCompletionLongHintType);
begin
Form.LongLineHintType := AValue;
end;
@ -1118,7 +1118,7 @@ begin
Result := Form.LongLineHintTime;
end;
function TSynBaseCompletion.GetLongLineHintType: TSynComletionLongHintType;
function TSynBaseCompletion.GetLongLineHintType: TSynCompletionLongHintType;
begin
Result := Form.LongLineHintType;
end;

4
ide/editoroptions.pp
View File

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

2
ide/frames/editor_codetools_options.pas
View File

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