![(please configure the [header_logo] section in trac.ini)](/Transpascal/chrome/site/your_project_logo.png){kind=logo}
Changeset 37 for trunk/IDE/Forms
- Timestamp:
- Feb 14, 2012, 7:33:51 AM (13 years ago)
- Location:
- trunk/IDE/Forms
- Files:
-
- 6 added
- 6 edited
-
UCodeForm.lfm (modified) (1 diff)
-
UCodeForm.pas (modified) (2 diffs)
-
UCompilerSettingsForm.lfm (added)
-
UCompilerSettingsForm.lrt (added)
-
UCompilerSettingsForm.pas (added)
-
UCompilersForm.lfm (added)
-
UCompilersForm.lrt (added)
-
UCompilersForm.pas (added)
-
UMainForm.lfm (modified) (9 diffs)
-
UMainForm.lrt (modified) (1 diff)
-
UMainForm.pas (modified) (11 diffs)
-
UProjectManager.pas (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/IDE/Forms/UCodeForm.lfm
r34 r37 533 533 Command = emcStartDragMove 534 534 end> 535 Lines.Strings = (536 'SynEditSource'537 )538 535 VisibleSpecialChars = [vscSpace, vscTabAtLast] 539 536 BracketHighlightStyle = sbhsBoth -
trunk/IDE/Forms/UCodeForm.pas
r36 r37 40 40 procedure TCodeForm.SynEditSourceChange(Sender: TObject); 41 41 begin 42 ProjectFile.Modified := True; 42 if MainForm.Project.Active then 43 ProjectFile.Modified := True; 43 44 end; 44 45 … … 60 61 procedure TCodeForm.UpdateInterface; 61 62 begin 62 SynPasSyn1.Enabled := MainForm.Project.Active; 63 SynEditSource.Enabled := MainForm.Project.Active; 64 if not MainForm.Project.Active then SynEditSource.ClearAll; 63 65 end; 64 66 -
trunk/IDE/Forms/UMainForm.lfm
r36 r37 144 144 object MenuItem5: TMenuItem 145 145 Action = AProjectNew 146 Bitmap.Data = { 147 36040000424D3604000000000000360000002800000010000000100000000100 148 2000000000000004000064000000640000000000000000000000000000000000 149 0000000000000000000000000000000000000000000000000000000000000000 150 0000000000000000000000000000000000000000000000000000000000000000 151 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 152 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 153 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 154 FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000 155 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 156 FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000 157 0000000000FFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFF0000FFFF0000FFFF00 158 00FFFF0000FFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000 159 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 160 FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000 161 0000000000FFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFF0000FFFF0000FFFF00 162 00FFFF0000FFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000 163 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 164 FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000 165 0000000000FFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFF0000FFFF0000FFFF00 166 00FFFF0000FFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000 167 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 168 FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000 169 0000000000FFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFF0000FFFF0000FFFFFF 170 FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000 171 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 172 FFFF000000FF000000FF000000FF000000FF0000000000000000000000000000 173 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 174 FFFF000000FFBDBDBDFF000000FF000000000000000000000000000000000000 175 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 176 FFFF000000FF000000FF00000000000000000000000000000000000000000000 177 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 178 00FF000000FF0000000000000000000000000000000000000000000000000000 179 0000000000000000000000000000000000000000000000000000000000000000 180 0000000000000000000000000000000000000000000000000000 181 } 146 182 end 147 183 object MenuItem2: TMenuItem 148 184 Action = AProjectOpen 185 Bitmap.Data = { 186 36040000424D3604000000000000360000002800000010000000100000000100 187 2000000000000004000064000000640000000000000000000000000000000000 188 0000000000000000000000000000000000000000000000000000000000000000 189 0000000000000000000000000000000000000000000000000000000000000000 190 0000000000000000000000000000000000000000000000000000000000000000 191 0000000000000000000000000000000000000000000000000000000000FF0000 192 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 193 00FF000000FF0000000000000000000000000000000000000000000000FF0000 194 00FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084 195 84FF008484FF000000FF00000000000000000000000000000000000000FF00FF 196 FFFF000000FF008484FF008484FF008484FF008484FF008484FF008484FF0084 197 84FF008484FF008484FF000000FF000000000000000000000000000000FFFFFF 198 FFFF00FFFFFF000000FF008484FF008484FF008484FF008484FF008484FF0084 199 84FF008484FF008484FF008484FF000000FF0000000000000000000000FF00FF 200 FFFFFFFFFFFF00FFFFFF000000FF008484FF008484FF008484FF008484FF0084 201 84FF008484FF008484FF008484FF008484FF000000FF00000000000000FFFFFF 202 FFFF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FF000000FF000000FF0000 203 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00FF 204 FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF 205 FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF 206 FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF 207 FFFF000000FF0000000000000000000000000000000000000000000000FF00FF 208 FFFFFFFFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000FF0000 209 00FF000000FF0000000000000000000000000000000000000000000000000000 210 00FF000000FF000000FF00000000000000000000000000000000000000000000 211 00000000000000000000000000FF000000FF000000FF00000000000000000000 212 0000000000000000000000000000000000000000000000000000000000000000 213 0000000000000000000000000000000000FF000000FF00000000000000000000 214 0000000000000000000000000000000000000000000000000000000000FF0000 215 00000000000000000000000000FF00000000000000FF00000000000000000000 216 0000000000000000000000000000000000000000000000000000000000000000 217 00FF000000FF000000FF00000000000000000000000000000000000000000000 218 0000000000000000000000000000000000000000000000000000000000000000 219 0000000000000000000000000000000000000000000000000000 220 } 149 221 end 150 222 object MenuItemOpenRecent: TMenuItem … … 153 225 object MenuItem4: TMenuItem 154 226 Action = AProjectSave 227 Bitmap.Data = { 228 36040000424D3604000000000000360000002800000010000000100000000100 229 2000000000000004000064000000640000000000000000000000000000000000 230 0000000000000000000000000000000000000000000000000000000000000000 231 0000000000000000000000000000000000000000000000000000000000000000 232 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 233 00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 234 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 235 00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 236 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 237 00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 238 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 239 00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 240 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 241 00FF000000FF000000FF000000FF008484FF000000FF00000000000000000000 242 00FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084 243 84FF008484FF008484FF008484FF008484FF000000FF00000000000000000000 244 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 245 00FF000000FF000000FF008484FF008484FF000000FF00000000000000000000 246 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 247 FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 248 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 249 FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 250 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 251 FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 252 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 253 FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 254 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 255 FFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF00000000000000000000 256 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 257 FFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF000000FF00000000000000000000 258 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 259 00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 260 0000000000000000000000000000000000000000000000000000000000000000 261 0000000000000000000000000000000000000000000000000000 262 } 155 263 end 156 264 object MenuItem6: TMenuItem 157 265 Action = AProjectSaveAs 266 Bitmap.Data = { 267 36040000424D3604000000000000360000002800000010000000100000000100 268 2000000000000004000064000000640000000000000000000000000000000000 269 0000000000000000000000000000000000000000000000000000000000000000 270 0000000000000000000000000000000000000000000000000000000000000000 271 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 272 00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 273 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 274 00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 275 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 276 00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 277 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 278 00FFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 279 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 280 00FF000000FF000000FF000000FF008484FF000000FF00000000000000000000 281 00FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084 282 84FF008484FF008484FF008484FF008484FF000000FF00000000000000000000 283 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 284 00FF000000FF000000FF008484FF008484FF000000FF00000000000000000000 285 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 286 FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 287 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 288 FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 289 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 290 FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 291 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 292 FFFFFFFFFFFFFFFFFFFF000000FF008484FF000000FF00000000000000000000 293 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 294 FFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF00000000000000000000 295 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 296 FFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF000000FF00000000000000000000 297 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 298 00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 299 0000000000000000000000000000000000000000000000000000000000000000 300 0000000000000000000000000000000000000000000000000000 301 } 158 302 end 159 303 object MenuItem3: TMenuItem 160 304 Action = AProjectClose 305 Bitmap.Data = { 306 36040000424D3604000000000000360000002800000010000000100000000100 307 2000000000000004000064000000640000000000000000000000000000000000 308 0000000000000000000000000000000000FF0000000000000000000000000000 309 0000000000000000000000000000000000000000000000000000000000000000 310 0000000000000000000000000000000000000000000000000000000000000000 311 0000000000000000000000000000000000000000000000000000000000000000 312 0000000000000000000000000000000000000000000000000000000000000000 313 00000000000000000000000000003A3AE2FFC0C0C0FF00000000000000000000 314 0000000000003A3AE2FFC0C0C0FF000000000000000000000000000000000000 315 0000000000000000000000000000000000000000000000000000000000000000 316 00003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF0000000000000000000000000000 317 000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000 318 00003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF0000000000000000000000000000 319 0000000000003A3AE2FFC0C0C0FF000000000000000000000000000000000000 320 0000000000003838E0FF3838E0FF3838E0FFC0C0C0FF00000000000000000000 321 00003838E0FF3838E0FFC0C0C0FF000000000000000000000000000000000000 322 000000000000000000003535DDFF3535DDFF3535DDFFC0C0C0FF000000003535 323 DDFF3535DDFFC0C0C0FF00000000000000000000000000000000000000000000 324 00000000000000000000000000003232DAFF3232DAFF3232DAFF3232DAFF3232 325 DAFFC0C0C0FF00000000000000000000000000000000840000FF000000000000 326 0000000000000000000000000000000000002F2FD7FF2F2FD7FF2F2FD7FFC0C0 327 C0FF0000000000000000000000000000000000000000840000FF000000000000 328 00000000000000000000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2CD4FF2C2C 329 D4FFC0C0C0FF00000000000000000000000000000000840000FF000000000000 330 000000000000000000002929D1FF2929D1FF2929D1FFC0C0C0FF000000002929 331 D1FFC0C0C0FF0000000000000000000000000000000000000000000000000000 332 00002626CEFF2626CEFF2626CEFF2626CEFFC0C0C0FF00000000000000000000 333 00002626CEFF2626CEFFC0C0C0FF000000000000000000000000000000002020 334 C8FF2020C8FF2020C8FF2020C8FFC0C0C0FF0000000000000000000000000000 335 0000000000002020C8FF2020C8FFC0C0C0FF0000000000000000000000001818 336 C0FF1818C0FFC0C0C0FF00000000000000000000000000000000000000000000 337 000000000000000000001818C0FF1818C0FFC0C0C0FF00000000000000000000 338 0000000000000000000000000000000000000000000000000000000000000000 339 0000000000000000000000000000000000000000000000000000 340 } 161 341 end 162 342 object MenuItem12: TMenuItem … … 165 345 object MenuItem13: TMenuItem 166 346 Action = AExit 347 Bitmap.Data = { 348 36040000424D3604000000000000360000002800000010000000100000000100 349 2000000000000004000064000000640000000000000000000000000000000000 350 0000000000000000000000000000000000FF0000000000000000000000000000 351 0000000000000000000000000000000000000000000000000000000000000000 352 00000000000000000000000000FF000000FF0000000000000000000000000000 353 0000000000000000000000000000000000000000000000000000000000000000 354 000000000000000000FF008484FF000000FF0000000000000000000000000000 355 0000000000000000000000000000000000000000000000000000000000000000 356 0000000000FF008484FF008484FF000000FF0000000000000000000000000000 357 0000000000000000000000000000000000000000000000000000000000FF0000 358 00FF008484FF008484FF008484FF000000FF000000FF000000FF000000FF0000 359 00FF000000FF000000FF000000FF000000000000000000000000000000000000 360 00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000 361 0000000000000000000000000000000000000000000000000000000000000000 362 00FF008484FF008484FF000000FF000000FFFFFFFFFFFFFFFFFF000000FF0000 363 0000000000000000000000000000840000FF0000000000000000000000000000 364 00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000 365 00000000000000000000840000FF840000FF0000000000000000000000000000 366 00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000 367 000000000000840000FF840000FF840000FF840000FF840000FF000000000000 368 00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000 369 0000840000FF840000FF840000FF840000FF840000FF840000FF000000000000 370 00FF008484FF008484FF008484FF000000FFFFFFFFFFFFFFFFFF000000FF0000 371 000000000000840000FF840000FF840000FF840000FF840000FF000000000000 372 00FF008484FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000 373 00000000000000000000840000FF840000FF0000000000000000000000000000 374 00FF008484FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000 375 0000000000000000000000000000840000FF0000000000000000000000000000 376 00FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000 377 0000000000000000000000000000000000000000000000000000000000000000 378 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 379 0000000000000000000000000000000000000000000000000000000000000000 380 0000000000000000000000000000000000000000000000000000000000000000 381 0000000000000000000000000000000000000000000000000000 382 } 167 383 end 168 384 end … … 171 387 object MenuItem8: TMenuItem 172 388 Action = ABuild 389 Bitmap.Data = { 390 36040000424D3604000000000000360000002800000010000000100000000100 391 2000000000000004000064000000640000000000000000000000000000000000 392 0000000000000000000000000000000000000000000000000000000000000000 393 0000000000000000000000000000000000000000000000000000000000000000 394 0000000000000000000000000000000000000000000000000000000000000000 395 0000000000000000000000000000000000000000000000000000000000000000 396 0000000000000000000000000000339966FF009933FF009933FF009933FF66CC 397 99FF0000000000000000339966FF000000000000000000000000000000000000 398 00000000000000000000339966FF339966FF009933FF009933FF009933FF0099 399 33FF009933FF339966FF009933FF000000000000000000000000000000000000 400 00000000000066CC99FF009933FF66CC99FF000000000000000066CC99FF0099 401 33FF009933FF009933FF009933FF000000000000000000000000000000000000 402 000000000000009933FF66CC99FF000000000000000000000000000000003399 403 66FF009933FF009933FF009933FF000000000000000000000000000000000000 404 0000000000000000000000000000000000000000000000000000339966FF0099 405 33FF009933FF009933FF009933FF000000000000000000000000000000000000 406 0000000000000000000000000000000000000000000000000000000000000000 407 0000000000000000000000000000000000000000000000000000000000000000 408 000000000000009933FF009933FF009933FF009933FF339966FF000000000000 409 0000000000000000000000000000000000000000000000000000000000000000 410 000000000000009933FF009933FF009933FF339966FF00000000000000000000 411 00000000000066CC99FF009933FF000000000000000000000000000000000000 412 000000000000009933FF009933FF009933FF009933FF66CC99FF000000000000 413 000066CC99FF009933FF66CC99FF000000000000000000000000000000000000 414 000000000000009933FF339966FF009933FF009933FF009933FF009933FF0099 415 33FF339966FF339966FF00000000000000000000000000000000000000000000 416 000000000000339966FF000000000000000066CC99FF009933FF009933FF0099 417 33FF339966FF0000000000000000000000000000000000000000000000000000 418 0000000000000000000000000000000000000000000000000000000000000000 419 0000000000000000000000000000000000000000000000000000000000000000 420 0000000000000000000000000000000000000000000000000000000000000000 421 0000000000000000000000000000000000000000000000000000000000000000 422 0000000000000000000000000000000000000000000000000000000000000000 423 0000000000000000000000000000000000000000000000000000 424 } 173 425 end 174 426 object MenuItem14: TMenuItem 175 427 Action = ARun 428 Bitmap.Data = { 429 36040000424D3604000000000000360000002800000010000000100000000100 430 2000000000000004000064000000640000000000000000000000000000000000 431 0000000000000000000000000000000000000000000000000000000000000000 432 0000000000000000000000000000000000000000000000000000000000000000 433 0000000000000000000000000000000000000000000000000000000000000000 434 0000000000000000000000000000000000000000000000000000000000000000 435 000000000000000000000000000000FF00FF0000000000000000000000000000 436 0000000000000000000000000000000000000000000000000000000000000000 437 000000000000000000000000000000FF00FF00FF00FF00000000000000000000 438 0000000000000000000000000000000000000000000000000000000000000000 439 000000000000000000000000000000FF00FF00FF00FF00FF00FF000000000000 440 0000000000000000000000000000000000000000000000000000000000000000 441 000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF0000 442 0000000000000000000000000000000000000000000000000000000000000000 443 000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF 444 00FF000000000000000000000000000000000000000000000000000000000000 445 000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF 446 00FF00FF00FF0000000000000000000000000000000000000000000000000000 447 000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF 448 00FF00FF00FF00FF00FF00000000000000000000000000000000000000000000 449 000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF 450 00FF00FF00FF0000000000000000000000000000000000000000000000000000 451 000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF 452 00FF000000000000000000000000000000000000000000000000000000000000 453 000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF0000 454 0000000000000000000000000000000000000000000000000000000000000000 455 000000000000000000000000000000FF00FF00FF00FF00FF00FF000000000000 456 0000000000000000000000000000000000000000000000000000000000000000 457 000000000000000000000000000000FF00FF00FF00FF00000000000000000000 458 0000000000000000000000000000000000000000000000000000000000000000 459 000000000000000000000000000000FF00FF0000000000000000000000000000 460 0000000000000000000000000000000000000000000000000000000000000000 461 0000000000000000000000000000000000000000000000000000000000000000 462 0000000000000000000000000000000000000000000000000000 463 } 176 464 end 177 465 object MenuItemAnalyzer: TMenuItem … … 186 474 object MenuItem16: TMenuItem 187 475 Action = AViewOptions 476 Bitmap.Data = { 477 36040000424D3604000000000000360000002800000010000000100000000100 478 2000000000000004000064000000640000000000000000000000986B37FF976A 479 36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261 480 2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7 481 F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3 482 F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8 483 F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3 484 F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9 485 F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171 486 70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9 487 F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5 488 F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA 489 F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5 490 F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB 491 FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6 492 F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB 493 FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271 494 71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC 495 FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8 496 F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD 497 FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8 498 F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD 499 FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9 500 F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE 501 FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272 502 72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF 503 FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA 504 F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF 505 FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB 506 FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2 507 7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D 508 79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B 509 48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73 510 40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF 511 } 188 512 end 189 513 object MenuItem22: TMenuItem … … 207 531 object MenuItem17: TMenuItem 208 532 Action = AViewObjectInspector 533 end 534 object MenuItem24: TMenuItem 535 Action = AViewProducers 209 536 end 210 537 end … … 216 543 object MenuItem11: TMenuItem 217 544 Action = AAbout 545 Bitmap.Data = { 546 36040000424D3604000000000000360000002800000010000000100000000100 547 2000000000000004000064000000640000000000000000000000000000000000 548 0000000000000000000000000000000000000000000000000000000000000000 549 0000000000000000000000000000000000000000000000000000000000000000 550 00000000000000000000916429FF855A24FF885015FF824A1DFF7E4719FF7944 551 17FF583C0EFF49340DFF00000000000000000000000000000000000000000000 552 000000000000A1692CFFC08858FFE0C9B4FFF7F1ECFFFEFDFCFFFEFDFCFFF5F0 553 ECFFDCC9B8FF9E7857FF473108FF000000000000000000000000000000000000 554 0000B2702BFFDBAB80FFF8EFE7FFE2BBA6FFCC7E56FFC15823FFC05722FFC97F 555 56FFDEBAA7FFF2EBE7FFB39376FF483108FF000000000000000000000000B677 556 34FFD6996BFFF9F0E7FFDDA488FFC75013FFC04E11FFDCA688FFFFFEFEFFB549 557 11FFB64A10FFD59E82FFF3ECE7FF9A7352FF49340DFF0000000000000000B479 558 3AFFEFD6C1FFEDC5B2FFDD5A1AFFD55617FFD25313FFD87D4DFFE3A686FFBB4C 559 11FFB34A12FFB64A10FFDEB9A6FFDCC9B8FF563C0DFF0000000000000000CD7F 560 45FFFCF4EDFFEC9772FFE86021FFE05A1DFFDB5819FFEDAA89FFFFFEFEFFC84E 561 12FFB94C11FFB34C13FFC77B53FFF6F0ECFF7A4319FF0000000000000000CD81 562 47FFFFFEFEFFF87A46FFF96829FFF66525FFF16020FFF18653FFFFFEFEFFF0BF 563 A8FFC55A24FFB64C15FFB75724FFFEFEFDFF7F481AFF0000000000000000CD84 564 4EFFFFFEFEFFFC814CFFFF7031FFFF6B2CFFFD6928FFF86523FFF49265FFFDF5 565 F1FFF4D4C5FFC65018FFBA5927FFFEFEFDFF834A1CFF0000000000000000D183 566 4CFFFCF7F1FFFAA582FFFF733AFFFF844EFFFFAE8AFFFE6C2DFFF76727FFF192 567 68FFFFFEFEFFE98354FFD78560FFF8F1ECFF81551FFF0000000000000000C483 568 41FFF0DAC3FFFAD1C0FFFF7940FFFF986EFFFFFEFEFFFFC9B2FFFD9164FFFAC6 569 AFFFFEF5F1FFF5773DFFEDC5B2FFE4CBB3FF905D21FF0000000000000000C484 570 45FFDCA277FFFCF4EDFFFABFA6FFFF7A43FFFFBB9EFFFFF6F3FFFFFEFEFFFEED 571 E5FFFA9970FFF3B69CFFF8F0E6FFBB8B56FF986426FF00000000000000000000 572 0000C48443FFE5B999FFFCF4EDFFFBD2C1FFFAA887FFFD8757FFFD8454FFF8A5 573 82FFF7CEBDFFFAF1E7FFD2A77AFFA36A2AFF0000000000000000000000000000 574 000000000000C58442FFDCA277FFF3DAC7FFFCF7F1FFFFFEFEFFFFFEFEFFFCF4 575 EDFFF1D6C0FFC7935DFFA66F33FF000000000000000000000000000000000000 576 00000000000000000000C58444FFC28342FFD89C6DFFD69668FFD49463FFD696 577 68FFB2793CFFB1783BFF00000000000000000000000000000000000000000000 578 0000000000000000000000000000000000000000000000000000000000000000 579 0000000000000000000000000000000000000000000000000000 580 } 218 581 end 219 582 end … … 317 680 Caption = 'Compiled source' 318 681 OnExecute = AViewCompiledSoruceExecute 682 end 683 object AViewProducers: TAction 684 Category = 'View' 685 Caption = 'Producers' 686 OnExecute = AViewProducersExecute 319 687 end 320 688 end … … 433 801 FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 434 802 0000000000000000000000000000000000000000000000000000000000000000 435 0000000000000000000000000000000000001818C0FF1818C0FFC0C0C0FF0000 436 0000000000000000000000000000000000000000000000000000000000001818 437 C0FF1818C0FFC0C0C0FF00000000000000002020C8FF2020C8FF2020C8FF2020 438 C8FFC0C0C0FF00000000000000000000000000000000000000002020C8FF2020 439 C8FFC0C0C0FF000000000000000000000000000000002626CEFF2626CEFF2626 440 CEFF2626CEFFC0C0C0FF0000000000000000000000002626CEFF2626CEFFC0C0 441 C0FF000000000000000000000000000000000000000000000000000000002929 442 D1FF2929D1FF2929D1FFC0C0C0FF000000002929D1FFC0C0C0FF000000000000 443 0000000000000000000000000000000000000000000000000000000000000000 444 00002C2CD4FF2C2CD4FF2C2CD4FF2C2CD4FF2C2CD4FFC0C0C0FF000000000000 445 00000000000000000000840000FF000000000000000000000000000000000000 446 0000000000002F2FD7FF2F2FD7FF2F2FD7FFC0C0C0FF00000000000000000000 447 00000000000000000000840000FF000000000000000000000000000000000000 448 00003232DAFF3232DAFF3232DAFF3232DAFF3232DAFFC0C0C0FF000000000000 449 00000000000000000000840000FF000000000000000000000000000000003535 450 DDFF3535DDFF3535DDFFC0C0C0FF000000003535DDFF3535DDFFC0C0C0FF0000 451 00000000000000000000000000000000000000000000000000003838E0FF3838 452 E0FF3838E0FFC0C0C0FF0000000000000000000000003838E0FF3838E0FFC0C0 453 C0FF00000000000000000000000000000000000000003A3AE2FF3A3AE2FF3A3A 454 E2FFC0C0C0FF00000000000000000000000000000000000000003A3AE2FFC0C0 455 C0FF00000000000000000000000000000000000000003A3AE2FF3A3AE2FF3A3A 456 E2FFC0C0C0FF0000000000000000000000000000000000000000000000003A3A 457 E2FFC0C0C0FF00000000000000000000000000000000000000003A3AE2FFC0C0 803 0000000000000000000000000000000000000000000000000000000000000000 804 0000000000000000000000000000000000000000000000000000000000000000 805 000000000000000000000000000000000000000000001818C0FF1818C0FFC0C0 458 806 C0FF000000000000000000000000000000000000000000000000000000000000 459 0000000000000000000000000000000000000000000000000000000000000000 460 0000000000000000000000000000000000000000000000000000000000000000 461 00003A3AE2FFC0C0C0FF00000000000000000000000000000000000000000000 462 0000000000000000000000000000000000000000000000000000000000000000 463 0000000000000000000000000000000000000000000000000000000000000000 464 0000000000FF0000000000000000000000000000000000000000000000000000 807 00001818C0FF1818C0FFC0C0C0FF00000000000000002020C8FF2020C8FF2020 808 C8FF2020C8FFC0C0C0FF00000000000000000000000000000000000000002020 809 C8FF2020C8FFC0C0C0FF000000000000000000000000000000002626CEFF2626 810 CEFF2626CEFF2626CEFFC0C0C0FF0000000000000000000000002626CEFF2626 811 CEFFC0C0C0FF0000000000000000000000000000000000000000000000000000 812 00002929D1FF2929D1FF2929D1FFC0C0C0FF000000002929D1FFC0C0C0FF0000 813 0000000000000000000000000000000000000000000000000000000000000000 814 0000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2CD4FF2C2CD4FFC0C0C0FF0000 815 0000000000000000000000000000000000000000000000000000000000000000 816 000000000000000000002F2FD7FF2F2FD7FF2F2FD7FFC0C0C0FF000000000000 817 0000000000000000000000000000000000000000000000000000000000000000 818 0000000000003232DAFF3232DAFF3232DAFF3232DAFF3232DAFFC0C0C0FF0000 819 0000000000000000000000000000000000000000000000000000000000000000 820 00003535DDFF3535DDFF3535DDFFC0C0C0FF000000003535DDFF3535DDFFC0C0 821 C0FF000000000000000000000000000000000000000000000000000000003838 822 E0FF3838E0FF3838E0FFC0C0C0FF0000000000000000000000003838E0FF3838 823 E0FFC0C0C0FF00000000000000000000000000000000000000003A3AE2FF3A3A 824 E2FF3A3AE2FFC0C0C0FF00000000000000000000000000000000000000003A3A 825 E2FFC0C0C0FF00000000000000000000000000000000000000003A3AE2FF3A3A 826 E2FF3A3AE2FFC0C0C0FF00000000000000000000000000000000000000000000 827 00003A3AE2FFC0C0C0FF00000000000000000000000000000000000000003A3A 828 E2FFC0C0C0FF0000000000000000000000000000000000000000000000000000 829 0000000000000000000000000000000000000000000000000000000000000000 830 0000000000000000000000000000000000000000000000000000000000000000 831 0000000000003A3AE2FFC0C0C0FF000000000000000000000000000000000000 832 0000000000000000000000000000000000000000000000000000000000000000 465 833 0000000000000000000000000000000000000000000000000000000000000000 466 834 0000000000000000000000000000000000000000000000000000000000000000 -
trunk/IDE/Forms/UMainForm.lrt
r35 r37 34 34 TMAINFORM.AVIEWCODETREE.CAPTION=Code tree 35 35 TMAINFORM.AVIEWCOMPILEDSORUCE.CAPTION=Compiled source 36 TMAINFORM.AVIEWPRODUCERS.CAPTION=Producers -
trunk/IDE/Forms/UMainForm.pas
r36 r37 17 17 18 18 type 19 20 { TCustomCompiler } 21 22 TCustomCompiler = class(TCompiler) 23 procedure LoadFromRegistry(Root: HKEY; Key: string); 24 procedure SaveToRegistry(Root: HKEY; Key: string); 25 end; 26 19 27 { TMainForm } 20 28 21 29 TMainForm = class(TForm) 22 30 ABuild: TAction; 31 AViewProducers: TAction; 23 32 AViewCompiledSoruce: TAction; 24 33 AViewCodeTree: TAction; … … 58 67 MenuItem22: TMenuItem; 59 68 MenuItem23: TMenuItem; 69 MenuItem24: TMenuItem; 60 70 MenuItemAnalyzer: TMenuItem; 61 71 MenuItemProducer: TMenuItem; … … 102 112 procedure AViewMessagesExecute(Sender: TObject); 103 113 procedure AViewOptionsExecute(Sender: TObject); 114 procedure AViewProducersExecute(Sender: TObject); 104 115 procedure AViewProjectExecute(Sender: TObject); 105 116 procedure AViewSourceEditorExecute(Sender: TObject); … … 127 138 LogParsing: Boolean; 128 139 Project: TProject; 129 Compiler: TC ompiler;140 Compiler: TCustomCompiler; 130 141 function GetSource(Name: string; var SourceCode: string): Boolean; 131 142 procedure UpdateInterface; … … 141 152 142 153 uses 143 UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions; 154 UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions, 155 UCompilersForm; 144 156 145 157 resourcestring 146 158 SNewProject = 'New project'; 159 160 { TCustomCompiler } 161 162 procedure TCustomCompiler.LoadFromRegistry(Root: HKEY; Key: string); 163 var 164 I: Integer; 165 begin 166 with TRegistryEx.Create do 167 try 168 RootKey := Root; 169 for I := 0 to Producers.Count - 1 do 170 with TProducer(Producers[I]) do begin 171 OpenKey(Key + '\Producers\' + Name, True); 172 CompilerPAth := ReadStringWithDefault('CompilerPath', CompilerPath); 173 end; 174 finally 175 Free; 176 end; 177 end; 178 179 procedure TCustomCompiler.SaveToRegistry(Root: HKEY; Key: string); 180 var 181 I: Integer; 182 begin 183 with TRegistryEx.Create do 184 try 185 RootKey := Root; 186 for I := 0 to Producers.Count - 1 do 187 with TProducer(Producers[I]) do begin 188 OpenKey(Key + '\Producers\' + Name, True); 189 WriteString('CompilerPath', CompilerPath); 190 end; 191 finally 192 Free; 193 end; 194 end; 147 195 148 196 { TMainForm } … … 189 237 begin 190 238 FormOptions.ShowModal; 239 end; 240 241 procedure TMainForm.AViewProducersExecute(Sender: TObject); 242 begin 243 FormProducers.Show; 191 244 end; 192 245 … … 234 287 AProgramPause.Enabled := Project.Active and (BrainFuckInterpreter.State = rsRunning); 235 288 AProgramStop.Enabled := Project.Active and (BrainFuckInterpreter.State <> rsStopped);*) 289 ABuild.Enabled := Project.Active; 236 290 UpdateMenu; 237 291 CodeForm.UpdateInterface; … … 259 313 CompiledForm.Align := alClient; 260 314 CompiledForm.Show; 315 PageControlRight.TabIndex := 0; 316 PageControlBottom.TabIndex := 0; 261 317 262 318 (*ProjectManager.ManualDock(DockPanel, nil, alLeft); … … 311 367 Free; 312 368 end; 313 LastOpenedFiles.LoadFromRegistry(RegistryRootKey, Key); 369 LastOpenedFiles.LoadFromRegistry(RegistryRootKey, Key + '\LastOpenedFiles'); 370 Compiler.LoadFromRegistry(RegistryRootKey, Key + '\Compiler'); 314 371 end; 315 372 … … 330 387 Free; 331 388 end; 332 LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key );389 LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key + '\LastOpenedFiles'); 333 390 LastOpenedFiles.ReloadMenu; 391 Compiler.SaveToRegistry(RegistryRootKey, Key + '\Compiler'); 334 392 end; 335 393 336 394 procedure TMainForm.ProjectOpen(FileName: string); 337 395 begin 396 Project.Active := True; 338 397 Project.LoadFromFile(FileName); 339 398 LastOpenedFiles.AddItem(FileName); 340 399 LastOpenedFiles.ReloadMenu; 341 ProjectManager.UpdateProjectTree;342 400 UpdateInterface; 343 401 end; … … 393 451 begin 394 452 DeleteFile(DebugLog1.FileName); 395 Compiler := TC ompiler.Create;453 Compiler := TCustomCompiler.Create; 396 454 Project := TProject.Create; 397 455 LastOpenedFiles := TLastOpenedList.Create; -
trunk/IDE/Forms/UProjectManager.pas
r36 r37 74 74 BeginUpdate; 75 75 Clear; 76 NewNode := AddChild(nil, Project.Name); 77 UpdateProjectGroup(NewNode, Project); 78 NewNode.Expand(True); 76 if Project.Active then begin 77 NewNode := AddChild(nil, Project.Name); 78 UpdateProjectGroup(NewNode, Project); 79 NewNode.Expand(True); 80 end; 79 81 EndUpdate; 80 82 if Assigned(TreeViewProject.TopItem) and
Note:
See TracChangeset
for help on using the changeset viewer.
