paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 14:58:13 +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
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
PageIndex = 2
PageIndex = 1
TabOrder = 0
object PathPage: TPage
Caption = 'PathPage'
@ -244,7 +244,7 @@ object frmCompilerOptions: TfrmCompilerOptions
Caption = 'ParsingPage'
ClientWidth = 665
ClientHeight = 449
object grpStyle: TRadioGroup
object grpAsmStyle: TRadioGroup
Left = 6
Height = 40
Top = 6
@ -252,7 +252,7 @@ object frmCompilerOptions: TfrmCompilerOptions
Align = alTop
AutoFill = True
BorderSpacing.Around = 6
Caption = 'grpStyle'
Caption = 'grpAsmStyle'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@ -428,7 +428,6 @@ object frmCompilerOptions: TfrmCompilerOptions
Top = 6
Width = 120
Align = alTop
Anchors = [akTop, akLeft]
BorderSpacing.Around = 6
Caption = 'radGenNormal'
Checked = True
@ -441,7 +440,6 @@ object frmCompilerOptions: TfrmCompilerOptions
Top = 34
Width = 120
Align = alTop
Anchors = [akTop, akLeft]
BorderSpacing.Around = 6
Caption = 'radGenFaster'
TabOrder = 1
@ -452,7 +450,6 @@ object frmCompilerOptions: TfrmCompilerOptions
Top = 62
Width = 120
Align = alTop
Anchors = [akTop, akLeft]
BorderSpacing.Around = 6
Caption = 'radGenSmaller'
TabOrder = 2
@ -987,7 +984,7 @@ object frmCompilerOptions: TfrmCompilerOptions
Cursor = crVSplit
Height = 5
Top = 279
Width = 665
Width = 1
Align = alTop
ResizeAnchor = akTop
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 }
ParsingPage: TPage;
grpStyle: TRadioGroup;
grpAsmStyle: TRadioGroup;
grpSyntaxOptions: TCheckGroup;
{ Code Generation Controls }
@ -490,9 +490,9 @@ begin
// parsing
if (Options.AssemblerStyle in [1,2,3]) then
grpStyle.ItemIndex:=Options.AssemblerStyle
grpAsmStyle.ItemIndex:=Options.AssemblerStyle
else
grpStyle.ItemIndex:=0;
grpAsmStyle.ItemIndex:=0;
with grpSyntaxOptions do
begin
@ -812,7 +812,7 @@ begin
Options.LCLWidgetType:= LCLPlatformDirNames[TLCLPlatform(i-1)];
// parsing;
Options.AssemblerStyle := grpStyle.ItemIndex;
Options.AssemblerStyle := grpAsmStyle.ItemIndex;
with grpSyntaxOptions do
begin
@ -1105,8 +1105,8 @@ begin
MainNoteBook.Page[Page].Caption:= dlgCOParsing;
// Setup the Parsing Tab
with grpStyle do begin
Caption := dlgCOStyle+' (-R)';
with grpAsmStyle do begin
Caption := dlgCOAsmStyle+' (-R)';
with Items do begin
BeginUpdate;

2
ide/lazarusidestrconsts.pas
View File

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