![(please configure the [header_logo] section in trac.ini)](/Transpascal/chrome/site/your_project_logo.png){kind=logo}
Changeset 25
- Timestamp:
- Dec 4, 2010, 10:05:05 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
-
Compiler/Analyze/UAnalyzer.pas (modified) (1 diff)
-
Compiler/USourceCode.pas (modified) (22 diffs)
-
Components/TemplateGenerics-0.2.zip (modified) ( previous)
-
IDE/Forms/UMainForm.pas (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Compiler/Analyze/UAnalyzer.pas
r20 r25 392 392 // Update cursor position 393 393 Inc(CodePosition.X); 394 if (CurrentChar = LineEnding [1]) then begin394 if (CurrentChar = LineEnding) then begin 395 395 CodePosition.X := 0; 396 396 Inc(CodePosition.Y); -
trunk/Compiler/USourceCode.pas
r24 r25 63 63 {$DEFINE TGObjectList := TListExpression} 64 64 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareExpression} 65 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterExpression} 65 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterExpression} 66 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterExpression} 66 67 {$DEFINE INTERFACE} 67 68 {$I 'GenericObjectList.inc'} … … 133 134 {$DEFINE TGObjectList := TListCaseOfEndBranche} 134 135 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareCaseOfEndBranche} 135 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterCaseOfEndBranche} 136 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterCaseOfEndBranche} 137 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterCaseOfEndBranche} 136 138 {$DEFINE INTERFACE} 137 139 {$I 'GenericObjectList.inc'} … … 161 163 {$DEFINE TGObjectList := TCommandList} 162 164 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareCommand} 163 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterCommand} 165 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterCommand} 166 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterCommand} 164 167 {$DEFINE INTERFACE} 165 168 {$I 'GenericObjectList.inc'} … … 205 208 {$DEFINE TGObjectList := TListType} 206 209 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareType} 207 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterType} 210 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterType} 211 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterType} 208 212 {$DEFINE INTERFACE} 209 213 {$I 'GenericObjectList.inc'} … … 248 252 {$DEFINE TGObjectList := TListEnumItem} 249 253 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareEnumItem} 250 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterEnumItem} 254 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterEnumItem} 255 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterEnumItem} 251 256 {$DEFINE INTERFACE} 252 257 {$I 'GenericObjectList.inc'} … … 280 285 {$DEFINE TGObjectList := TListConstant} 281 286 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareConstant} 282 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterConstant} 287 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterConstant} 288 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterConstant} 283 289 {$DEFINE INTERFACE} 284 290 {$I 'GenericObjectList.inc'} … … 303 309 {$DEFINE TGObjectList := TListVariable} 304 310 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareVariable} 305 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterVariable} 311 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterVariable} 312 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterVariable} 306 313 {$DEFINE INTERFACE} 307 314 {$I 'GenericObjectList.inc'} … … 322 329 {$DEFINE TGObjectList := TListParameter} 323 330 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareParameter} 324 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterParameter} 331 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterParameter} 332 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterParameter} 325 333 {$DEFINE INTERFACE} 326 334 {$I 'GenericObjectList.inc'} … … 370 378 {$DEFINE TGObjectList := TListFunction} 371 379 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareFunction} 372 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterFunction} 380 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterFunction} 381 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterFunction} 373 382 {$DEFINE INTERFACE} 374 383 {$I 'GenericObjectList.inc'} … … 393 402 {$DEFINE TGObjectList := TListUsedModule} 394 403 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareUsedModule} 395 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterUsedModule} 404 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterUsedModule} 405 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterUsedModule} 396 406 {$DEFINE INTERFACE} 397 407 {$I 'GenericObjectList.inc'} … … 447 457 {$DEFINE TGObjectList := TListModule} 448 458 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareModule} 449 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterModule} 459 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterModule} 460 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterModule} 450 461 {$DEFINE INTERFACE} 451 462 {$I 'GenericObjectList.inc'} … … 489 500 {$DEFINE TGObjectList := TListExpression} 490 501 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareExpression} 491 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterExpression} 502 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterExpression} 503 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterExpression} 492 504 {$DEFINE IMPLEMENTATION} 493 505 {$I 'GenericObjectList.inc'} … … 499 511 {$DEFINE TGObjectList := TListCaseOfEndBranche} 500 512 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareCaseOfEndBranche} 501 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterCaseOfEndBranche} 513 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterCaseOfEndBranche} 514 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterCaseOfEndBranche} 502 515 {$DEFINE IMPLEMENTATION} 503 516 {$I 'GenericObjectList.inc'} … … 509 522 {$DEFINE TGObjectList := TCommandList} 510 523 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareCommand} 511 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterCommand} 524 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterCommand} 525 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterCommand} 512 526 {$DEFINE IMPLEMENTATION} 513 527 {$I 'GenericObjectList.inc'} … … 519 533 {$DEFINE TGObjectList := TListEnumItem} 520 534 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareEnumItem} 521 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterEnumItem} 535 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterEnumItem} 536 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterEnumItem} 522 537 {$DEFINE IMPLEMENTATION} 523 538 {$I 'GenericObjectList.inc'} … … 529 544 {$DEFINE TGObjectList := TListType} 530 545 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareType} 531 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterType} 546 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterType} 547 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterType} 532 548 {$DEFINE IMPLEMENTATION} 533 549 {$I 'GenericObjectList.inc'} … … 539 555 {$DEFINE TGObjectList := TListConstant} 540 556 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareConstant} 541 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterConstant} 557 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterConstant} 558 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterConstant} 542 559 {$DEFINE IMPLEMENTATION} 543 560 {$I 'GenericObjectList.inc'} … … 549 566 {$DEFINE TGObjectList := TListVariable} 550 567 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareVariable} 551 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterVariable} 568 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterVariable} 569 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterVariable} 552 570 {$DEFINE IMPLEMENTATION} 553 571 {$I 'GenericObjectList.inc'} … … 559 577 {$DEFINE TGObjectList := TListParameter} 560 578 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareParameter} 561 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterParameter} 579 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterParameter} 580 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterParameter} 562 581 {$DEFINE IMPLEMENTATION} 563 582 {$I 'GenericObjectList.inc'} … … 569 588 {$DEFINE TGObjectList := TListFunction} 570 589 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareFunction} 571 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterFunction} 590 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterFunction} 591 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterFunction} 572 592 {$DEFINE IMPLEMENTATION} 573 593 {$I 'GenericObjectList.inc'} … … 579 599 {$DEFINE TGObjectList := TListUsedModule} 580 600 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareUsedModule} 581 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterUsedModule} 601 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterUsedModule} 602 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterUsedModule} 582 603 {$DEFINE IMPLEMENTATION} 583 604 {$I 'GenericObjectList.inc'} … … 589 610 {$DEFINE TGObjectList := TListModule} 590 611 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareModule} 591 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterModule} 612 {$DEFINE TGObjectListToStringConverter := TObjectListToStringConverterModule} 613 {$DEFINE TGObjectListFromStringConverter := TObjectListFromStringConverterModule} 592 614 {$DEFINE IMPLEMENTATION} 593 615 {$I 'GenericObjectList.inc'} -
trunk/IDE/Forms/UMainForm.pas
r24 r25 165 165 CompiledForm.Show; 166 166 167 TCoolDockManager(Container2.Panel.DockManager).DockStyle := dsTabs;167 //TCoolDockManager(Container2.Panel.DockManager).DockStyle := dsTabs; 168 168 169 169 ProjectManager.Parent.Parent.Width := 200;
Note:
See TracChangeset
for help on using the changeset viewer.
