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

IDE/Options: Make the restart hint when changing the language more noticeable

Browse Source
This commit is contained in:
n7800 2024-09-18 23:31:55 +05:00 committed by Martin
parent 62e3936fab
commit 35f64bfd57
3 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/frames/desktop_options.lfm
View File

@ -418,7 +418,7 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
ParentFont = False ParentFont = False
end end
object lblMouseAction: TDividerBevel object lblMouseAction: TDividerBevel
AnchorSideTop.Control = LanguageComboBox AnchorSideTop.Control = lblLangChangeHint
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 15
@ -475,4 +475,18 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
TabOrder = 13 TabOrder = 13
Value = 8 Value = 8
end end
object lblLangChangeHint: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = LanguageComboBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 44
Width = 103
BorderSpacing.Left = 6
BorderSpacing.Top = 3
Caption = 'lblLangChangeHint'
Font.Style = [fsItalic]
ParentFont = False
end
end end

3
ide/frames/desktop_options.pas
View File

@ -50,6 +50,7 @@ type
AutoSaveIntervalInSecsComboBox: TComboBox; AutoSaveIntervalInSecsComboBox: TComboBox;
AutoSaveIntervalInSecsLabel: TLabel; AutoSaveIntervalInSecsLabel: TLabel;
AutoSaveProjectCheckBox: TCheckBox; AutoSaveProjectCheckBox: TCheckBox;
lblLangChangeHint: TLabel;
lblDropDownCount: TLabel; lblDropDownCount: TLabel;
lblComboBoxes: TDividerBevel; lblComboBoxes: TDividerBevel;
lblCheckAndAutoSave: TDividerBevel; lblCheckAndAutoSave: TDividerBevel;
@ -111,7 +112,7 @@ var
begin begin
// language // language
lblLanguage.Caption := dlgEnvLanguage; lblLanguage.Caption := dlgEnvLanguage;
LanguageComboBox.Hint := dlgEnvLanguageHint; lblLangChangeHint.Caption := dlgEnvLanguageHint;
// languages: first the automatic, then sorted the rest // languages: first the automatic, then sorted the rest
sl:=TStringListUTF8Fast.Create; sl:=TStringListUTF8Fast.Create;

2
ide/lazarusidestrconsts.pas
View File

@ -1242,7 +1242,7 @@ resourcestring
// IDE General options // IDE General options
dlgEnvLanguage = 'Language'; dlgEnvLanguage = 'Language';
dlgEnvLanguageHint = 'Language of all IDE strings. Restart IDE after changing it for best result.'; dlgEnvLanguageHint = 'Restart the IDE to complete the language change';
dlgCheckAndAutoSaveFiles = 'Check and Auto Save Files'; dlgCheckAndAutoSaveFiles = 'Check and Auto Save Files';
lisAskBeforeSavingProjectSSession = 'Ask before saving project''s session'; lisAskBeforeSavingProjectSSession = 'Ask before saving project''s session';
lisIfOnlySessionInfoChangedThenAsk = 'If only the session info changed, ask about saving it.'; lisIfOnlySessionInfoChangedThenAsk = 'If only the session info changed, ask about saving it.';