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

moved types from graphtype.pp back to graphics.pp

Browse Source 
git-svn-id: trunk@4502 -
This commit is contained in:
mattias 2003-08-19 12:23:23 +00:00
parent 3399bc1585
commit 153ac501b0
11 changed files with 348 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

116
ide/buildfiledlg.lfm
View File

@ -1,14 +1,14 @@
object BuildFileDialog: TBuildFileDialog
CAPTION = 'BuildFileDialog'
CLIENTHEIGHT = 310
CLIENTHEIGHT = 344
CLIENTWIDTH = 414
KEYPREVIEW = True
ONKEYDOWN = BuildFileDialogKEYDOWN
POSITION = poscreencenter
HORZSCROLLBAR.PAGE = 415
VERTSCROLLBAR.PAGE = 311
VERTSCROLLBAR.PAGE = 345
LEFT = 336
HEIGHT = 310
HEIGHT = 344
TOP = 221
WIDTH = 414
object OkButton: TBUTTON
@ -19,7 +19,7 @@ object BuildFileDialog: TBuildFileDialog
TABORDER = 0
LEFT = 106
HEIGHT = 25
TOP = 276
TOP = 310
WIDTH = 75
end
object CancelButton: TBUTTON
@ -30,21 +30,21 @@ object BuildFileDialog: TBuildFileDialog
TABORDER = 1
LEFT = 234
HEIGHT = 25
TOP = 276
TOP = 310
WIDTH = 75
end
object Notebook1: TNOTEBOOK
ALIGN = altop
ANCHORS = [aktop, akleft, akright, akbottom]
PAGEINDEX = 0
HEIGHT = 268
PAGEINDEX = 1
HEIGHT = 303
WIDTH = 414
object GeneralPage: TPAGE
CAPTION = 'Options'
CLIENTWIDTH = 410
CLIENTHEIGHT = 238
CLIENTHEIGHT = 273
LEFT = 2
HEIGHT = 238
HEIGHT = 273
TOP = 28
WIDTH = 410
object OverrideBuildProjectCheckbox: TCHECKBOX
@ -75,12 +75,13 @@ object BuildFileDialog: TBuildFileDialog
object CompilePage: TPAGE
CAPTION = 'Compile'
CLIENTWIDTH = 410
CLIENTHEIGHT = 238
CLIENTHEIGHT = 273
LEFT = 2
HEIGHT = 238
HEIGHT = 273
TOP = 28
WIDTH = 410
object CompileCommandGroupbox: TGROUPBOX
ANCHORS = [aktop, akleft, akright]
CAPTION = 'Compile Command'
CLIENTHEIGHT = 53
CLIENTWIDTH = 398
@ -88,7 +89,7 @@ object BuildFileDialog: TBuildFileDialog
TABORDER = 0
LEFT = 4
HEIGHT = 70
TOP = 6
TOP = 52
WIDTH = 402
object CompileCommandMemo: TMEMO
ALIGN = alclient
@ -111,8 +112,8 @@ object BuildFileDialog: TBuildFileDialog
TABSTOP = True
LEFT = 10
HEIGHT = 20
TOP = 84
WIDTH = 211
TOP = 122
WIDTH = 388
end
object CompScanForMakeMsgCheckbox: TCHECKBOX
ALLOWGRAYED = True
@ -123,19 +124,20 @@ object BuildFileDialog: TBuildFileDialog
TABSTOP = True
LEFT = 10
HEIGHT = 20
TOP = 108
WIDTH = 217
TOP = 146
WIDTH = 388
end
object CompileMacrosGroupbox: TGROUPBOX
ANCHORS = [aktop, akleft, akright]
CAPTION = 'Macros'
CLIENTHEIGHT = 81
CLIENTWIDTH = 399
CLIENTWIDTH = 398
PARENTCTL3D = False
TABORDER = 3
LEFT = 4
HEIGHT = 98
TOP = 132
WIDTH = 403
TOP = 170
WIDTH = 402
object CompileMacrosListbox: TLISTBOX
ALIGN = alleft
TABORDER = 0
@ -154,13 +156,34 @@ object BuildFileDialog: TBuildFileDialog
WIDTH = 75
end
end
object CompileWorkingDirGroupbox: TGROUPBOX
CAPTION = 'Working directory'
CLIENTHEIGHT = 31
CLIENTWIDTH = 398
PARENTCTL3D = False
TABORDER = 4
LEFT = 4
HEIGHT = 48
TOP = 4
WIDTH = 402
object Combobox1: TCOMBOBOX
ANCHORS = [aktop, akleft, akright]
MAXLENGTH = 0
PARENTCTL3D = False
TABORDER = 0
TABSTOP = True
TEXT = 'CompileWorkDirCombobox'
HEIGHT = 25
WIDTH = 396
end
end
end
object RunPage: TPAGE
CAPTION = 'Run'
CLIENTWIDTH = 410
CLIENTHEIGHT = 238
CLIENTHEIGHT = 273
LEFT = 2
HEIGHT = 238
HEIGHT = 273
TOP = 28
WIDTH = 410
object AlwaysCompileFirstCheckbox: TCHECKBOX
@ -176,15 +199,16 @@ object BuildFileDialog: TBuildFileDialog
WIDTH = 392
end
object RunCommandGroupbox: TGROUPBOX
ANCHORS = [aktop, akleft, akright]
CAPTION = 'Run Command'
CLIENTHEIGHT = 53
CLIENTWIDTH = 398
CLIENTWIDTH = 400
PARENTCTL3D = False
TABORDER = 1
LEFT = 4
HEIGHT = 70
TOP = 28
WIDTH = 402
TOP = 76
WIDTH = 404
object RunCommandMemo: TMEMO
ALIGN = alclient
LINES.Strings = (
@ -194,7 +218,7 @@ object BuildFileDialog: TBuildFileDialog
TABSTOP = True
TABORDER = 0
HEIGHT = 53
WIDTH = 398
WIDTH = 400
end
end
object RunScanForFPCMsgCheckbox: TCHECKBOX
@ -206,8 +230,8 @@ object BuildFileDialog: TBuildFileDialog
TABSTOP = True
LEFT = 10
HEIGHT = 20
TOP = 100
WIDTH = 211
TOP = 148
WIDTH = 388
end
object RunScanForMakeMsgCheckbox: TCHECKBOX
ALLOWGRAYED = True
@ -218,25 +242,26 @@ object BuildFileDialog: TBuildFileDialog
TABSTOP = True
LEFT = 10
HEIGHT = 20
TOP = 124
WIDTH = 217
TOP = 172
WIDTH = 392
end
object RunMacrosGroupbox: TGROUPBOX
ANCHORS = [aktop, akleft, akright]
CAPTION = 'Macros'
CLIENTHEIGHT = 65
CLIENTWIDTH = 399
CLIENTHEIGHT = 57
CLIENTWIDTH = 398
PARENTCTL3D = False
TABORDER = 4
LEFT = 4
HEIGHT = 82
TOP = 148
WIDTH = 403
HEIGHT = 74
TOP = 196
WIDTH = 402
object RunMacrosListbox: TLISTBOX
ALIGN = alleft
TABORDER = 0
TABSTOP = True
TOPINDEX = -1
HEIGHT = 65
HEIGHT = 57
WIDTH = 296
end
object RunAddMacroButton: TBUTTON
@ -249,6 +274,27 @@ object BuildFileDialog: TBuildFileDialog
WIDTH = 75
end
end
object RunWorkDirGroupbox: TGROUPBOX
ANCHORS = [aktop, akleft, akright]
CAPTION = 'Working Directory'
CLIENTHEIGHT = 32
CLIENTWIDTH = 400
PARENTCTL3D = False
TABORDER = 5
LEFT = 4
HEIGHT = 49
TOP = 27
WIDTH = 404
object RunWorkDirCombobox: TCOMBOBOX
MAXLENGTH = 0
PARENTCTL3D = False
TABORDER = 0
TABSTOP = True
TEXT = 'RunWorkDirCombobox'
HEIGHT = 25
WIDTH = 396
end
end
end
end
end

112
ide/buildfiledlg.lrs
View File

@ -2,66 +2,80 @@
LazarusResources.Add('TBuildFileDialog','FORMDATA',[
'TPF0'#16'TBuildFileDialog'#15'BuildFileDialog'#7'CAPTION'#6#15'BuildFileDial'
+'og'#12'CLIENTHEIGHT'#3'6'#1#11'CLIENTWIDTH'#3#158#1#10'KEYPREVIEW'#9#9'ONKE'
+'og'#12'CLIENTHEIGHT'#3'X'#1#11'CLIENTWIDTH'#3#158#1#10'KEYPREVIEW'#9#9'ONKE'
+'YDOWN'#7#22'BuildFileDialogKEYDOWN'#8'POSITION'#7#14'poscreencenter'#18'HOR'
+'ZSCROLLBAR.PAGE'#3#159#1#18'VERTSCROLLBAR.PAGE'#3'7'#1#4'LEFT'#3'P'#1#6'HEI'
+'GHT'#3'6'#1#3'TOP'#3#221#0#5'WIDTH'#3#158#1#0#7'TBUTTON'#8'OkButton'#7'ANCH'
+'ZSCROLLBAR.PAGE'#3#159#1#18'VERTSCROLLBAR.PAGE'#3'Y'#1#4'LEFT'#3'P'#1#6'HEI'
+'GHT'#3'X'#1#3'TOP'#3#221#0#5'WIDTH'#3#158#1#0#7'TBUTTON'#8'OkButton'#7'ANCH'
+'ORS'#11#6'akleft'#8'akbottom'#0#11'MODALRESULT'#2#1#7'CAPTION'#6#2'Ok'#7'TA'
+'BSTOP'#9#8'TABORDER'#2#0#4'LEFT'#2'j'#6'HEIGHT'#2#25#3'TOP'#3#20#1#5'WIDTH'
+'BSTOP'#9#8'TABORDER'#2#0#4'LEFT'#2'j'#6'HEIGHT'#2#25#3'TOP'#3'6'#1#5'WIDTH'
+#2'K'#0#0#7'TBUTTON'#12'CancelButton'#7'ANCHORS'#11#6'akleft'#8'akbottom'#0
+#11'MODALRESULT'#2#2#7'CAPTION'#6#6'Cancel'#7'TABSTOP'#9#8'TABORDER'#2#1#4'L'
+'EFT'#3#234#0#6'HEIGHT'#2#25#3'TOP'#3#20#1#5'WIDTH'#2'K'#0#0#9'TNOTEBOOK'#9
+'EFT'#3#234#0#6'HEIGHT'#2#25#3'TOP'#3'6'#1#5'WIDTH'#2'K'#0#0#9'TNOTEBOOK'#9
+'Notebook1'#5'ALIGN'#7#5'altop'#7'ANCHORS'#11#5'aktop'#6'akleft'#7'akright'#8
+'akbottom'#0#9'PAGEINDEX'#2#0#6'HEIGHT'#3#12#1#5'WIDTH'#3#158#1#0#5'TPAGE'#11
+'akbottom'#0#9'PAGEINDEX'#2#1#6'HEIGHT'#3'/'#1#5'WIDTH'#3#158#1#0#5'TPAGE'#11
+'GeneralPage'#7'CAPTION'#6#7'Options'#11'CLIENTWIDTH'#3#154#1#12'CLIENTHEIGH'
+'T'#3#238#0#4'LEFT'#2#2#6'HEIGHT'#3#238#0#3'TOP'#2#28#5'WIDTH'#3#154#1#0#9'T'
+'CHECKBOX'#28'OverrideBuildProjectCheckbox'#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7
+'T'#3#17#1#4'LEFT'#2#2#6'HEIGHT'#3#17#1#3'TOP'#2#28#5'WIDTH'#3#154#1#0#9'TCH'
+'ECKBOX'#28'OverrideBuildProjectCheckbox'#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7
+'CAPTION'#6'4On build project execute the Compile command instead'#10'DRAGCU'
+'RSOR'#2#0#8'TABORDER'#2#0#7'TABSTOP'#9#4'LEFT'#2#14#6'HEIGHT'#2#20#3'TOP'#2
+#12#5'WIDTH'#3#128#1#0#0#9'TCHECKBOX'#26'OverrideRunProjectCheckbox'#11'ALLO'
+'WGRAYED'#9#8'AUTOSIZE'#9#7'CAPTION'#6'.On run project execute the Run comma'
+'nd instead'#10'DRAGCURSOR'#2#0#8'TABORDER'#2#1#7'TABSTOP'#9#4'LEFT'#2#14#6
+'HEIGHT'#2#20#3'TOP'#2','#5'WIDTH'#3#128#1#0#0#0#5'TPAGE'#11'CompilePage'#7
+'CAPTION'#6#7'Compile'#11'CLIENTWIDTH'#3#154#1#12'CLIENTHEIGHT'#3#238#0#4'LE'
+'FT'#2#2#6'HEIGHT'#3#238#0#3'TOP'#2#28#5'WIDTH'#3#154#1#0#9'TGROUPBOX'#22'Co'
+'mpileCommandGroupbox'#7'CAPTION'#6#15'Compile Command'#12'CLIENTHEIGHT'#2'5'
+#11'CLIENTWIDTH'#3#142#1#11'PARENTCTL3D'#8#8'TABORDER'#2#0#4'LEFT'#2#4#6'HEI'
+'GHT'#2'F'#3'TOP'#2#6#5'WIDTH'#3#146#1#0#5'TMEMO'#18'CompileCommandMemo'#5'A'
+'CAPTION'#6#7'Compile'#11'CLIENTWIDTH'#3#154#1#12'CLIENTHEIGHT'#3#17#1#4'LEF'
+'T'#2#2#6'HEIGHT'#3#17#1#3'TOP'#2#28#5'WIDTH'#3#154#1#0#9'TGROUPBOX'#22'Comp'
+'ileCommandGroupbox'#7'ANCHORS'#11#5'aktop'#6'akleft'#7'akright'#0#7'CAPTION'
+#6#15'Compile Command'#12'CLIENTHEIGHT'#2'5'#11'CLIENTWIDTH'#3#142#1#11'PARE'
+'NTCTL3D'#8#8'TABORDER'#2#0#4'LEFT'#2#4#6'HEIGHT'#2'F'#3'TOP'#2'4'#5'WIDTH'#3
+#146#1#0#5'TMEMO'#18'CompileCommandMemo'#5'ALIGN'#7#8'alclient'#13'LINES.Str'
+'ings'#1#6#18'CompileCommandMemo'#0#7'TABSTOP'#9#7'TABSTOP'#9#8'TABORDER'#2#0
+#6'HEIGHT'#2'5'#5'WIDTH'#3#142#1#0#0#0#9'TCHECKBOX'#28'CompileScanForFPCMsgC'
+'heckbox'#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7'CAPTION'#6#21'Scan for FPC messa'
+'ges'#10'DRAGCURSOR'#2#0#8'TABORDER'#2#1#7'TABSTOP'#9#4'LEFT'#2#10#6'HEIGHT'
+#2#20#3'TOP'#2'z'#5'WIDTH'#3#132#1#0#0#9'TCHECKBOX'#26'CompScanForMakeMsgChe'
+'ckbox'#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7'CAPTION'#6#22'Scan for Make messag'
+'es'#10'DRAGCURSOR'#2#0#8'TABORDER'#2#2#7'TABSTOP'#9#4'LEFT'#2#10#6'HEIGHT'#2
+#20#3'TOP'#3#146#0#5'WIDTH'#3#132#1#0#0#9'TGROUPBOX'#21'CompileMacrosGroupbo'
+'x'#7'ANCHORS'#11#5'aktop'#6'akleft'#7'akright'#0#7'CAPTION'#6#6'Macros'#12
+'CLIENTHEIGHT'#2'Q'#11'CLIENTWIDTH'#3#142#1#11'PARENTCTL3D'#8#8'TABORDER'#2#3
+#4'LEFT'#2#4#6'HEIGHT'#2'b'#3'TOP'#3#170#0#5'WIDTH'#3#146#1#0#8'TLISTBOX'#20
+'CompileMacrosListbox'#5'ALIGN'#7#6'alleft'#8'TABORDER'#2#0#7'TABSTOP'#9#8'T'
+'OPINDEX'#2#255#6'HEIGHT'#2'Q'#5'WIDTH'#3'('#1#0#0#7'TBUTTON'#21'CompileAddM'
+'acroButton'#7'CAPTION'#6#3'Add'#7'TABSTOP'#9#8'TABORDER'#2#1#4'LEFT'#3'8'#1
+#6'HEIGHT'#2#25#3'TOP'#2#9#5'WIDTH'#2'K'#0#0#0#9'TGROUPBOX'#25'CompileWorkin'
+'gDirGroupbox'#7'CAPTION'#6#17'Working directory'#12'CLIENTHEIGHT'#2#31#11'C'
+'LIENTWIDTH'#3#142#1#11'PARENTCTL3D'#8#8'TABORDER'#2#4#4'LEFT'#2#4#6'HEIGHT'
+#2'0'#3'TOP'#2#4#5'WIDTH'#3#146#1#0#9'TCOMBOBOX'#9'Combobox1'#7'ANCHORS'#11#5
+'aktop'#6'akleft'#7'akright'#0#9'MAXLENGTH'#2#0#11'PARENTCTL3D'#8#8'TABORDER'
+#2#0#7'TABSTOP'#9#4'TEXT'#6#22'CompileWorkDirCombobox'#6'HEIGHT'#2#25#5'WIDT'
+'H'#3#140#1#0#0#0#0#5'TPAGE'#7'RunPage'#7'CAPTION'#6#3'Run'#11'CLIENTWIDTH'#3
+#154#1#12'CLIENTHEIGHT'#3#17#1#4'LEFT'#2#2#6'HEIGHT'#3#17#1#3'TOP'#2#28#5'WI'
+'DTH'#3#154#1#0#9'TCHECKBOX'#26'AlwaysCompileFirstCheckbox'#11'ALLOWGRAYED'#9
+#8'AUTOSIZE'#9#7'CAPTION'#6'%Always run the Compile command before'#10'DRAGC'
+'URSOR'#2#0#8'TABORDER'#2#0#7'TABSTOP'#9#4'LEFT'#2#10#6'HEIGHT'#2#20#3'TOP'#2
+#4#5'WIDTH'#3#136#1#0#0#9'TGROUPBOX'#18'RunCommandGroupbox'#7'ANCHORS'#11#5
+'aktop'#6'akleft'#7'akright'#0#7'CAPTION'#6#11'Run Command'#12'CLIENTHEIGHT'
+#2'5'#11'CLIENTWIDTH'#3#144#1#11'PARENTCTL3D'#8#8'TABORDER'#2#1#4'LEFT'#2#4#6
+'HEIGHT'#2'F'#3'TOP'#2'L'#5'WIDTH'#3#148#1#0#5'TMEMO'#14'RunCommandMemo'#5'A'
+'LIGN'#7#8'alclient'#13'LINES.Strings'#1#6#18'CompileCommandMemo'#0#7'TABSTO'
+'P'#9#7'TABSTOP'#9#8'TABORDER'#2#0#6'HEIGHT'#2'5'#5'WIDTH'#3#142#1#0#0#0#9'T'
+'CHECKBOX'#28'CompileScanForFPCMsgCheckbox'#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7
+'CAPTION'#6#21'Scan for FPC messages'#10'DRAGCURSOR'#2#0#8'TABORDER'#2#1#7'T'
+'ABSTOP'#9#4'LEFT'#2#10#6'HEIGHT'#2#20#3'TOP'#2'T'#5'WIDTH'#3#211#0#0#0#9'TC'
+'HECKBOX'#26'CompScanForMakeMsgCheckbox'#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7'C'
+'APTION'#6#22'Scan for Make messages'#10'DRAGCURSOR'#2#0#8'TABORDER'#2#2#7'T'
+'ABSTOP'#9#4'LEFT'#2#10#6'HEIGHT'#2#20#3'TOP'#2'l'#5'WIDTH'#3#217#0#0#0#9'TG'
+'ROUPBOX'#21'CompileMacrosGroupbox'#7'CAPTION'#6#6'Macros'#12'CLIENTHEIGHT'#2
+'Q'#11'CLIENTWIDTH'#3#143#1#11'PARENTCTL3D'#8#8'TABORDER'#2#3#4'LEFT'#2#4#6
+'HEIGHT'#2'b'#3'TOP'#3#132#0#5'WIDTH'#3#147#1#0#8'TLISTBOX'#20'CompileMacros'
+'Listbox'#5'ALIGN'#7#6'alleft'#8'TABORDER'#2#0#7'TABSTOP'#9#8'TOPINDEX'#2#255
+#6'HEIGHT'#2'Q'#5'WIDTH'#3'('#1#0#0#7'TBUTTON'#21'CompileAddMacroButton'#7'C'
+'APTION'#6#3'Add'#7'TABSTOP'#9#8'TABORDER'#2#1#4'LEFT'#3'8'#1#6'HEIGHT'#2#25
+#3'TOP'#2#9#5'WIDTH'#2'K'#0#0#0#0#5'TPAGE'#7'RunPage'#7'CAPTION'#6#3'Run'#11
+'CLIENTWIDTH'#3#154#1#12'CLIENTHEIGHT'#3#238#0#4'LEFT'#2#2#6'HEIGHT'#3#238#0
+#3'TOP'#2#28#5'WIDTH'#3#154#1#0#9'TCHECKBOX'#26'AlwaysCompileFirstCheckbox'
+#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7'CAPTION'#6'%Always run the Compile comman'
+'d before'#10'DRAGCURSOR'#2#0#8'TABORDER'#2#0#7'TABSTOP'#9#4'LEFT'#2#10#6'HE'
+'IGHT'#2#20#3'TOP'#2#4#5'WIDTH'#3#136#1#0#0#9'TGROUPBOX'#18'RunCommandGroupb'
+'ox'#7'CAPTION'#6#11'Run Command'#12'CLIENTHEIGHT'#2'5'#11'CLIENTWIDTH'#3#142
+#1#11'PARENTCTL3D'#8#8'TABORDER'#2#1#4'LEFT'#2#4#6'HEIGHT'#2'F'#3'TOP'#2#28#5
+'WIDTH'#3#146#1#0#5'TMEMO'#14'RunCommandMemo'#5'ALIGN'#7#8'alclient'#13'LINE'
+'S.Strings'#1#6#18'CompileCommandMemo'#0#7'TABSTOP'#9#7'TABSTOP'#9#8'TABORDE'
+'R'#2#0#6'HEIGHT'#2'5'#5'WIDTH'#3#142#1#0#0#0#9'TCHECKBOX'#24'RunScanForFPCM'
+'sgCheckbox'#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7'CAPTION'#6#21'Scan for FPC me'
+'ssages'#10'DRAGCURSOR'#2#0#8'TABORDER'#2#2#7'TABSTOP'#9#4'LEFT'#2#10#6'HEIG'
+'HT'#2#20#3'TOP'#2'd'#5'WIDTH'#3#211#0#0#0#9'TCHECKBOX'#25'RunScanForMakeMsg'
+'Checkbox'#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7'CAPTION'#6#22'Scan for Make mes'
+'sages'#10'DRAGCURSOR'#2#0#8'TABORDER'#2#3#7'TABSTOP'#9#4'LEFT'#2#10#6'HEIGH'
+'T'#2#20#3'TOP'#2'|'#5'WIDTH'#3#217#0#0#0#9'TGROUPBOX'#17'RunMacrosGroupbox'
+#7'CAPTION'#6#6'Macros'#12'CLIENTHEIGHT'#2'A'#11'CLIENTWIDTH'#3#143#1#11'PAR'
+'ENTCTL3D'#8#8'TABORDER'#2#4#4'LEFT'#2#4#6'HEIGHT'#2'R'#3'TOP'#3#148#0#5'WID'
+'TH'#3#147#1#0#8'TLISTBOX'#16'RunMacrosListbox'#5'ALIGN'#7#6'alleft'#8'TABOR'
+'DER'#2#0#7'TABSTOP'#9#8'TOPINDEX'#2#255#6'HEIGHT'#2'A'#5'WIDTH'#3'('#1#0#0#7
+'TBUTTON'#17'RunAddMacroButton'#7'CAPTION'#6#3'Add'#7'TABSTOP'#9#8'TABORDER'
+#2#1#4'LEFT'#3'8'#1#6'HEIGHT'#2#25#3'TOP'#2#9#5'WIDTH'#2'K'#0#0#0#0#0#0
+'P'#9#7'TABSTOP'#9#8'TABORDER'#2#0#6'HEIGHT'#2'5'#5'WIDTH'#3#144#1#0#0#0#9'T'
+'CHECKBOX'#24'RunScanForFPCMsgCheckbox'#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7'CA'
+'PTION'#6#21'Scan for FPC messages'#10'DRAGCURSOR'#2#0#8'TABORDER'#2#2#7'TAB'
+'STOP'#9#4'LEFT'#2#10#6'HEIGHT'#2#20#3'TOP'#3#148#0#5'WIDTH'#3#132#1#0#0#9'T'
+'CHECKBOX'#25'RunScanForMakeMsgCheckbox'#11'ALLOWGRAYED'#9#8'AUTOSIZE'#9#7'C'
+'APTION'#6#22'Scan for Make messages'#10'DRAGCURSOR'#2#0#8'TABORDER'#2#3#7'T'
+'ABSTOP'#9#4'LEFT'#2#10#6'HEIGHT'#2#20#3'TOP'#3#172#0#5'WIDTH'#3#136#1#0#0#9
,'TGROUPBOX'#17'RunMacrosGroupbox'#7'ANCHORS'#11#5'aktop'#6'akleft'#7'akright'
+#0#7'CAPTION'#6#6'Macros'#12'CLIENTHEIGHT'#2'9'#11'CLIENTWIDTH'#3#142#1#11'P'
+'ARENTCTL3D'#8#8'TABORDER'#2#4#4'LEFT'#2#4#6'HEIGHT'#2'J'#3'TOP'#3#196#0#5'W'
+'IDTH'#3#146#1#0#8'TLISTBOX'#16'RunMacrosListbox'#5'ALIGN'#7#6'alleft'#8'TAB'
+'ORDER'#2#0#7'TABSTOP'#9#8'TOPINDEX'#2#255#6'HEIGHT'#2'9'#5'WIDTH'#3'('#1#0#0
+#7'TBUTTON'#17'RunAddMacroButton'#7'CAPTION'#6#3'Add'#7'TABSTOP'#9#8'TABORDE'
+'R'#2#1#4'LEFT'#3'8'#1#6'HEIGHT'#2#25#3'TOP'#2#9#5'WIDTH'#2'K'#0#0#0#9'TGROU'
+'PBOX'#18'RunWorkDirGroupbox'#7'ANCHORS'#11#5'aktop'#6'akleft'#7'akright'#0#7
+'CAPTION'#6#17'Working Directory'#12'CLIENTHEIGHT'#2' '#11'CLIENTWIDTH'#3#144
+#1#11'PARENTCTL3D'#8#8'TABORDER'#2#5#4'LEFT'#2#4#6'HEIGHT'#2'1'#3'TOP'#2#27#5
+'WIDTH'#3#148#1#0#9'TCOMBOBOX'#18'RunWorkDirCombobox'#9'MAXLENGTH'#2#0#11'PA'
+'RENTCTL3D'#8#8'TABORDER'#2#0#7'TABSTOP'#9#4'TEXT'#6#18'RunWorkDirCombobox'#6
+'HEIGHT'#2#25#5'WIDTH'#3#140#1#0#0#0#0#0#0
]);

4
ide/buildfiledlg.pas
View File

@ -12,6 +12,8 @@ type
TBuildFileDialog = class(TForm)
AlwaysCompileFirstCheckbox: TCHECKBOX;
CancelButton: TBUTTON;
Combobox1: TCOMBOBOX;
RunWorkDirCombobox: TCOMBOBOX;
CompileAddMacroButton: TBUTTON;
CompileCommandGroupbox: TGROUPBOX;
CompileCommandMemo: TMEMO;
@ -21,6 +23,8 @@ type
CompileScanForFPCMsgCheckbox: TCHECKBOX;
CompScanForMakeMsgCheckbox: TCHECKBOX;
GeneralPage: TPAGE;
CompileWorkingDirGroupbox: TGROUPBOX;
RunWorkDirGroupbox: TGROUPBOX;
Notebook1: TNOTEBOOK;
OkButton: TBUTTON;
OverrideBuildProjectCheckbox: TCHECKBOX;

146
lcl/graphics.pp
View File

@ -36,6 +36,147 @@ uses
LCLStrConsts, vclGlobals, LMessages, LCLType, LCLProc, LCLLinux, LResources,
GraphType, GraphMath;
{$IFDEF NewGraphType}
type
PColor = ^TColor;
TColor = TGraphicsColor;
TFontPitch = (fpDefault, fpVariable, fpFixed);
TFontName = string;
TFontCharSet = 0..255;
TFontDataName = string[LF_FACESIZE -1];
TFontStyle = (fsBold, fsItalic, fsStrikeOut, fsUnderline);
TFontStyles = set of TFontStyle;
TFontStylesbase = set of TFontStyle;
TFontData = record
Handle : HFont;
Height : Integer;
Pitch : TFontPitch;
Style : TFontStylesBase;
CharSet : TFontCharSet;
Name : TFontDataName;
end;
{ Reflects text style when drawn in a rectangle }
TTextLayout = (tlTop, tlCenter, tlBottom);
TTextStyle = packed record
Alignment : TAlignment; // TextRect Only : horizontal alignment
Layout : TTextLayout; // TextRect Only : vertical alignment
SingleLine : boolean; // If WordBreak is false then process #13, #10 as
// standard chars and perform no Line breaking.
Clipping : boolean; // TextRect Only : Clip Text to passed Rectangle
ExpandTabs : boolean; // currently ignored
ShowPrefix : boolean; // TextRect Only : Process first single '&' per
// line as an underscore and draw '&&' as '&'
Wordbreak : boolean; // TextRect Only : If line of text is too long
// too fit between left and right boundaries
// try to break into multiple lines between
// words
Opaque : boolean; // TextRect : Fills background with current Brush
// TextOut : Fills background with current
// foreground color
SystemFont : Boolean; // Use the system font instead of Canvas Font
end;
TPenStyle = (psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear,
psInsideframe);
TPenMode = (pmBlack, pmWhite, pmNop, pmNot, pmCopy, pmNotCopy, pmMergePenNot,
pmMaskPenNot, pmMergeNotPen, pmMaskNotPen, pmMerge,pmNotMerge, pmMask,
pmNotMask, pmXor, pmNotXor
);
TPenData = record
Handle : HPen;
Color : TColor;
Width : Integer;
Style : TPenStyle;
end;
TBrushStyle = (bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal,
bsBDiagonal, bsCross, bsDiagCross);
TFillStyle = TGraphicsFillStyle;
TFillMode = (fmAlternate, fmWinding);
TCopymode = longint;
TCanvasStates = (csHandleValid, csFontValid, csPenvalid, csBrushValid,
csRegionValid);
TCanvasState = set of TCanvasStates;
TCanvasOrientation = (csLefttoRight, coRighttoLeft);
{ TProgressEvent is a generic progress notification event which may be
used by TGraphic classes with computationally intensive (slow)
operations, such as loading, storing, or transforming image data.
Event params:
Stage - Indicates whether this call to the OnProgress event is to
prepare for, process, or clean up after a graphic operation. If
OnProgress is called at all, the first call for a graphic operation
will be with Stage = psStarting, to allow the OnProgress event handler
to allocate whatever resources it needs to process subsequent progress
notifications. After Stage = psStarting, you are guaranteed that
OnProgress will be called again with Stage = psEnding to allow you
to free those resources, even if the graphic operation is aborted by
an exception. Zero or more calls to OnProgress with Stage = psRunning
may occur between the psStarting and psEnding calls.
PercentDone - The ratio of work done to work remaining, on a scale of
0 to 100. Values may repeat or even regress (get smaller) in
successive calls. PercentDone is usually only a guess, and the
guess may be dramatically altered as new information is discovered
in decoding the image.
RedrawNow - Indicates whether the graphic can be/should be redrawn
immediately. Useful for showing successive approximations of
an image as data is available instead of waiting for all the data
to arrive before drawing anything. Since there is no message loop
activity during graphic operations, you should call Update to force
a control to be redrawn immediately in the OnProgress event handler.
Redrawing a graphic when RedrawNow = False could corrupt the image
and/or cause exceptions.
Rect - Area of image that has changed and needs to be redrawn.
Msg - Optional text describing in one or two words what the graphic
class is currently working on. Ex: "Loading" "Storing"
"Reducing colors". The Msg string can also be empty.
Msg strings should be resourced for translation, should not
contain trailing periods, and should be used only for
display purposes. (do not: if Msg = 'Loading' then...)
}
TProgressStage = (psStarting, psRunning, psEnding);
TProgressEvent = procedure (Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
const Msg: string; var Continue : Boolean) of object;
TBevelCut = TGraphicsBevelCut;
{ For Delphi compatibility }
TPixelFormat = (
pfDevice,
pf1bit,
pf4bit,
pf8bit,
pf15bit,
pf16bit,
pf24bit,
pf32bit,
pfCustom
);
TTransparentMode = (
tmAuto,
tmFixed
);
{$ELSE}
{$ENDIF}
const
// The follow colors match the predefined Delphi Colors
@ -681,7 +822,9 @@ type
to convert it automatically to the best internal format. That is why the
Handle is interface dependent. }
{$IFNDEF NewGraphType}
TTransparentMode = (tmAuto, tmFixed);
{$ENDIF}
TBitmapInternalStateFlag = (
bmisCreateingCanvas
@ -1030,6 +1173,9 @@ end.
{ =============================================================================
$Log$
Revision 1.81 2003/08/19 12:23:23 mattias
moved types from graphtype.pp back to graphics.pp
Revision 1.80 2003/08/18 19:24:18 mattias
fixed TCanvas.Pie

13
lcl/graphtype.pp
View File

@ -35,6 +35,13 @@ uses
{$ASSERTIONS ON}
{$endif}
{$IFDEF NewGraphType}
type
TGraphicsColor = -$7FFFFFFF-1..$7FFFFFFF;
TGraphicsFillStyle = (fsSurface, fsBorder);
TGraphicsBevelCut = (bvNone, bvLowered, bvRaised);
{$ELSE}
type
PColor = ^TColor;
// don't define TColor as longint, or else the RTTI can't distinguish them
@ -56,7 +63,7 @@ type
CharSet : TFontCharSet;
Name : TFontDataName;
end;
{ Reflects text style when drawn in a rectangle }
TTextLayout = (tlTop, tlCenter, tlBottom);
@ -174,6 +181,7 @@ type
tmFixed
);
{$ENDIF}
//------------------------------------------------------------------------------
// raw image data
type
@ -260,6 +268,9 @@ end.
{ =============================================================================
$Log$
Revision 1.19 2003/08/19 12:23:23 mattias
moved types from graphtype.pp back to graphics.pp
Revision 1.18 2003/07/07 13:19:08 mattias
added raw image examples

13
lcl/include/interfacebase.inc
View File

@ -786,8 +786,10 @@ begin
Result := False;
end;
function TInterfaceBase.FloodFill(DC: HDC; X, Y: Integer; Color: TColor;
FillStyle: TFillStyle; Brush: HBRUSH): Boolean;
function TInterfaceBase.FloodFill(DC: HDC; X, Y: Integer;
Color: {$IFDEF NewGraphType}TGraphicsColor{$ELSE}TColor{$ENDIF};
FillStyle: {$IFDEF NewGraphType}TGraphicsFillStyle{$ELSE}TFillStyle{$ENDIF};
Brush: HBRUSH): Boolean;
begin
Result := false;
end;
@ -803,7 +805,9 @@ begin
end;
function TInterfaceBase.Frame3d(DC: HDC; var ARect: TRect;
const FrameWidth : integer; const Style : TBevelCut) : boolean;
const FrameWidth: integer;
const Style: {$IFDEF NewGraphType}TGraphicsBevelCut{$ELSE}TBevelCut{$ENDIF}
) : boolean;
begin
Result:= false;
end;
@ -1820,6 +1824,9 @@ end;
{ =============================================================================
$Log$
Revision 1.100 2003/08/19 12:23:23 mattias
moved types from graphtype.pp back to graphics.pp
Revision 1.99 2003/08/18 19:24:18 mattias
fixed TCanvas.Pie

12
lcl/include/winapi.inc
View File

@ -307,8 +307,10 @@ begin
Result := InterfaceObject.FillRgn(DC,RegionHnd,hbr);
end;
function FloodFill(DC: HDC; X, Y: Integer; Color: TColor;
FillStyle: TFillStyle; Brush: HBRUSH): Boolean;
function FloodFill(DC: HDC; X, Y: Integer;
Color: {$IFDEF NewGraphType}TGraphicsColor{$ELSE}TColor{$ENDIF};
FillStyle: {$IFDEF NewGraphType}TGraphicsFillStyle{$ELSE}TFillStyle{$ENDIF};
Brush: HBRUSH): Boolean;
begin
Result := InterfaceObject.FloodFill(DC,X,Y,Color,FillStyle,Brush);
end;
@ -319,7 +321,8 @@ begin
end;
function Frame3d(DC : HDC; var ARect : TRect; const FrameWidth : integer;
const Style : TBevelCut) : boolean;
const Style: {$IFDEF NewGraphType}TGraphicsBevelCut{$ELSE}TBevelCut{$ENDIF}
) : boolean;
begin
Result:= InterfaceObject.Frame3d(DC, ARect, FrameWidth, Style);
end;
@ -1670,6 +1673,9 @@ end;
{ =============================================================================
$Log$
Revision 1.95 2003/08/19 12:23:23 mattias
moved types from graphtype.pp back to graphics.pp
Revision 1.94 2003/08/18 19:24:18 mattias
fixed TCanvas.Pie

12
lcl/include/winapih.inc
View File

@ -106,9 +106,14 @@ function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer; {$IFD
function FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function FillRgn(DC: HDC; RegionHnd: HRGN; hbr: HBRUSH): BOOL; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function FloodFill(DC: HDC; X, Y: Integer; Color: TColor; FillStyle: TFillStyle; Brush: HBRUSH): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function FloodFill(DC: HDC; X, Y: Integer;
Color: {$IFDEF NewGraphType}TGraphicsColor{$ELSE}TColor{$ENDIF};
FillStyle: {$IFDEF NewGraphType}TGraphicsFillStyle{$ELSE}TFillStyle{$ENDIF};
Brush: HBRUSH): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function Frame(DC: HDC; const ARect: TRect): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth : integer; const Style : TBevelCut): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth : integer;
const Style : {$IFDEF NewGraphType}TGraphicsBevelCut{$ELSE}TBevelCut{$ENDIF}
): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function GetActiveWindow : HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -391,6 +396,9 @@ procedure RaiseLastOSError;
{ =============================================================================
$Log$
Revision 1.85 2003/08/19 12:23:23 mattias
moved types from graphtype.pp back to graphics.pp
Revision 1.84 2003/08/18 19:24:18 mattias
fixed TCanvas.Pie

8
lcl/interfaces/gtk/gtkint.pp
View File

@ -56,7 +56,7 @@ uses
xlib,
SysUtils, LMessages, Classes, Controls, Forms, LCLStrConsts,
VclGlobals, LCLProc, LCLLinux, LCLType, gtkDef, DynHashArray, gtkMsgQueue,
GraphType, GraphMath;
GraphType, GraphMath, Graphics;
type
@ -252,12 +252,11 @@ type
implementation
uses
Graphics, Buttons, Menus, StdCtrls, PairSplitter, Dialogs, Math,
Buttons, Menus, StdCtrls, PairSplitter, Dialogs, Math,
GTKWinApiWindow, ComCtrls, CListBox, KeyMap, Calendar, Arrow, Spin, CommCtrl,
ExtCtrls, FileCtrl, LResources, gtkglobals, gtkproc;
{$I gtklistsl.inc}
{$I gtkobject.inc}
{$I gtkwinapi.inc}
@ -348,6 +347,9 @@ end.
{ =============================================================================
$Log$
Revision 1.139 2003/08/19 12:23:23 mattias
moved types from graphtype.pp back to graphics.pp
Revision 1.138 2003/08/18 13:21:23 mattias
renamed lazqueue to lazlinkedlist, patch from Jeroen

11
lcl/lmessages.pp
View File

@ -421,7 +421,7 @@ type
TLMCanvasDrawRect = Record
R : TRect;
ReDraw : Boolean;
PenColor : TColor;
PenColor : {$IFDEF NewGraphType}TGraphicsColor{$ELSE}TColor{$ENDIF};
end;
PLMCanvasDrawLine = ^TLMCanvasDrawLine;
@ -430,7 +430,7 @@ type
y1 : Integer;
x2 : Integer;
y2 : Integer;
PenColor : TColor;
PenColor : {$IFDEF NewGraphType}TGraphicsColor{$ELSE}TColor{$ENDIF};
ReDraw : Boolean;
end;
@ -440,7 +440,7 @@ type
y1 : Integer;
Str : String;
Font : TObject;
PenColor : TColor;
PenColor : {$IFDEF NewGraphType}TGraphicsColor{$ELSE}TColor{$ENDIF};
ReDraw : Boolean;
end;
@ -730,7 +730,7 @@ type
TLMSetGetPixel = record
X,Y : Integer;
PixColor : TColor;
PixColor : {$IFDEF NewGraphType}TGraphicsColor{$ELSE}TColor{$ENDIF};
end;
TLMSize = packed record
@ -1057,6 +1057,9 @@ end.
{
$Log$
Revision 1.51 2003/08/19 12:23:23 mattias
moved types from graphtype.pp back to graphics.pp
Revision 1.50 2003/07/26 13:26:56 mattias
fixed WindowProc

2
lcl/postscriptprinter.pas
View File

@ -31,7 +31,7 @@ unit PostScriptPrinter;
interface
uses
Classes, SysUtils, GraphType, GraphMath, LCLLinux, Forms;
Classes, SysUtils, GraphType, Graphics, GraphMath, LCLLinux, Forms;
// uses lcllinux or winapi for RGB conversions and FORMS for application object