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

IDE: compiler opttions dlg: changed caption Style to Assembler style

Browse Source 
git-svn-id: trunk@12702 -
This commit is contained in:
mattias 2007-11-02 19:22:06 +00:00
parent bea6c472b4
commit cc0a9c67bb
4 changed files with 505 additions and 509 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/compileroptionsdlg.lfm
View File

@ -21,7 +21,7 @@ object frmCompilerOptions: TfrmCompilerOptions
Width = 669 Width = 669
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
PageIndex = 2 PageIndex = 1
TabOrder = 0 TabOrder = 0
object PathPage: TPage object PathPage: TPage
Caption = 'PathPage' Caption = 'PathPage'
@ -244,7 +244,7 @@ object frmCompilerOptions: TfrmCompilerOptions
Caption = 'ParsingPage' Caption = 'ParsingPage'
ClientWidth = 665 ClientWidth = 665
ClientHeight = 449 ClientHeight = 449
object grpStyle: TRadioGroup object grpAsmStyle: TRadioGroup
Left = 6 Left = 6
Height = 40 Height = 40
Top = 6 Top = 6
@ -252,7 +252,7 @@ object frmCompilerOptions: TfrmCompilerOptions
Align = alTop Align = alTop
AutoFill = True AutoFill = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'grpStyle' Caption = 'grpAsmStyle'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@ -428,7 +428,6 @@ object frmCompilerOptions: TfrmCompilerOptions
Top = 6 Top = 6
Width = 120 Width = 120
Align = alTop Align = alTop
Anchors = [akTop, akLeft]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'radGenNormal' Caption = 'radGenNormal'
Checked = True Checked = True
@ -441,7 +440,6 @@ object frmCompilerOptions: TfrmCompilerOptions
Top = 34 Top = 34
Width = 120 Width = 120
Align = alTop Align = alTop
Anchors = [akTop, akLeft]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'radGenFaster' Caption = 'radGenFaster'
TabOrder = 1 TabOrder = 1
@ -452,7 +450,6 @@ object frmCompilerOptions: TfrmCompilerOptions
Top = 62 Top = 62
Width = 120 Width = 120
Align = alTop Align = alTop
Anchors = [akTop, akLeft]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'radGenSmaller' Caption = 'radGenSmaller'
TabOrder = 2 TabOrder = 2
@ -987,7 +984,7 @@ object frmCompilerOptions: TfrmCompilerOptions
Cursor = crVSplit Cursor = crVSplit
Height = 5 Height = 5
Top = 279 Top = 279
Width = 665 Width = 1
Align = alTop Align = alTop
ResizeAnchor = akTop ResizeAnchor = akTop
end end

989
ide/compileroptionsdlg.lrs
View File

File diff suppressed because it is too large Load Diff

12
ide/compileroptionsdlg.pp
View File

@ -92,7 +92,7 @@ type
{ Parsing Controls } { Parsing Controls }
ParsingPage: TPage; ParsingPage: TPage;
grpStyle: TRadioGroup; grpAsmStyle: TRadioGroup;
grpSyntaxOptions: TCheckGroup; grpSyntaxOptions: TCheckGroup;
{ Code Generation Controls } { Code Generation Controls }
@ -490,9 +490,9 @@ begin
// parsing // parsing
if (Options.AssemblerStyle in [1,2,3]) then if (Options.AssemblerStyle in [1,2,3]) then
grpStyle.ItemIndex:=Options.AssemblerStyle grpAsmStyle.ItemIndex:=Options.AssemblerStyle
else else
grpStyle.ItemIndex:=0; grpAsmStyle.ItemIndex:=0;
with grpSyntaxOptions do with grpSyntaxOptions do
begin begin
@ -812,7 +812,7 @@ begin
Options.LCLWidgetType:= LCLPlatformDirNames[TLCLPlatform(i-1)]; Options.LCLWidgetType:= LCLPlatformDirNames[TLCLPlatform(i-1)];
// parsing; // parsing;
Options.AssemblerStyle := grpStyle.ItemIndex; Options.AssemblerStyle := grpAsmStyle.ItemIndex;
with grpSyntaxOptions do with grpSyntaxOptions do
begin begin
@ -1105,8 +1105,8 @@ begin
MainNoteBook.Page[Page].Caption:= dlgCOParsing; MainNoteBook.Page[Page].Caption:= dlgCOParsing;
// Setup the Parsing Tab // Setup the Parsing Tab
with grpStyle do begin with grpAsmStyle do begin
Caption := dlgCOStyle+' (-R)'; Caption := dlgCOAsmStyle+' (-R)';
with Items do begin with Items do begin
BeginUpdate; BeginUpdate;

2
ide/lazarusidestrconsts.pas
View File

@ -1158,7 +1158,7 @@ resourcestring
lisSelectANode = 'Select a node'; lisSelectANode = 'Select a node';
dlgShowCompilerOptions = 'Show compiler options'; dlgShowCompilerOptions = 'Show compiler options';
dlgCOOpts = 'Options: '; dlgCOOpts = 'Options: ';
dlgCOStyle = 'Style:'; dlgCOAsmStyle = 'Assembler style:';
lisNoCompilerOptionsInherited = 'No compiler options inherited.'; lisNoCompilerOptionsInherited = 'No compiler options inherited.';
lisunitPath = 'unit path'; lisunitPath = 'unit path';
lisincludePath = 'include path'; lisincludePath = 'include path';