home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2003 February
/
PCWorld_2003-02_cd.bin
/
Software
/
Topware
/
devpascal
/
devpas.exe
/
0
/
RCDATA
/
TCOMPFORM
/
TCOMPFORM.txt
Wrap
Text File
|
2002-07-15
|
16KB
|
549 lines
object CompForm: TCompForm
Left = 278
Top = 146
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Compiler options'
ClientHeight = 427
ClientWidth = 523
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 120
TextHeight = 16
object BitBtn1: TBitBtn
Left = 10
Top = 389
Width = 92
Height = 31
Caption = '&OK'
ModalResult = 1
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 108
Top = 389
Width = 93
Height = 31
Cancel = True
Caption = '&Cancel'
ModalResult = 2
TabOrder = 1
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 418
Top = 389
Width = 95
Height = 31
Caption = '&Default'
TabOrder = 2
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object PageControl: TPageControl
Left = 10
Top = 10
Width = 503
Height = 365
ActivePage = PasTab
TabOrder = 3
object DirTab: TTabSheet
Caption = 'Directories'
object Panel6: TPanel
Left = 0
Top = 0
Width = 495
Height = 334
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 10
Top = 191
Width = 77
Height = 16
Caption = 'Bin directory:'
end
object Label2: TLabel
Left = 10
Top = 228
Width = 102
Height = 16
Caption = 'Pascal units files:'
end
object Label4: TLabel
Left = 10
Top = 265
Width = 110
Height = 16
Caption = 'Libraries directory:'
end
object Label7: TLabel
Left = 10
Top = 138
Width = 396
Height = 48
Caption =
'You can change the directory paths of your Free Pascal compiler ' +
'system You can add multiple directories by separating them with' +
' a semi-colon (;) .'
WordWrap = True
end
object AddDir: TCheckBox
Left = 10
Top = 10
Width = 367
Height = 21
Caption = 'Add the directory below to be searched for include files:'
TabOrder = 0
end
object AddDirEdit: TEdit
Left = 30
Top = 36
Width = 316
Height = 24
TabOrder = 1
end
object ComCheck: TCheckBox
Left = 10
Top = 71
Width = 346
Height = 21
Caption = 'Add the following commands when calling compiler:'
TabOrder = 2
end
object Commands: TEdit
Left = 30
Top = 95
Width = 316
Height = 24
TabOrder = 3
end
object eBinDir: TEdit
Left = 128
Top = 187
Width = 346
Height = 24
TabOrder = 4
end
object ePasdir: TEdit
Left = 128
Top = 222
Width = 346
Height = 24
TabOrder = 5
end
object eLibDir: TEdit
Left = 128
Top = 261
Width = 346
Height = 24
TabOrder = 6
end
end
end
object PasTab: TTabSheet
Caption = 'Pascal compiler'
object Panel1: TPanel
Left = 0
Top = 0
Width = 495
Height = 334
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object GroupBox1: TGroupBox
Left = 10
Top = 10
Width = 474
Height = 139
Caption = 'Syntax options :'
TabOrder = 0
object DelphiExt: TCheckBox
Left = 10
Top = 30
Width = 218
Height = 20
Caption = 'Switch some &Delphi extension on'
TabOrder = 0
end
object COp: TCheckBox
Left = 10
Top = 108
Width = 228
Height = 21
Caption = '&Support operators like C (*=, +=, ...)'
TabOrder = 1
end
object LabelGoto: TCheckBox
Left = 246
Top = 30
Width = 169
Height = 20
Caption = '&Allow Label and Goto'
TabOrder = 2
end
object Assert: TCheckBox
Left = 10
Top = 49
Width = 178
Height = 21
Caption = '&Include Assertion code'
TabOrder = 3
end
object DelphiComp: TCheckBox
Left = 246
Top = 49
Width = 185
Height = 21
Caption = '&Try to be Delphi compatible'
TabOrder = 4
end
object Ansi: TCheckBox
Left = 10
Top = 69
Width = 223
Height = 21
Caption = '&Use ansistrings'
TabOrder = 5
end
object CInline: TCheckBox
Left = 246
Top = 69
Width = 188
Height = 21
Caption = 'Support C&++ styled INLINE'
TabOrder = 6
end
object TP7: TCheckBox
Left = 10
Top = 89
Width = 228
Height = 21
Caption = 'Try to be TP/BP &7 compatible'
TabOrder = 7
end
object Macros: TCheckBox
Left = 246
Top = 89
Width = 218
Height = 21
Caption = 'Support ¯os like C (global)'
TabOrder = 8
end
object NoCheckUnit: TCheckBox
Left = 246
Top = 108
Width = 208
Height = 21
Caption = 'Don'#39't chec&k the unit name'
TabOrder = 9
end
end
object GroupBox5: TGroupBox
Left = 10
Top = 158
Width = 474
Height = 91
Caption = 'Executable :'
TabOrder = 1
object LinkDyn: TCheckBox
Left = 10
Top = 27
Width = 188
Height = 21
Caption = 'Try to &link dynamically'
TabOrder = 0
end
object LinkSmart: TCheckBox
Left = 246
Top = 24
Width = 208
Height = 33
Caption = 'Try to link &smart'
TabOrder = 1
end
object StripSymbols: TCheckBox
Left = 10
Top = 49
Width = 228
Height = 21
Caption = 'Strip all symbols from e&xecutable'
TabOrder = 2
end
end
object ThisCompilerRadioGroup: TRadioGroup
Left = 10
Top = 256
Width = 471
Height = 65
Caption = 'Current compiler : '
Columns = 2
ItemIndex = 0
Items.Strings = (
'Freepascal'
'GNU Pascal')
TabOrder = 2
OnClick = ThisCompilerRadioGroupClick
end
end
end
object CodeGenTab: TTabSheet
Caption = 'Code generation / Optimization'
object Panel3: TPanel
Left = 0
Top = 0
Width = 495
Height = 334
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object GroupBox4: TGroupBox
Left = 10
Top = 10
Width = 474
Height = 119
Caption = 'Code generation: '
TabOrder = 0
object IOCheck: TCheckBox
Left = 10
Top = 22
Width = 188
Height = 20
Caption = '&IO checking'
TabOrder = 0
end
object StackCheck: TCheckBox
Left = 10
Top = 43
Width = 198
Height = 21
Caption = '&Stack checking'
TabOrder = 1
end
object Overflow: TCheckBox
Left = 10
Top = 60
Width = 257
Height = 30
Caption = '&Check overflow of integer operations'
TabOrder = 2
end
object GUIApp: TCheckBox
Left = 10
Top = 88
Width = 297
Height = 17
Caption = 'Create &GUI application'
TabOrder = 3
end
end
object CPURadioGroup: TRadioGroup
Left = 10
Top = 240
Width = 473
Height = 81
Caption = ' Target CPU: '
Columns = 2
ItemIndex = 0
Items.Strings = (
'i386'
'i486'
'Pentium and above'
'Pentium II and above')
TabOrder = 1
end
object GroupBox2: TGroupBox
Left = 10
Top = 136
Width = 473
Height = 97
Caption = ' Optimization: '
TabOrder = 2
object SmallCode: TRadioButton
Left = 10
Top = 24
Width = 209
Height = 17
Caption = 'SmallCode'
TabOrder = 0
end
object QuickOpt: TRadioButton
Left = 10
Top = 48
Width = 113
Height = 17
Caption = 'QuickOpt'
Checked = True
TabOrder = 1
TabStop = True
end
object Best: TRadioButton
Left = 10
Top = 72
Width = 113
Height = 17
Caption = 'Best'
TabOrder = 2
end
end
end
end
object LinkerTab: TTabSheet
Caption = 'Linker'
object Panel4: TPanel
Left = 0
Top = 0
Width = 495
Height = 334
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label5: TLabel
Left = 10
Top = 108
Width = 36
Height = 16
Caption = 'Hint !'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DebugInfo: TCheckBox
Left = 10
Top = 30
Width = 237
Height = 20
Caption = '&Generate debugging information'
TabOrder = 0
end
object Panel2: TPanel
Left = 10
Top = 128
Width = 296
Height = 70
BevelOuter = bvLowered
Color = 14811135
TabOrder = 1
object Label6: TLabel
Left = 15
Top = 2
Width = 272
Height = 66
AutoSize = False
Caption =
'If you want the compiler to generate debug information in your e' +
'xecutable (to be able to DEBUG it), check "Generate debugging i' +
'nformation".'
WordWrap = True
end
end
object NoReloc: TCheckBox
Left = 10
Top = 59
Width = 395
Height = 21
Caption = '&Do not generate relocation code (necessary when debugging)'
TabOrder = 2
end
end
end
end
object HelpBtn: TBitBtn
Left = 209
Top = 389
Width = 93
Height = 31
TabOrder = 4
OnClick = HelpBtnClick
Kind = bkHelp
end
object MarsCaption1: TMarsCaption
ActiveBeginColor = clBlack
ActiveEndColor = clBlue
ActiveFontColor = clWhite
InactiveBeginColor = clBlack
InactiveEndColor = clSilver
InactiveFontColor = clSilver
ApplicationNameFont.Charset = DEFAULT_CHARSET
ApplicationNameFont.Color = clWindowText
ApplicationNameFont.Height = -11
ApplicationNameFont.Name = 'MS Sans Serif'
ApplicationNameFont.Style = [fsBold]
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'MS Sans Serif'
CaptionFont.Style = []
NumColors = 64
AutoSize = False
Left = 376
Top = 376
end
end