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

ide: choose class section dlg: caption, font

Browse Source 
git-svn-id: trunk@51854 -
This commit is contained in:
ondrej 2016-03-08 09:00:36 +00:00
parent 73913a7a9d
commit 8085593af3
3 changed files with 17 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/chooseclasssectiondlg.lfm
View File

@ -7,21 +7,20 @@ object ChooseClassSectionDialog: TChooseClassSectionDialog
Caption = 'ChooseClassSectionDialog' Caption = 'ChooseClassSectionDialog'
ClientHeight = 213 ClientHeight = 213
ClientWidth = 304 ClientWidth = 304
Color = clBtnFace
KeyPreview = True KeyPreview = True
OnKeyPress = FormKeyPress OnKeyPress = FormKeyPress
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7' LCLVersion = '1.7'
object SectionsListBox: TListBox object SectionsListBox: TListBox
Left = 10 Left = 6
Height = 129 Height = 140
Top = 34 Top = 27
Width = 284 Width = 292
Align = alClient Align = alClient
BorderSpacing.Left = 10 BorderSpacing.Left = 6
BorderSpacing.Top = 10 BorderSpacing.Top = 6
BorderSpacing.Right = 10 BorderSpacing.Right = 6
BorderSpacing.Bottom = 10 BorderSpacing.Bottom = 6
ItemHeight = 0 ItemHeight = 0
OnDblClick = SectionsListBoxDblClick OnDblClick = SectionsListBoxDblClick
OnKeyPress = SectionsListBoxKeyPress OnKeyPress = SectionsListBoxKeyPress
@ -45,18 +44,15 @@ object ChooseClassSectionDialog: TChooseClassSectionDialog
end end
object NewIdentLabel: TLabel object NewIdentLabel: TLabel
Left = 10 Left = 10
Height = 14 Height = 15
Top = 10 Top = 6
Width = 284 Width = 284
Align = alTop Align = alTop
BorderSpacing.Left = 10 BorderSpacing.Left = 10
BorderSpacing.Top = 10 BorderSpacing.Top = 6
BorderSpacing.Right = 10 BorderSpacing.Right = 10
Caption = 'NewIdentLabel' Caption = 'NewIdentLabel'
Font.Height = -11
Font.Name = 'Courier New'
ParentColor = False ParentColor = False
ParentFont = False
WordWrap = True WordWrap = True
end end
end end

10
ide/chooseclasssectiondlg.pas
View File

@ -50,7 +50,7 @@ type
end; end;
function ChooseClassSectionDialog(const ACaption, ANewIdent: string; ADefault: TInsertClassSectionResult; function ChooseClassSectionDialog(const ANewIdent: string; ADefault: TInsertClassSectionResult;
out Section: TInsertClassSectionResult): Boolean; out Section: TInsertClassSectionResult): Boolean;
function ShowEventMethodSectionDialog(const ANewIdent: string; out Section: TInsertClassSectionResult): Boolean; function ShowEventMethodSectionDialog(const ANewIdent: string; out Section: TInsertClassSectionResult): Boolean;
function ShowVarSectionDialog(const ANewIdent: string; out Section: TInsertClassSectionResult): Boolean; function ShowVarSectionDialog(const ANewIdent: string; out Section: TInsertClassSectionResult): Boolean;
@ -59,14 +59,14 @@ implementation
{$R *.lfm} {$R *.lfm}
function ChooseClassSectionDialog(const ACaption, ANewIdent: string; ADefault: TInsertClassSectionResult; function ChooseClassSectionDialog(const ANewIdent: string; ADefault: TInsertClassSectionResult;
out Section: TInsertClassSectionResult): Boolean; out Section: TInsertClassSectionResult): Boolean;
var var
Dlg: TChooseClassSectionDialog; Dlg: TChooseClassSectionDialog;
begin begin
Dlg := TChooseClassSectionDialog.Create(Application); Dlg := TChooseClassSectionDialog.Create(Application);
try try
Dlg.Caption := ACaption; Dlg.Caption := lisChooseClassSectionDlgCaption;
if ANewIdent<>'' then if ANewIdent<>'' then
Dlg.NewIdentLabel.Caption := ANewIdent Dlg.NewIdentLabel.Caption := ANewIdent
else else
@ -89,7 +89,7 @@ end;
function ShowEventMethodSectionDialog(const ANewIdent: string; out function ShowEventMethodSectionDialog(const ANewIdent: string; out
Section: TInsertClassSectionResult): Boolean; Section: TInsertClassSectionResult): Boolean;
begin begin
Result := ChooseClassSectionDialog(lisChooseClassSectionDlgForMethodCaption, Result := ChooseClassSectionDialog(
ANewIdent, EnvironmentOptions.LastEventMethodSectionPrompt, Section); ANewIdent, EnvironmentOptions.LastEventMethodSectionPrompt, Section);
if Result then if Result then
EnvironmentOptions.LastEventMethodSectionPrompt := Section; EnvironmentOptions.LastEventMethodSectionPrompt := Section;
@ -98,7 +98,7 @@ end;
function ShowVarSectionDialog(const ANewIdent: string; out function ShowVarSectionDialog(const ANewIdent: string; out
Section: TInsertClassSectionResult): Boolean; Section: TInsertClassSectionResult): Boolean;
begin begin
Result := ChooseClassSectionDialog(lisChooseClassSectionDlgForVariableCaption, Result := ChooseClassSectionDialog(
ANewIdent, EnvironmentOptions.LastVarSectionPrompt, Section); ANewIdent, EnvironmentOptions.LastVarSectionPrompt, Section);
if Result then if Result then
EnvironmentOptions.LastVarSectionPrompt := Section; EnvironmentOptions.LastVarSectionPrompt := Section;

3
ide/lazarusidestrconsts.pas
View File

@ -3662,8 +3662,7 @@ resourcestring
lisTheApplicationBundleWasCreatedFor = 'The Application Bundle was created for "%s"'; lisTheApplicationBundleWasCreatedFor = 'The Application Bundle was created for "%s"';
//codetools ChooseClassSectionDlg //codetools ChooseClassSectionDlg
lisChooseClassSectionDlgForMethodCaption = 'Insert new method to section'; lisChooseClassSectionDlgCaption = 'Insert new field to section';
lisChooseClassSectionDlgForVariableCaption = 'Insert new variable to section';
lisEventMethodSectionLabel = 'Insert new event methods to section'; lisEventMethodSectionLabel = 'Insert new event methods to section';
lisVarSectionLabel = 'Insert new object variables to section'; lisVarSectionLabel = 'Insert new object variables to section';