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

Merge branch 'IDE/Options/PreviewTypo' into 'main'

Browse Source 
IDE/Options: Fix a typo in the method name UpdatePrevieEdits

See merge request freepascal.org/lazarus/lazarus!540
This commit is contained in:
Martin 2025-07-15 00:15:48 +02:00
commit 0da95ac806
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/frames/editor_general_options.pas
View File

@ -107,7 +107,7 @@ type
procedure AddPreviewEdit(AEditor: TPreviewEditor);
procedure SetPreviewOption(AValue: Boolean; AnOption: TSynEditorOption); overload;
procedure SetPreviewOption(AValue: Boolean; AnOption: TSynEditorOption2); overload;
procedure UpdatePrevieEdits;
procedure UpdatePreviewEdits;
constructor Create(AOwner: TComponent); override;
function GetTitle: String; override;
@ -342,7 +342,7 @@ begin
end;
end;
procedure TEditorGeneralOptionsFrame.UpdatePrevieEdits;
procedure TEditorGeneralOptionsFrame.UpdatePreviewEdits;
var
a: Integer;
begin
@ -459,14 +459,14 @@ procedure TEditorGeneralOptionsFrame.SetExtendedKeywordsMode(const AValue: Boole
begin
if FPasExtendedKeywordsMode = AValue then exit;
FPasExtendedKeywordsMode := AValue;
UpdatePrevieEdits;
UpdatePreviewEdits;
end;
procedure TEditorGeneralOptionsFrame.SetStringKeywordMode(const AValue: TSynPasStringMode);
begin
if FPasStringKeywordMode = AValue then exit;
FPasStringKeywordMode := AValue;
UpdatePrevieEdits;
UpdatePreviewEdits;
end;
procedure TEditorGeneralOptionsFrame.CreateHandle;

8
ide/frames/editor_indent_options.pas
View File

@ -148,7 +148,7 @@ type
public
procedure SetPreviewOption(AValue: Boolean; AnOption: TSynEditorOption); overload;
procedure SetPreviewOption(AValue: Boolean; AnOption: TSynEditorOption2); overload;
procedure UpdatePrevieEdits;
procedure UpdatePreviewEdits;
constructor Create(AOwner: TComponent); override;
function GetTitle: String; override;
@ -534,7 +534,7 @@ begin
end;
end;
procedure TEditorIndentOptionsFrame.UpdatePrevieEdits;
procedure TEditorIndentOptionsFrame.UpdatePreviewEdits;
var
a: Integer;
begin
@ -748,14 +748,14 @@ procedure TEditorIndentOptionsFrame.SetExtendedKeywordsMode(const AValue: Boolea
begin
if FPasExtendedKeywordsMode = AValue then exit;
FPasExtendedKeywordsMode := AValue;
UpdatePrevieEdits;
UpdatePreviewEdits;
end;
procedure TEditorIndentOptionsFrame.SetStringKeywordMode(const AValue: TSynPasStringMode);
begin
if FPasStringKeywordMode = AValue then exit;
FPasStringKeywordMode := AValue;
UpdatePrevieEdits;
UpdatePreviewEdits;
end;
function TEditorIndentOptionsFrame.GeneralPage: TEditorGeneralOptionsFrame;

4
ide/frames/editor_markup_options.pas
View File

@ -243,7 +243,7 @@ end;
procedure TEditorMarkupOptionsFrame.chkExtPasKeywordsChange(Sender: TObject);
begin
GeneralPage.PasExtendedKeywordsMode := chkExtPasKeywords.Checked;
GeneralPage.UpdatePrevieEdits;
GeneralPage.UpdatePreviewEdits;
end;
procedure TEditorMarkupOptionsFrame.chkKWGroupsClick(Sender: TObject);
@ -290,7 +290,7 @@ end;
procedure TEditorMarkupOptionsFrame.dropPasStringKeywordsChange(Sender: TObject);
begin
GeneralPage.PasStringKeywordMode := TSynPasStringMode(dropPasStringKeywords.ItemIndex);
GeneralPage.UpdatePrevieEdits;
GeneralPage.UpdatePreviewEdits;
end;
function TEditorMarkupOptionsFrame.GeneralPage: TEditorGeneralOptionsFrame; inline;