Changeset 61


Ignore:
Timestamp:
Oct 14, 2010, 2:30:40 PM (14 years ago)
Author:
george
Message:
  • Added: Separated dockable windows.
Location:
branches
Files:
6 added
2 deleted
10 edited

Legend:

Unmodified
Added
Removed

  • branches/Syntetizer/Syntetizer.lpi

    r33 r61  
    33  <ProjectOptions>
    44    <PathDelim Value="\"/>
    5     <Version Value="7"/>
     5    <Version Value="8"/>
    66    <General>
    77      <MainUnit Value="0"/>
    88      <TargetFileExt Value=".exe"/>
     9      <ResourceType Value="res"/>
     10      <UseXPManifest Value="True"/>
    911      <Icon Value="0"/>
    10       <UseXPManifest Value="True"/>
    11       <ActiveEditorIndexAtStart Value="2"/>
     12      <ActiveWindowIndexAtStart Value="0"/>
    1213    </General>
    1314    <VersionInfo>
    14       <ProjectVersion Value=""/>
    1515      <Language Value=""/>
    1616      <CharSet Value=""/>
     17      <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
    1718    </VersionInfo>
    1819    <PublishOptions>
    … …  
    3334      </Item1>
    3435    </RequiredPackages>
    35     <Units Count="4">
     36    <Units Count="5">
    3637      <Unit0>
    3738        <Filename Value="Syntetizer.lpr"/>
    3839        <IsPartOfProject Value="True"/>
    3940        <UnitName Value="Syntetizer"/>
    40         <CursorPos X="1" Y="11"/>
     41        <EditorIndex Value="1"/>
     42        <WindowIndex Value="0"/>
    4143        <TopLine Value="1"/>
    42         <EditorIndex Value="1"/>
     44        <CursorPos X="28" Y="12"/>
    4345        <UsageCount Value="20"/>
    4446        <Loaded Value="True"/>
     47        <LoadedDesigner Value="True"/>
     48        <DefaultSyntaxHighlighter Value="Delphi"/>
    4549      </Unit0>
    4650      <Unit1>
    … …  
    5054        <ResourceBaseClass Value="Form"/>
    5155        <UnitName Value="UMainForm"/>
    52         <CursorPos X="8" Y="3"/>
    53         <TopLine Value="1"/>
     56        <IsVisibleTab Value="True"/>
    5457        <EditorIndex Value="0"/>
     58        <WindowIndex Value="0"/>
     59        <TopLine Value="19"/>
     60        <CursorPos X="35" Y="34"/>
    5561        <UsageCount Value="20"/>
    5662        <Loaded Value="True"/>
     63        <LoadedDesigner Value="True"/>
     64        <DefaultSyntaxHighlighter Value="Delphi"/>
    5765      </Unit1>
    5866      <Unit2>
    … …  
    6068        <IsPartOfProject Value="True"/>
    6169        <UnitName Value="USyntetizer"/>
    62         <CursorPos X="58" Y="37"/>
    63         <TopLine Value="21"/>
    6470        <EditorIndex Value="2"/>
     71        <WindowIndex Value="0"/>
     72        <TopLine Value="72"/>
     73        <CursorPos X="16" Y="64"/>
    6574        <UsageCount Value="20"/>
    6675        <Loaded Value="True"/>
     76        <DefaultSyntaxHighlighter Value="Delphi"/>
    6777      </Unit2>
    6878      <Unit3>
    69         <Filename Value="..\..\..\..\..\Programy\Lazarus_0.9.28\fpc\2.2.4\source\rtl\objpas\classes\classesh.inc"/>
     79        <Filename Value="E:\Programy\Lazarus_0.9.28\fpc\2.2.4\source\rtl\objpas\classes\classesh.inc"/>
     80        <WindowIndex Value="0"/>
     81        <TopLine Value="1"/>
    7082        <CursorPos X="3" Y="234"/>
     83        <UsageCount Value="10"/>
     84        <DefaultSyntaxHighlighter Value="Delphi"/>
     85      </Unit3>
     86      <Unit4>
     87        <Filename Value="Syntetizer.lrs"/>
     88        <WindowIndex Value="0"/>
    7189        <TopLine Value="1"/>
    72         <EditorIndex Value="3"/>
     90        <CursorPos X="17" Y="1"/>
    7391        <UsageCount Value="10"/>
    74         <Loaded Value="True"/>
    75       </Unit3>
     92        <DefaultSyntaxHighlighter Value="Delphi"/>
     93      </Unit4>
    7694    </Units>
    77     <JumpHistory Count="30" HistoryIndex="29">
     95    <JumpHistory Count="29" HistoryIndex="28">
    7896      <Position1>
    7997        <Filename Value="USyntetizer.pas"/>
    80         <Caret Line="36" Column="1" TopLine="15"/>
     98        <Caret Line="30" Column="3" TopLine="14"/>
    8199      </Position1>
    82100      <Position2>
    83101        <Filename Value="USyntetizer.pas"/>
    84         <Caret Line="296" Column="10" TopLine="266"/>
     102        <Caret Line="313" Column="5" TopLine="297"/>
    85103      </Position2>
    86104      <Position3>
    87105        <Filename Value="USyntetizer.pas"/>
    88         <Caret Line="293" Column="10" TopLine="271"/>
     106        <Caret Line="54" Column="18" TopLine="38"/>
    89107      </Position3>
    90108      <Position4>
    91109        <Filename Value="USyntetizer.pas"/>
    92         <Caret Line="291" Column="18" TopLine="271"/>
     110        <Caret Line="33" Column="51" TopLine="14"/>
    93111      </Position4>
    94112      <Position5>
    95113        <Filename Value="USyntetizer.pas"/>
    96         <Caret Line="278" Column="5" TopLine="270"/>
     114        <Caret Line="313" Column="17" TopLine="297"/>
    97115      </Position5>
    98116      <Position6>
    99         <Filename Value="USyntetizer.pas"/>
    100         <Caret Line="33" Column="11" TopLine="17"/>
     117        <Filename Value="UMainForm.pas"/>
     118        <Caret Line="53" Column="20" TopLine="43"/>
    101119      </Position6>
    102120      <Position7>
    103121        <Filename Value="USyntetizer.pas"/>
    104         <Caret Line="74" Column="1" TopLine="44"/>
     122        <Caret Line="85" Column="23" TopLine="69"/>
    105123      </Position7>
    106124      <Position8>
    107125        <Filename Value="USyntetizer.pas"/>
    108         <Caret Line="283" Column="16" TopLine="269"/>
     126        <Caret Line="325" Column="15" TopLine="313"/>
    109127      </Position8>
    110128      <Position9>
    111129        <Filename Value="USyntetizer.pas"/>
    112         <Caret Line="276" Column="24" TopLine="260"/>
     130        <Caret Line="327" Column="35" TopLine="315"/>
    113131      </Position9>
    114132      <Position10>
    115133        <Filename Value="USyntetizer.pas"/>
    116         <Caret Line="136" Column="7" TopLine="129"/>
     134        <Caret Line="312" Column="23" TopLine="304"/>
    117135      </Position10>
    118136      <Position11>
    119137        <Filename Value="USyntetizer.pas"/>
    120         <Caret Line="65" Column="43" TopLine="40"/>
     138        <Caret Line="67" Column="48" TopLine="54"/>
    121139      </Position11>
    122140      <Position12>
    123141        <Filename Value="USyntetizer.pas"/>
    124         <Caret Line="325" Column="51" TopLine="306"/>
     142        <Caret Line="72" Column="53" TopLine="58"/>
    125143      </Position12>
    126144      <Position13>
    127         <Filename Value="USyntetizer.pas"/>
    128         <Caret Line="153" Column="31" TopLine="137"/>
     145        <Filename Value="UMainForm.pas"/>
     146        <Caret Line="51" Column="20" TopLine="46"/>
    129147      </Position13>
    130148      <Position14>
    131         <Filename Value="USyntetizer.pas"/>
    132         <Caret Line="313" Column="7" TopLine="297"/>
     149        <Filename Value="UMainForm.pas"/>
     150        <Caret Line="59" Column="95" TopLine="44"/>
    133151      </Position14>
    134152      <Position15>
    135153        <Filename Value="USyntetizer.pas"/>
    136         <Caret Line="54" Column="15" TopLine="38"/>
     154        <Caret Line="194" Column="18" TopLine="176"/>
    137155      </Position15>
    138156      <Position16>
    139         <Filename Value="USyntetizer.pas"/>
    140         <Caret Line="30" Column="3" TopLine="14"/>
     157        <Filename Value="Syntetizer.lpr"/>
     158        <Caret Line="18" Column="1" TopLine="1"/>
    141159      </Position16>
    142160      <Position17>
    143         <Filename Value="USyntetizer.pas"/>
    144         <Caret Line="313" Column="5" TopLine="297"/>
     161        <Filename Value="Syntetizer.lpr"/>
     162        <Caret Line="13" Column="31" TopLine="1"/>
    145163      </Position17>
    146164      <Position18>
    147         <Filename Value="USyntetizer.pas"/>
    148         <Caret Line="54" Column="18" TopLine="38"/>
     165        <Filename Value="Syntetizer.lpr"/>
     166        <Caret Line="18" Column="16" TopLine="1"/>
    149167      </Position18>
    150168      <Position19>
    151         <Filename Value="USyntetizer.pas"/>
    152         <Caret Line="33" Column="51" TopLine="14"/>
     169        <Filename Value="Syntetizer.lpr"/>
     170        <Caret Line="17" Column="1" TopLine="1"/>
    153171      </Position19>
    154172      <Position20>
    155         <Filename Value="USyntetizer.pas"/>
    156         <Caret Line="313" Column="17" TopLine="297"/>
     173        <Filename Value="Syntetizer.lpr"/>
     174        <Caret Line="21" Column="1" TopLine="1"/>
    157175      </Position20>
    158176      <Position21>
    159         <Filename Value="UMainForm.pas"/>
    160         <Caret Line="53" Column="20" TopLine="43"/>
     177        <Filename Value="Syntetizer.lpr"/>
     178        <Caret Line="13" Column="48" TopLine="1"/>
    161179      </Position21>
    162180      <Position22>
    163         <Filename Value="USyntetizer.pas"/>
    164         <Caret Line="85" Column="23" TopLine="69"/>
     181        <Filename Value="Syntetizer.lpr"/>
     182        <Caret Line="21" Column="1" TopLine="1"/>
    165183      </Position22>
    166184      <Position23>
    167185        <Filename Value="USyntetizer.pas"/>
    168         <Caret Line="325" Column="15" TopLine="313"/>
     186        <Caret Line="345" Column="14" TopLine="326"/>
    169187      </Position23>
    170188      <Position24>
    171         <Filename Value="USyntetizer.pas"/>
    172         <Caret Line="327" Column="35" TopLine="315"/>
     189        <Filename Value="Syntetizer.lpr"/>
     190        <Caret Line="21" Column="1" TopLine="1"/>
    173191      </Position24>
    174192      <Position25>
    175         <Filename Value="USyntetizer.pas"/>
    176         <Caret Line="312" Column="23" TopLine="304"/>
     193        <Filename Value="UMainForm.pas"/>
     194        <Caret Line="79" Column="28" TopLine="70"/>
    177195      </Position25>
    178196      <Position26>
    179         <Filename Value="USyntetizer.pas"/>
    180         <Caret Line="67" Column="48" TopLine="54"/>
     197        <Filename Value="UMainForm.pas"/>
     198        <Caret Line="78" Column="28" TopLine="69"/>
    181199      </Position26>
    182200      <Position27>
    183         <Filename Value="USyntetizer.pas"/>
    184         <Caret Line="72" Column="53" TopLine="58"/>
     201        <Filename Value="Syntetizer.lpr"/>
     202        <Caret Line="14" Column="1" TopLine="1"/>
    185203      </Position27>
    186204      <Position28>
    187         <Filename Value="UMainForm.pas"/>
    188         <Caret Line="51" Column="20" TopLine="46"/>
     205        <Filename Value="USyntetizer.pas"/>
     206        <Caret Line="88" Column="24" TopLine="78"/>
    189207      </Position28>
    190208      <Position29>
    191         <Filename Value="UMainForm.pas"/>
    192         <Caret Line="59" Column="95" TopLine="44"/>
     209        <Filename Value="USyntetizer.pas"/>
     210        <Caret Line="89" Column="21" TopLine="78"/>
    193211      </Position29>
    194       <Position30>
    195         <Filename Value="USyntetizer.pas"/>
    196         <Caret Line="194" Column="18" TopLine="176"/>
    197       </Position30>
    198212    </JumpHistory>
    199213  </ProjectOptions>
    200214  <CompilerOptions>
    201     <Version Value="8"/>
     215    <Version Value="9"/>
    202216    <PathDelim Value="\"/>
    203217    <SearchPaths>
    … …  
    205219      <UnitOutputDirectory Value="bin"/>
    206220    </SearchPaths>
     221    <Parsing>
     222      <SyntaxOptions>
     223        <SyntaxMode Value="Delphi"/>
     224        <UseAnsiStrings Value="False"/>
     225      </SyntaxOptions>
     226    </Parsing>
    207227    <CodeGeneration>
    208228      <Checks>
    … …  
    214234    </CodeGeneration>
    215235    <Linking>
     236      <Debugging>
     237        <GenerateDebugInfo Value="True"/>
     238        <GenerateDwarf Value="True"/>
     239        <UseHeaptrc Value="True"/>
     240      </Debugging>
    216241      <Options>
    217242        <Win32>
    … …  
    221246    </Linking>
    222247    <Other>
     248      <Verbosity>
     249        <ShoLineNum Value="True"/>
     250      </Verbosity>
     251      <CompilerMessages>
     252        <UseMsgFile Value="True"/>
     253      </CompilerMessages>
    223254      <CompilerPath Value="$(CompPath)"/>
    224255    </Other>

  • branches/Syntetizer/Syntetizer.lpr

    r26 r61  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, LResources, USyntetizer
     10  Forms, SysUtils, UMainForm, USyntetizer
    1111  { you can add units after this };
    1212
    … …  
    1414
    1515begin
    16   {$I Syntetizer.lrs}
     16  // Heap trace
     17  DeleteFile(ExtractFilePath(ParamStr(0)) + 'heaptrclog.trc');
     18  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + 'heaptrclog.trc');
     19
    1720  Application.Initialize;
    1821  Application.CreateForm(TMainForm, MainForm);

  • branches/Syntetizer/UMainForm.lfm

    r26 r61  
    11object MainForm: TMainForm
    2   Left = 592
     2  Left = 485
    33  Height = 365
    4   Top = 152
     4  Top = 128
    55  Width = 406
    66  Caption = 'MainForm'
    … …  
    1010  OnDestroy = FormDestroy
    1111  OnShow = FormShow
    12   LCLVersion = '0.9.28'
     12  LCLVersion = '0.9.29'
    1313  object Memo1: TMemo
    14     Left = 5
    15     Height = 350
     14    Left = 7
     15    Height = 345
    1616    Top = 8
    1717    Width = 393
    18     Anchors = [akTop, akLeft, akRight, akBottom]
    19     ScrollBars = ssAutoBoth
     18    Lines.Strings = (
     19      'Memo1'
     20    )
    2021    TabOrder = 0
    2122  end

  • branches/Syntetizer/UMainForm.lrs

    r27 r61  
     1{ This is an automatically generated lazarus resource file }
     2
    13LazarusResources.Add('TMainForm','FORMDATA',[
    2   'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3'P'#2#6'Height'#3'm'#1#3'Top'#3#152#0
    3   +#5'Width'#3#150#1#7'Caption'#6#8'MainForm'#12'ClientHeight'#3'm'#1#11'Client'
    4   +'Width'#3#150#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#6
    5   +'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.28'#0#5'TMemo'#5'Memo1'#4'Left'
    6   +#2#5#6'Height'#3'^'#1#3'Top'#2#8#5'Width'#3#137#1#7'Anchors'#11#5'akTop'#6'a'
    7   +'kLeft'#7'akRight'#8'akBottom'#0#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'
    8   +#2#0#0#0#0
     4  'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#229#1#6'Height'#3'm'#1#3'Top'#3#128
     5  +#0#5'Width'#3#150#1#7'Caption'#6#8'MainForm'#12'ClientHeight'#3'm'#1#11'Clie'
     6  +'ntWidth'#3#150#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'
     7  +#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.29'#0#5'TMemo'#5'Memo1'#4'Le'
     8  +'ft'#2#7#6'Height'#3'Y'#1#3'Top'#2#8#5'Width'#3#137#1#13'Lines.Strings'#1#6#5
     9  +'Memo1'#0#8'TabOrder'#2#0#0#0#0
    910]);

  • branches/Syntetizer/USyntetizer.pas

    r33 r61  
    66
    77uses
    8   Classes, SysUtils;
     8  Classes, SysUtils, Contnrs;
    99
    1010type
    … …  
    2929
    3030  TBeginEnd = class(TCommand)
    31     Commands: TList; // TList<ICommand>
     31    Commands: TObjectList; // TObjectList<ICommand>
    3232    LastEnd: Boolean;
    3333    procedure Syntetize(Syntetizer: TSyntetizer); override;
    … …  
    4343
    4444  TVariableSection = class(TInterfacedObject, ISyntetizable)
    45     Variables: TList; // TList<TVariableDeclaration>
     45    Variables: TObjectList; // TObjectList<TVariableDeclaration>
    4646    procedure Syntetize(Syntetizer: TSyntetizer);
    4747    constructor Create;
    … …  
    5151  TProcedure = class(TInterfacedObject, ISyntetizable)
    5252    Name: string;
    53     Parameters: TList;
     53    Parameters: TObjectList;
    5454    Code: TBeginEnd;
    5555    constructor Create;
    … …  
    5959
    6060  TProcedureList = class(TInterfacedObject, ISyntetizable)
    61     Procedures: TList; // TList<TProcedure>
     61    Procedures: TObjectList; // TObjectList<TProcedure>
    6262    procedure Syntetize(Syntetizer: TSyntetizer);
    6363    constructor Create;
    … …  
    7676  TProcedureCall = class(TCommand)
    7777    Name: string;
    78     Parameters: TList; // TList<TProcedureParameter>
     78    Parameters: TObjectList; // TObjectList<TProcedureParameter>
    7979    constructor Create;
    8080    destructor Destroy; override;
    … …  
    8484  TProgram = class(TInterfacedObject, ISyntetizable)
    8585    Name: string;
    86     Code: TBeginend;
    87     CompilerDirectives: TList; // TList<TCompilerDirective>
     86    Code: TBeginEnd;
     87    CompilerDirectives: TObjectList; // TList<TCompilerDirective>
    8888    Procedures: TProcedureList; // TList<TProcedure>
    8989    Variables: TVariableSection;
    … …  
    154154constructor TProgram.Create;
    155155begin
    156   CompilerDirectives := TList.Create;
     156  CompilerDirectives := TObjectList.Create;
    157157  Variables := TVariableSection.Create;
    158158  Procedures := TProcedureList.Create;
    … …  
    162162
    163163destructor TProgram.Destroy;
    164 var
    165   I: Integer;
    166164begin
    167165  Procedures.Destroy;
    168166  Variables.Destroy;
    169   for I := 0 to CompilerDirectives.Count - 1 do
    170     TCompilerDirective(CompilerDirectives[I]).Destroy;
    171167  Code.Destroy;
     168  CompilerDirectives.Destroy;
    172169  inherited Destroy;
    173170end;
    … …  
    192189constructor TBeginEnd.Create;
    193190begin
    194   Commands := TList.Create;
     191  Commands := TObjectList.Create;
    195192end;
    196193
    197194destructor TBeginEnd.Destroy;
    198 var
    199   I: Integer;
    200 begin
    201   for I := 0 to Commands.Count - 1 do
    202     TCommand(Commands[I]).Destroy;
     195begin
    203196  Commands.Destroy;
    204197  inherited Destroy;
    … …  
    209202constructor TProcedureCall.Create;
    210203begin
    211   Parameters := TList.Create;
     204  Parameters := TObjectList.Create;
    212205end;
    213206
    214207destructor TProcedureCall.Destroy;
    215 var
    216   I: Integer;
    217 begin
    218   for I := 0 to Parameters.Count - 1 do
    219     TProcedureParameter(Parameters[I]).Destroy;
     208begin
    220209  Parameters.Destroy;
    221210  inherited Destroy;
    … …  
    272261constructor TVariableSection.Create;
    273262begin
    274   Variables := TList.Create;
     263  Variables := TObjectList.Create;
    275264end;
    276265
    277266destructor TVariableSection.Destroy;
    278 var
    279   I: Integer;
    280 begin
    281   for I := 0 to Variables.Count - 1 do
    282     TVariableDeclaration(Variables[I]).Destroy;
     267begin
    283268  Variables.Destroy;
    284269  inherited Destroy;
    … …  
    289274constructor TProcedure.Create;
    290275begin
    291   Parameters := TList.Create;
     276  Parameters := TObjectList.Create;
    292277  Code := TBeginEnd.Create;
    293278end;
    294279
    295280destructor TProcedure.Destroy;
    296 var
    297   I: Integer;
    298281begin
    299282  Code.Destroy;
    300   //for I := 0 to Parameters.Count - 1 do
    301   //  TParameter(Parameters[I]).Destroy;
    302283  Parameters.Destroy;
    303284  inherited Destroy;
    … …  
    309290  ParameterString: string;
    310291begin
     292  ParameterString := '';
    311293  with Syntetizer do begin
    312294    for I := 0 to Parameters.Count - 1 do
    … …  
    335317constructor TProcedureList.Create;
    336318begin
    337   Procedures := TList.Create;
     319  Procedures := TObjectList.Create;
    338320end;
    339321
    340322destructor TProcedureList.Destroy;
    341 var
    342   I: Integer;
    343 begin
    344   for I := 0 to Procedures.Count - 1 do
    345     TProcedure(Procedures[I]).Destroy;
     323begin
    346324  Procedures.Destroy;
    347325  inherited Destroy;

  • branches/Transpascal/Forms/UMainForm.lfm

    r60 r61  
    55  Width = 861
    66  Caption = 'Transpascal IDE'
    7   ClientHeight = 485
     7  ClientHeight = 504
    88  ClientWidth = 861
    99  Font.Height = -11
    … …  
    1616  Position = poDesktopCenter
    1717  LCLVersion = '0.9.29'
    18   object Panel2: TPanel
    19     Left = 0
    20     Height = 320
    21     Top = 0
    22     Width = 861
    23     Align = alClient
    24     BevelOuter = bvNone
    25     ClientHeight = 320
    26     ClientWidth = 861
    27     TabOrder = 0
    28     object TreeViewProject: TTreeView
    29       Left = 0
    30       Height = 320
    31       Top = 0
    32       Width = 233
    33       Align = alLeft
    34       DefaultItemHeight = 15
    35       ReadOnly = True
    36       TabOrder = 0
    37       OnChange = TreeViewProjectChange
    38       Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
    39     end
    40     object Splitter1: TSplitter
    41       Left = 233
    42       Height = 320
    43       Top = 0
    44       Width = 5
    45     end
    46     inline SynEditSource: TSynEdit
    47       Left = 238
    48       Height = 320
    49       Top = 0
    50       Width = 364
    51       Align = alLeft
    52       Font.Height = -13
    53       Font.Name = 'Courier New'
    54       Font.Pitch = fpFixed
    55       Font.Quality = fqNonAntialiased
    56       ParentColor = False
    57       ParentFont = False
    58       TabOrder = 2
    59       Gutter.Width = 57
    60       Gutter.MouseActions = <     
    61         item
    62           Shift = []
    63           ShiftMask = []
    64           Button = mbLeft
    65           ClickCount = ccAny
    66           ClickDir = cdDown
    67           Command = 13
    68           MoveCaret = False
    69           Option = 0
    70           Priority = 0
    71         end     
    72         item
    73           Shift = []
    74           ShiftMask = []
    75           Button = mbRight
    76           ClickCount = ccSingle
    77           ClickDir = cdUp
    78           Command = 12
    79           MoveCaret = False
    80           Option = 0
    81           Priority = 0
    82         end>
    83       RightGutter.Width = 0
    84       RightGutter.MouseActions = <     
    85         item
    86           Shift = []
    87           ShiftMask = []
    88           Button = mbLeft
    89           ClickCount = ccAny
    90           ClickDir = cdDown
    91           Command = 13
    92           MoveCaret = False
    93           Option = 0
    94           Priority = 0
    95         end     
    96         item
    97           Shift = []
    98           ShiftMask = []
    99           Button = mbRight
    100           ClickCount = ccSingle
    101           ClickDir = cdUp
    102           Command = 12
    103           MoveCaret = False
    104           Option = 0
    105           Priority = 0
    106         end>
    107       Highlighter = SynPasSyn1
    108       Keystrokes = <     
    109         item
    110           Command = ecUp
    111           ShortCut = 38
    112         end     
    113         item
    114           Command = ecSelUp
    115           ShortCut = 8230
    116         end     
    117         item
    118           Command = ecScrollUp
    119           ShortCut = 16422
    120         end     
    121         item
    122           Command = ecDown
    123           ShortCut = 40
    124         end     
    125         item
    126           Command = ecSelDown
    127           ShortCut = 8232
    128         end     
    129         item
    130           Command = ecScrollDown
    131           ShortCut = 16424
    132         end     
    133         item
    134           Command = ecLeft
    135           ShortCut = 37
    136         end     
    137         item
    138           Command = ecSelLeft
    139           ShortCut = 8229
    140         end     
    141         item
    142           Command = ecWordLeft
    143           ShortCut = 16421
    144         end     
    145         item
    146           Command = ecSelWordLeft
    147           ShortCut = 24613
    148         end     
    149         item
    150           Command = ecRight
    151           ShortCut = 39
    152         end     
    153         item
    154           Command = ecSelRight
    155           ShortCut = 8231
    156         end     
    157         item
    158           Command = ecWordRight
    159           ShortCut = 16423
    160         end     
    161         item
    162           Command = ecSelWordRight
    163           ShortCut = 24615
    164         end     
    165         item
    166           Command = ecPageDown
    167           ShortCut = 34
    168         end     
    169         item
    170           Command = ecSelPageDown
    171           ShortCut = 8226
    172         end     
    173         item
    174           Command = ecPageBottom
    175           ShortCut = 16418
    176         end     
    177         item
    178           Command = ecSelPageBottom
    179           ShortCut = 24610
    180         end     
    181         item
    182           Command = ecPageUp
    183           ShortCut = 33
    184         end     
    185         item
    186           Command = ecSelPageUp
    187           ShortCut = 8225
    188         end     
    189         item
    190           Command = ecPageTop
    191           ShortCut = 16417
    192         end     
    193         item
    194           Command = ecSelPageTop
    195           ShortCut = 24609
    196         end     
    197         item
    198           Command = ecLineStart
    199           ShortCut = 36
    200         end     
    201         item
    202           Command = ecSelLineStart
    203           ShortCut = 8228
    204         end     
    205         item
    206           Command = ecEditorTop
    207           ShortCut = 16420
    208         end     
    209         item
    210           Command = ecSelEditorTop
    211           ShortCut = 24612
    212         end     
    213         item
    214           Command = ecLineEnd
    215           ShortCut = 35
    216         end     
    217         item
    218           Command = ecSelLineEnd
    219           ShortCut = 8227
    220         end     
    221         item
    222           Command = ecEditorBottom
    223           ShortCut = 16419
    224         end     
    225         item
    226           Command = ecSelEditorBottom
    227           ShortCut = 24611
    228         end     
    229         item
    230           Command = ecToggleMode
    231           ShortCut = 45
    232         end     
    233         item
    234           Command = ecCopy
    235           ShortCut = 16429
    236         end     
    237         item
    238           Command = ecPaste
    239           ShortCut = 8237
    240         end     
    241         item
    242           Command = ecDeleteChar
    243           ShortCut = 46
    244         end     
    245         item
    246           Command = ecCut
    247           ShortCut = 8238
    248         end     
    249         item
    250           Command = ecDeleteLastChar
    251           ShortCut = 8
    252         end     
    253         item
    254           Command = ecDeleteLastChar
    255           ShortCut = 8200
    256         end     
    257         item
    258           Command = ecDeleteLastWord
    259           ShortCut = 16392
    260         end     
    261         item
    262           Command = ecUndo
    263           ShortCut = 32776
    264         end     
    265         item
    266           Command = ecRedo
    267           ShortCut = 40968
    268         end     
    269         item
    270           Command = ecLineBreak
    271           ShortCut = 13
    272         end     
    273         item
    274           Command = ecSelectAll
    275           ShortCut = 16449
    276         end     
    277         item
    278           Command = ecCopy
    279           ShortCut = 16451
    280         end     
    281         item
    282           Command = ecBlockIndent
    283           ShortCut = 24649
    284         end     
    285         item
    286           Command = ecLineBreak
    287           ShortCut = 16461
    288         end     
    289         item
    290           Command = ecInsertLine
    291           ShortCut = 16462
    292         end     
    293         item
    294           Command = ecDeleteWord
    295           ShortCut = 16468
    296         end     
    297         item
    298           Command = ecBlockUnindent
    299           ShortCut = 24661
    300         end     
    301         item
    302           Command = ecPaste
    303           ShortCut = 16470
    304         end     
    305         item
    306           Command = ecCut
    307           ShortCut = 16472
    308         end     
    309         item
    310           Command = ecDeleteLine
    311           ShortCut = 16473
    312         end     
    313         item
    314           Command = ecDeleteEOL
    315           ShortCut = 24665
    316         end     
    317         item
    318           Command = ecUndo
    319           ShortCut = 16474
    320         end     
    321         item
    322           Command = ecRedo
    323           ShortCut = 24666
    324         end     
    325         item
    326           Command = ecGotoMarker0
    327           ShortCut = 16432
    328         end     
    329         item
    330           Command = ecGotoMarker1
    331           ShortCut = 16433
    332         end     
    333         item
    334           Command = ecGotoMarker2
    335           ShortCut = 16434
    336         end     
    337         item
    338           Command = ecGotoMarker3
    339           ShortCut = 16435
    340         end     
    341         item
    342           Command = ecGotoMarker4
    343           ShortCut = 16436
    344         end     
    345         item
    346           Command = ecGotoMarker5
    347           ShortCut = 16437
    348         end     
    349         item
    350           Command = ecGotoMarker6
    351           ShortCut = 16438
    352         end     
    353         item
    354           Command = ecGotoMarker7
    355           ShortCut = 16439
    356         end     
    357         item
    358           Command = ecGotoMarker8
    359           ShortCut = 16440
    360         end     
    361         item
    362           Command = ecGotoMarker9
    363           ShortCut = 16441
    364         end     
    365         item
    366           Command = ecSetMarker0
    367           ShortCut = 24624
    368         end     
    369         item
    370           Command = ecSetMarker1
    371           ShortCut = 24625
    372         end     
    373         item
    374           Command = ecSetMarker2
    375           ShortCut = 24626
    376         end     
    377         item
    378           Command = ecSetMarker3
    379           ShortCut = 24627
    380         end     
    381         item
    382           Command = ecSetMarker4
    383           ShortCut = 24628
    384         end     
    385         item
    386           Command = ecSetMarker5
    387           ShortCut = 24629
    388         end     
    389         item
    390           Command = ecSetMarker6
    391           ShortCut = 24630
    392         end     
    393         item
    394           Command = ecSetMarker7
    395           ShortCut = 24631
    396         end     
    397         item
    398           Command = ecSetMarker8
    399           ShortCut = 24632
    400         end     
    401         item
    402           Command = ecSetMarker9
    403           ShortCut = 24633
    404         end     
    405         item
    406           Command = EcFoldLevel1
    407           ShortCut = 41009
    408         end     
    409         item
    410           Command = EcFoldLevel2
    411           ShortCut = 41010
    412         end     
    413         item
    414           Command = EcFoldLevel1
    415           ShortCut = 41011
    416         end     
    417         item
    418           Command = EcFoldLevel1
    419           ShortCut = 41012
    420         end     
    421         item
    422           Command = EcFoldLevel1
    423           ShortCut = 41013
    424         end     
    425         item
    426           Command = EcFoldLevel6
    427           ShortCut = 41014
    428         end     
    429         item
    430           Command = EcFoldLevel7
    431           ShortCut = 41015
    432         end     
    433         item
    434           Command = EcFoldLevel8
    435           ShortCut = 41016
    436         end     
    437         item
    438           Command = EcFoldLevel9
    439           ShortCut = 41017
    440         end     
    441         item
    442           Command = EcFoldLevel0
    443           ShortCut = 41008
    444         end     
    445         item
    446           Command = EcFoldCurrent
    447           ShortCut = 41005
    448         end     
    449         item
    450           Command = EcUnFoldCurrent
    451           ShortCut = 41003
    452         end     
    453         item
    454           Command = EcToggleMarkupWord
    455           ShortCut = 32845
    456         end     
    457         item
    458           Command = ecNormalSelect
    459           ShortCut = 24654
    460         end     
    461         item
    462           Command = ecColumnSelect
    463           ShortCut = 24643
    464         end     
    465         item
    466           Command = ecLineSelect
    467           ShortCut = 24652
    468         end     
    469         item
    470           Command = ecTab
    471           ShortCut = 9
    472         end     
    473         item
    474           Command = ecShiftTab
    475           ShortCut = 8201
    476         end     
    477         item
    478           Command = ecMatchBracket
    479           ShortCut = 24642
    480         end     
    481         item
    482           Command = ecColSelUp
    483           ShortCut = 40998
    484         end     
    485         item
    486           Command = ecColSelDown
    487           ShortCut = 41000
    488         end     
    489         item
    490           Command = ecColSelLeft
    491           ShortCut = 40997
    492         end     
    493         item
    494           Command = ecColSelRight
    495           ShortCut = 40999
    496         end     
    497         item
    498           Command = ecColSelPageDown
    499           ShortCut = 40994
    500         end     
    501         item
    502           Command = ecColSelPageBottom
    503           ShortCut = 57378
    504         end     
    505         item
    506           Command = ecColSelPageUp
    507           ShortCut = 40993
    508         end     
    509         item
    510           Command = ecColSelPageTop
    511           ShortCut = 57377
    512         end     
    513         item
    514           Command = ecColSelLineStart
    515           ShortCut = 40996
    516         end     
    517         item
    518           Command = ecColSelLineEnd
    519           ShortCut = 40995
    520         end     
    521         item
    522           Command = ecColSelEditorTop
    523           ShortCut = 57380
    524         end     
    525         item
    526           Command = ecColSelEditorBottom
    527           ShortCut = 57379
    528         end>
    529       MouseActions = <     
    530         item
    531           Shift = []
    532           ShiftMask = [ssShift, ssAlt]
    533           Button = mbLeft
    534           ClickCount = ccSingle
    535           ClickDir = cdDown
    536           Command = 1
    537           MoveCaret = True
    538           Option = 0
    539           Priority = 0
    540         end     
    541         item
    542           Shift = [ssShift]
    543           ShiftMask = [ssShift, ssAlt]
    544           Button = mbLeft
    545           ClickCount = ccSingle
    546           ClickDir = cdDown
    547           Command = 1
    548           MoveCaret = True
    549           Option = 1
    550           Priority = 0
    551         end     
    552         item
    553           Shift = [ssAlt]
    554           ShiftMask = [ssShift, ssAlt]
    555           Button = mbLeft
    556           ClickCount = ccSingle
    557           ClickDir = cdDown
    558           Command = 3
    559           MoveCaret = True
    560           Option = 0
    561           Priority = 0
    562         end     
    563         item
    564           Shift = [ssShift, ssAlt]
    565           ShiftMask = [ssShift, ssAlt]
    566           Button = mbLeft
    567           ClickCount = ccSingle
    568           ClickDir = cdDown
    569           Command = 3
    570           MoveCaret = True
    571           Option = 1
    572           Priority = 0
    573         end     
    574         item
    575           Shift = []
    576           ShiftMask = []
    577           Button = mbRight
    578           ClickCount = ccSingle
    579           ClickDir = cdUp
    580           Command = 12
    581           MoveCaret = False
    582           Option = 0
    583           Priority = 0
    584         end     
    585         item
    586           Shift = []
    587           ShiftMask = []
    588           Button = mbLeft
    589           ClickCount = ccDouble
    590           ClickDir = cdDown
    591           Command = 6
    592           MoveCaret = True
    593           Option = 0
    594           Priority = 0
    595         end     
    596         item
    597           Shift = []
    598           ShiftMask = []
    599           Button = mbLeft
    600           ClickCount = ccTriple
    601           ClickDir = cdDown
    602           Command = 7
    603           MoveCaret = True
    604           Option = 0
    605           Priority = 0
    606         end     
    607         item
    608           Shift = []
    609           ShiftMask = []
    610           Button = mbLeft
    611           ClickCount = ccQuad
    612           ClickDir = cdDown
    613           Command = 8
    614           MoveCaret = True
    615           Option = 0
    616           Priority = 0
    617         end     
    618         item
    619           Shift = []
    620           ShiftMask = []
    621           Button = mbMiddle
    622           ClickCount = ccSingle
    623           ClickDir = cdDown
    624           Command = 10
    625           MoveCaret = True
    626           Option = 0
    627           Priority = 0
    628         end     
    629         item
    630           Shift = [ssCtrl]
    631           ShiftMask = [ssShift, ssAlt, ssCtrl]
    632           Button = mbLeft
    633           ClickCount = ccSingle
    634           ClickDir = cdUp
    635           Command = 11
    636           MoveCaret = False
    637           Option = 0
    638           Priority = 0
    639         end>
    640       MouseSelActions = <     
    641         item
    642           Shift = []
    643           ShiftMask = []
    644           Button = mbLeft
    645           ClickCount = ccSingle
    646           ClickDir = cdDown
    647           Command = 9
    648           MoveCaret = False
    649           Option = 0
    650           Priority = 0
    651         end>
    652       Lines.Strings = (
    653         'SynEditSource'
    654       )
    655       BracketHighlightStyle = sbhsBoth
    656       inline SynGutterPartList1: TSynGutterPartList
    657         object SynGutterMarks1: TSynGutterMarks
    658           Width = 24
    659         end
    660         object SynGutterLineNumber1: TSynGutterLineNumber
    661           Width = 17
    662           MouseActions = <>
    663           MarkupInfo.Background = clBtnFace
    664           MarkupInfo.Foreground = clNone
    665           DigitCount = 2
    666           ShowOnlyLineNumbersMultiplesOf = 1
    667           ZeroStart = False
    668           LeadingZeros = False
    669         end
    670         object SynGutterChanges1: TSynGutterChanges
    671           Width = 4
    672           ModifiedColor = 59900
    673           SavedColor = clGreen
    674         end
    675         object SynGutterSeparator1: TSynGutterSeparator
    676           Width = 2
    677         end
    678         object SynGutterCodeFolding1: TSynGutterCodeFolding
    679           MouseActions = <         
    680             item
    681               Shift = []
    682               ShiftMask = []
    683               Button = mbRight
    684               ClickCount = ccSingle
    685               ClickDir = cdUp
    686               Command = 16
    687               MoveCaret = False
    688               Option = 0
    689               Priority = 0
    690             end         
    691             item
    692               Shift = []
    693               ShiftMask = [ssShift]
    694               Button = mbMiddle
    695               ClickCount = ccAny
    696               ClickDir = cdDown
    697               Command = 14
    698               MoveCaret = False
    699               Option = 0
    700               Priority = 0
    701             end         
    702             item
    703               Shift = [ssShift]
    704               ShiftMask = [ssShift]
    705               Button = mbMiddle
    706               ClickCount = ccAny
    707               ClickDir = cdDown
    708               Command = 14
    709               MoveCaret = False
    710               Option = 1
    711               Priority = 0
    712             end         
    713             item
    714               Shift = []
    715               ShiftMask = []
    716               Button = mbLeft
    717               ClickCount = ccAny
    718               ClickDir = cdDown
    719               Command = 0
    720               MoveCaret = False
    721               Option = 0
    722               Priority = 0
    723             end>
    724           MarkupInfo.Background = clNone
    725           MarkupInfo.Foreground = clGray
    726           MouseActionsExpanded = <         
    727             item
    728               Shift = []
    729               ShiftMask = []
    730               Button = mbLeft
    731               ClickCount = ccAny
    732               ClickDir = cdDown
    733               Command = 14
    734               MoveCaret = False
    735               Option = 0
    736               Priority = 0
    737             end>
    738           MouseActionsCollapsed = <         
    739             item
    740               Shift = [ssCtrl]
    741               ShiftMask = [ssCtrl]
    742               Button = mbLeft
    743               ClickCount = ccAny
    744               ClickDir = cdDown
    745               Command = 15
    746               MoveCaret = False
    747               Option = 0
    748               Priority = 0
    749             end         
    750             item
    751               Shift = []
    752               ShiftMask = [ssCtrl]
    753               Button = mbLeft
    754               ClickCount = ccAny
    755               ClickDir = cdDown
    756               Command = 15
    757               MoveCaret = False
    758               Option = 1
    759               Priority = 0
    760             end>
    761         end
    762       end
    763       inline SynRightGutterPartList1: TSynRightGutterPartList
    764       end
    765     end
    766     object Splitter2: TSplitter
    767       Left = 602
    768       Height = 320
    769       Top = 0
    770       Width = 5
    771       OnCanResize = Splitter2CanResize
    772     end
    773     object Panel1: TPanel
    774       Left = 607
    775       Height = 320
    776       Top = 0
    777       Width = 254
    778       Align = alClient
    779       BevelOuter = bvNone
    780       TabOrder = 4
    781     end
    782   end
    783   object Panel3: TPanel
    784     Left = 0
    785     Height = 160
    786     Top = 325
    787     Width = 861
    788     Align = alBottom
    789     BevelOuter = bvSpace
    790     ClientHeight = 160
    791     ClientWidth = 861
    792     TabOrder = 1
    793     object ListBoxMessages: TListBox
    794       Left = 8
    795       Height = 146
    796       Top = 8
    797       Width = 694
    798       Anchors = [akTop, akLeft, akRight, akBottom]
    799       ItemHeight = 0
    800       OnClick = ListBoxMessagesClick
    801       TabOrder = 0
    802     end
    803     object ButtonCompile: TButton
    804       Left = 709
    805       Height = 22
    806       Top = 32
    807       Width = 144
    808       Anchors = [akTop, akRight]
    809       Caption = 'Build'
    810       Font.Height = -11
    811       Font.Name = 'Tahoma'
    812       OnClick = ButtonCompileClick
    813       ParentFont = False
    814       TabOrder = 1
    815     end
    816     object ComboBox1: TComboBox
    817       Left = 709
    818       Height = 21
    819       Top = 8
    820       Width = 144
    821       Anchors = [akTop, akRight]
    822       ItemHeight = 13
    823       ItemIndex = 0
    824       Items.Strings = (
    825         'Pascal'
    826         'C'
    827         'i8051'
    828         'TreeView'
    829       )
    830       OnChange = ComboBox1Change
    831       Style = csDropDownList
    832       TabOrder = 2
    833       Text = 'Pascal'
    834     end
    835   end
    83618  object Splitter3: TSplitter
    83719    Cursor = crVSplit
    83820    Left = 0
    83921    Height = 5
    840     Top = 320
     22    Top = 480
    84123    Width = 861
    84224    Align = alBottom
    84325    ResizeAnchor = akBottom
    84426  end
    845   object SynPasSyn1: TSynPasSyn
    846     Enabled = False
    847     CompilerMode = pcmDelphi
    848     NestedComments = False
    849     left = 328
    850     top = 32
     27  object DockPanel: TPanel
     28    Left = 0
     29    Height = 454
     30    Top = 26
     31    Width = 861
     32    Align = alClient
     33    BevelOuter = bvNone
     34    TabOrder = 1
     35  end
     36  object ToolBar1: TToolBar
     37    Left = 0
     38    Height = 26
     39    Top = 0
     40    Width = 861
     41    Caption = 'ToolBar1'
     42    TabOrder = 2
     43    object ComboBox1: TComboBox
     44      Left = 1
     45      Height = 21
     46      Top = 2
     47      Width = 100
     48      ItemHeight = 13
     49      TabOrder = 0
     50      Text = 'ComboBox1'
     51    end
     52    object Button1: TButton
     53      Left = 101
     54      Height = 22
     55      Top = 2
     56      Width = 59
     57      Action = ABuild
     58      TabOrder = 1
     59    end
    85160  end
    85261  object MainMenu1: TMainMenu
    … …  
    86978      object MenuItem3: TMenuItem
    87079        Action = AProjectClose
     80      end
     81    end
     82    object MenuItem7: TMenuItem
     83      Caption = 'Run'
     84      object MenuItem8: TMenuItem
     85        Action = ABuild
    87186      end
    87287    end
    … …  
    899114      Caption = 'Close'
    900115    end
     116    object ABuild: TAction
     117      Category = 'Build'
     118      Caption = 'Build'
     119      OnExecute = ButtonCompileClick
     120    end
     121  end
     122  object CoolDockMaster1: TCoolDockMaster
     123    TabsEnabled = True
     124    DefaultTabsPos = hpAuto
     125    DefaultHeaderPos = hpAuto
     126    ShowIcons = False
     127    left = 428
     128    top = 56
     129  end
     130  object CoolDockClient1: TCoolDockClient
     131    Dockable = False
     132    Floatable = False
     133    Master = CoolDockMaster1
     134    Panel = DockPanel
     135    left = 504
     136    top = 56
    901137  end
    902138end

  • branches/Transpascal/Forms/UMainForm.pas

    r60 r61  
    77uses
    88  SysUtils, Variants, Classes, Graphics, Controls, Forms,
    9   Dialogs, StdCtrls, USourceCode, UCompiler, UProducerAsm8051,
     9  Dialogs, StdCtrls, UCompiler, UProducerAsm8051,
    1010  UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
    11   UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList;
     11  UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList, UCoolDocking;
    1212
    1313const
    … …  
    1818
    1919  TMainForm = class(TForm)
     20    ABuild: TAction;
    2021    AProjectNew: TAction;
    2122    AProjectOpen: TAction;
    … …  
    2425    AProjectClose: TAction;
    2526    ActionList1: TActionList;
    26     ButtonCompile: TButton;
     27    Button1: TButton;
    2728    ComboBox1: TComboBox;
    28     ListBoxMessages: TListBox;
     29    CoolDockClient1: TCoolDockClient;
     30    CoolDockMaster1: TCoolDockMaster;
    2931    MainMenu1: TMainMenu;
    3032    MenuItem1: TMenuItem;
    … …  
    3436    MenuItem5: TMenuItem;
    3537    MenuItem6: TMenuItem;
    36     Panel1: TPanel;
    37     Panel2: TPanel;
    38     Panel3: TPanel;
    39     Splitter1: TSplitter;
    40     Splitter2: TSplitter;
     38    MenuItem7: TMenuItem;
     39    MenuItem8: TMenuItem;
     40    DockPanel: TPanel;
    4141    Splitter3: TSplitter;
    42     SynEditSource: TSynEdit;
    43     SynPasSyn1: TSynPasSyn;
    44     TreeViewProject: TTreeView;
     42    ToolBar1: TToolBar;
    4543    procedure ComboBox1Change(Sender: TObject);
    4644    procedure FormShow(Sender: TObject);
    … …  
    5957    procedure UpdateProjectGroup(Node: TTreeNode; Group: TProjectGroup);
    6058    function GetSource(Name: string; Source: TStringList): Boolean;
     59    procedure DockInit;
    6160  public
    6261    Project: TProject;
    … …  
    7271{$R *.lfm}
    7372
     73uses
     74  UMessagesForm, UCodeForm, UProjectManager;
     75
    7476{ TMainForm }
    7577
    … …  
    9597    Compiler.Producer := TProducerTreeView.Create;
    9698    ProducerControl := TTreeView.Create(Self);
    97     ProducerControl.Parent := Panel1;
     99    ProducerControl.Parent := DockPanel;
    98100    ProducerControl.Align := alClient;
    99101//    TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl);
    … …  
    109111  if ComboBox1.ItemIndex = 0 then begin
    110112    ProducerControl := TMemo.Create(Self);
    111     ProducerControl.Parent := Panel1;
     113    ProducerControl.Parent := DockPanel;
    112114    ProducerControl.Align := alClient;
    113115    ProducerControl.Font.Name := 'Courier New';
    … …  
    116118  if ComboBox1.ItemIndex = 1 then begin
    117119    ProducerControl := TMemo.Create(Self);
    118     ProducerControl.Parent := Panel1;
     120    ProducerControl.Parent := DockPanel;
    119121    ProducerControl.Align := alClient;
    120122    ProducerControl.Font.Name := 'Courier New';
    … …  
    123125  if ComboBox1.ItemIndex = 2 then begin
    124126    ProducerControl := TMemo.Create(Self);
    125     ProducerControl.Parent := Panel1;
     127    ProducerControl.Parent := DockPanel;
    126128    ProducerControl.Align := alClient;
    127129    ProducerControl.Font.Name := 'Courier New';
    … …  
    138140  ProjectFile: TProjectFile;
    139141begin
     142  with MessagesForm, CodeForm do
    140143  if ListBoxMessages.ItemIndex <> -1 then
    141144  with TErrorMessage(Compiler.ErrorMessages[ListBoxMessages.ItemIndex]) do begin
    … …  
    163166  I: Integer;
    164167begin
    165   ListBoxMessages.Clear;
    166   for I := 0 to Compiler.ErrorMessages.Count - 1 do
    167   with TErrorMessage(Compiler.ErrorMessages[I]) do
    168     MainForm.ListBoxMessages.Items.Add(FileName + '(' + IntToStr(Position.X) +
    169       ',' + IntToStr(Position.Y) + ') ' + Text);
    170 end;
    171 
    172 procedure TMainForm.TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
    173 var
    174   FileName: string;
    175 begin
    176   if Assigned(Node) then begin
    177     if TProjectNode(Node.Data) is TProjectFile then begin
    178       SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
    179       FileName := Compiler.CompiledFolder + DirectorySeparator +
    180         Compiler.Producer.ClassName + DirectorySeparator + ExtractFileNameOnly(TProjectFile(Node.Data).Name) + Compiler.Producer.FileExtension;
    181       if ProducerControl is TMemo then
    182         if FileExists(FileName) then
    183         TMemo(ProducerControl).Lines.LoadFromFile(FileName) else
    184           TMemo(ProducerControl).Lines.Clear;
    185       //if ProducerControl is TTreeView then
    186       //  TTreeView(ProducerControl).Assign(TProjectFile(Node.Data).ProducedCode);
    187     end;
     168  with MessagesForm do begin
     169    ListBoxMessages.Clear;
     170    for I := 0 to Compiler.ErrorMessages.Count - 1 do
     171    with TErrorMessage(Compiler.ErrorMessages[I]) do
     172      ListBoxMessages.Items.Add(FileName + '(' + IntToStr(Position.X) +
     173        ',' + IntToStr(Position.Y) + ') ' + Text);
    188174  end;
    189175end;
    … …  
    193179  NewNode: TTreeNode;
    194180begin
    195   with TreeViewProject, Items do begin
     181  with ProjectManager, TreeViewProject, Items do begin
    196182    BeginUpdate;
    197183    Clear;
    … …  
    200186    NewNode.Expand(True);
    201187    EndUpdate;
    202   end;
    203   TreeViewProject.TopItem.Items[0].Selected := True;
     188    TreeViewProject.TopItem.Items[0].Selected := True;
     189  end;
    204190end;
    205191
    … …  
    209195  NewNode: TTreeNode;
    210196begin
     197  with ProjectManager do
    211198  for I := 0 to Group.Items.Count - 1 do begin
    212199    NewNode := TreeViewProject.Items.AddChild(Node,
    … …  
    229216end;
    230217
     218procedure TMainForm.DockInit;
     219var
     220  Container1: TCoolDockConjoinForm;
     221begin
     222  ProjectManager.ManualDock(DockPanel, nil, alLeft);
     223  ProjectManager.Show;
     224
     225  Container1 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
     226  Container1.Caption := 'Tools';
     227  Container1.Name := 'Tools';
     228  Container1.ManualDock(DockPanel, nil, alRight);
     229
     230  CodeForm.ManualDock(Container1.Panel, nil, alTop);
     231  CodeForm.Show;
     232  MessagesForm.ManualDock(Container1.Panel, nil, alBottom);
     233  MessagesForm.Show;
     234
     235  ProjectManager.Parent.Parent.Width := 200;
     236  CodeForm.Parent.Parent.Height := MainForm.Height;
     237end;
     238
    231239procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
    232240begin
    … …  
    250258  NewProjectFile: TProjectFile;
    251259begin
     260  DockInit;
     261
    252262  Project.RootDir := '../../Project/';
    253263  Project.Name := 'Project';

  • branches/Transpascal/Transpascal.lpi

    r60 r61  
    4646      </Item4>
    4747    </RequiredPackages>
    48     <Units Count="27">
     48    <Units Count="29">
    4949      <Unit0>
    5050        <Filename Value="Transpascal.lpr"/>
    … …  
    5353        <EditorIndex Value="4"/>
    5454        <WindowIndex Value="0"/>
    55         <TopLine Value="1"/>
    56         <CursorPos X="35" Y="9"/>
    57         <UsageCount Value="164"/>
     55        <TopLine Value="2"/>
     56        <CursorPos X="35" Y="24"/>
     57        <UsageCount Value="165"/>
    5858        <Loaded Value="True"/>
    5959      </Unit0>
    … …  
    6565        <ResourceBaseClass Value="Form"/>
    6666        <UnitName Value="UMainForm"/>
    67         <EditorIndex Value="0"/>
    68         <WindowIndex Value="0"/>
    69         <TopLine Value="1"/>
    70         <CursorPos X="34" Y="9"/>
    71         <UsageCount Value="164"/>
     67        <EditorIndex Value="3"/>
     68        <WindowIndex Value="0"/>
     69        <TopLine Value="175"/>
     70        <CursorPos X="1" Y="176"/>
     71        <UsageCount Value="165"/>
    7272        <Loaded Value="True"/>
    73         <LoadedDesigner Value="True"/>
    7473      </Unit1>
    7574      <Unit2>
    … …  
    7776        <IsPartOfProject Value="True"/>
    7877        <UnitName Value="UTextSource"/>
    79         <EditorIndex Value="2"/>
    8078        <WindowIndex Value="0"/>
    8179        <TopLine Value="1"/>
    8280        <CursorPos X="1" Y="6"/>
    83         <UsageCount Value="164"/>
    84         <Loaded Value="True"/>
     81        <UsageCount Value="165"/>
    8582      </Unit2>
    8683      <Unit3>
    … …  
    211208        <IsPartOfProject Value="True"/>
    212209        <UnitName Value="UProject"/>
    213         <EditorIndex Value="3"/>
    214         <WindowIndex Value="0"/>
    215         <TopLine Value="97"/>
    216         <CursorPos X="1" Y="110"/>
    217         <UsageCount Value="36"/>
    218         <Loaded Value="True"/>
     210        <WindowIndex Value="0"/>
     211        <TopLine Value="1"/>
     212        <CursorPos X="6" Y="1"/>
     213        <UsageCount Value="37"/>
    219214      </Unit19>
    220215      <Unit20>
    … …  
    228223        <Filename Value="Compiler\TranspascalCompiler.pas"/>
    229224        <UnitName Value="TranspascalCompiler"/>
    230         <EditorIndex Value="5"/>
     225        <EditorIndex Value="0"/>
    231226        <WindowIndex Value="0"/>
    232227        <TopLine Value="1"/>
    233228        <CursorPos X="33" Y="1"/>
    234         <UsageCount Value="10"/>
     229        <UsageCount Value="11"/>
    235230        <Loaded Value="True"/>
    236231      </Unit21>
    … …  
    246241        <Filename Value="Compiler\USourceCode.pas"/>
    247242        <UnitName Value="USourceCode"/>
    248         <EditorIndex Value="6"/>
    249243        <WindowIndex Value="0"/>
    250244        <TopLine Value="307"/>
    251245        <CursorPos X="65" Y="308"/>
    252246        <UsageCount Value="10"/>
    253         <Loaded Value="True"/>
    254247      </Unit23>
    255248      <Unit24>
    256249        <Filename Value="Compiler\Analyze\UParser.pas"/>
    257250        <UnitName Value="UParser"/>
    258         <EditorIndex Value="7"/>
    259251        <WindowIndex Value="0"/>
    260252        <TopLine Value="1"/>
    261253        <CursorPos X="1" Y="1"/>
    262254        <UsageCount Value="10"/>
    263         <Loaded Value="True"/>
    264255      </Unit24>
    265256      <Unit25>
    266257        <Filename Value="Compiler\Produce\UProducer.pas"/>
    267258        <UnitName Value="UProducer"/>
    268         <EditorIndex Value="8"/>
    269         <WindowIndex Value="0"/>
    270         <TopLine Value="1"/>
    271         <CursorPos X="35" Y="5"/>
     259        <WindowIndex Value="0"/>
     260        <TopLine Value="1"/>
     261        <CursorPos X="15" Y="4"/>
    272262        <UsageCount Value="10"/>
    273         <Loaded Value="True"/>
    274263      </Unit25>
    275264      <Unit26>
    276         <Filename Value="Forms\UProjecManager.pas"/>
    277         <IsPartOfProject Value="True"/>
    278         <ComponentName Value="Form1"/>
     265        <Filename Value="Forms\UProjectManager.pas"/>
     266        <IsPartOfProject Value="True"/>
     267        <ComponentName Value="ProjectManager"/>
    279268        <ResourceBaseClass Value="Form"/>
    280         <UnitName Value="UProjecManager"/>
    281         <EditorIndex Value="1"/>
    282         <WindowIndex Value="0"/>
    283         <TopLine Value="1"/>
    284         <CursorPos X="1" Y="1"/>
    285         <UsageCount Value="20"/>
     269        <UnitName Value="UProjectManager"/>
     270        <IsVisibleTab Value="True"/>
     271        <EditorIndex Value="2"/>
     272        <WindowIndex Value="0"/>
     273        <TopLine Value="22"/>
     274        <CursorPos X="18" Y="41"/>
     275        <UsageCount Value="21"/>
    286276        <Loaded Value="True"/>
    287277        <LoadedDesigner Value="True"/>
    288278      </Unit26>
     279      <Unit27>
     280        <Filename Value="Forms\UCodeForm.pas"/>
     281        <IsPartOfProject Value="True"/>
     282        <ComponentName Value="CodeForm"/>
     283        <ResourceBaseClass Value="Form"/>
     284        <UnitName Value="UCodeForm"/>
     285        <EditorIndex Value="1"/>
     286        <WindowIndex Value="0"/>
     287        <TopLine Value="7"/>
     288        <CursorPos X="32" Y="16"/>
     289        <UsageCount Value="21"/>
     290        <Loaded Value="True"/>
     291        <LoadedDesigner Value="True"/>
     292      </Unit27>
     293      <Unit28>
     294        <Filename Value="Forms\UMessagesForm.pas"/>
     295        <IsPartOfProject Value="True"/>
     296        <ComponentName Value="MessagesForm"/>
     297        <ResourceBaseClass Value="Form"/>
     298        <UnitName Value="UMessagesForm"/>
     299        <WindowIndex Value="0"/>
     300        <TopLine Value="1"/>
     301        <CursorPos X="1" Y="1"/>
     302        <UsageCount Value="21"/>
     303      </Unit28>
    289304    </Units>
    290     <JumpHistory Count="16" HistoryIndex="15">
     305    <JumpHistory Count="10" HistoryIndex="9">
    291306      <Position1>
    292         <Filename Value="Forms\UMainForm.pas"/>
    293         <Caret Line="82" Column="41" TopLine="71"/>
     307        <Filename Value="Forms\UCodeForm.pas"/>
     308        <Caret Line="16" Column="10" TopLine="1"/>
    294309      </Position1>
    295310      <Position2>
    296         <Filename Value="Forms\UMainForm.pas"/>
    297         <Caret Line="83" Column="41" TopLine="72"/>
     311        <Filename Value="Transpascal.lpr"/>
     312        <Caret Line="9" Column="35" TopLine="1"/>
    298313      </Position2>
    299314      <Position3>
    300         <Filename Value="Forms\UMainForm.pas"/>
    301         <Caret Line="84" Column="41" TopLine="73"/>
     315        <Filename Value="Forms\UProjectManager.pas"/>
     316        <Caret Line="13" Column="9" TopLine="1"/>
    302317      </Position3>
    303318      <Position4>
    304         <Filename Value="Forms\UMainForm.pas"/>
    305         <Caret Line="85" Column="41" TopLine="74"/>
     319        <Filename Value="Transpascal.lpr"/>
     320        <Caret Line="27" Column="1" TopLine="2"/>
    306321      </Position4>
    307322      <Position5>
    308         <Filename Value="Forms\UMainForm.pas"/>
    309         <Caret Line="86" Column="41" TopLine="75"/>
     323        <Filename Value="Forms\UProjectManager.pas"/>
     324        <Caret Line="34" Column="1" TopLine="29"/>
    310325      </Position5>
    311326      <Position6>
    312         <Filename Value="Forms\UMainForm.pas"/>
    313         <Caret Line="87" Column="41" TopLine="76"/>
     327        <Filename Value="Forms\UProjectManager.pas"/>
     328        <Caret Line="31" Column="13" TopLine="24"/>
    314329      </Position6>
    315330      <Position7>
    316         <Filename Value="Forms\UMainForm.pas"/>
    317         <Caret Line="88" Column="41" TopLine="77"/>
     331        <Filename Value="Forms\UProjectManager.pas"/>
     332        <Caret Line="9" Column="11" TopLine="1"/>
    318333      </Position7>
    319334      <Position8>
    320         <Filename Value="Forms\UMainForm.pas"/>
    321         <Caret Line="89" Column="41" TopLine="78"/>
     335        <Filename Value="Forms\UProjectManager.pas"/>
     336        <Caret Line="32" Column="23" TopLine="21"/>
    322337      </Position8>
    323338      <Position9>
    324         <Filename Value="Forms\UMainForm.pas"/>
    325         <Caret Line="90" Column="41" TopLine="79"/>
     339        <Filename Value="Forms\UProjectManager.pas"/>
     340        <Caret Line="43" Column="16" TopLine="30"/>
    326341      </Position9>
    327342      <Position10>
    328         <Filename Value="Forms\UMainForm.pas"/>
    329         <Caret Line="91" Column="41" TopLine="80"/>
     343        <Filename Value="Forms\UProjectManager.pas"/>
     344        <Caret Line="41" Column="19" TopLine="21"/>
    330345      </Position10>
    331       <Position11>
    332         <Filename Value="Forms\UMainForm.pas"/>
    333         <Caret Line="92" Column="41" TopLine="81"/>
    334       </Position11>
    335       <Position12>
    336         <Filename Value="Forms\UMainForm.pas"/>
    337         <Caret Line="93" Column="41" TopLine="82"/>
    338       </Position12>
    339       <Position13>
    340         <Filename Value="Forms\UMainForm.pas"/>
    341         <Caret Line="94" Column="41" TopLine="83"/>
    342       </Position13>
    343       <Position14>
    344         <Filename Value="Forms\UMainForm.pas"/>
    345         <Caret Line="89" Column="88" TopLine="1"/>
    346       </Position14>
    347       <Position15>
    348         <Filename Value="Compiler\TranspascalCompiler.pas"/>
    349         <Caret Line="12" Column="34" TopLine="1"/>
    350       </Position15>
    351       <Position16>
    352         <Filename Value="Compiler\TranspascalCompiler.pas"/>
    353         <Caret Line="10" Column="24" TopLine="1"/>
    354       </Position16>
    355346    </JumpHistory>
    356347  </ProjectOptions>

  • branches/Transpascal/Transpascal.lpr

    r60 r61  
    1010  UMainForm in 'UMainForm.pas' {MainForm},
    1111  UTextSource in 'UTextSource.pas', UProject, TranspascalCompiler,
    12 UProjecManager;
     12UProjectManager, UCodeForm, UMessagesForm;
    1313
    1414{$R *.res}
    … …  
    2121  Application.Initialize;
    2222  Application.CreateForm(TMainForm, MainForm);
    23   Application.CreateForm(TForm1, Form1);
     23  Application.CreateForm(TProjectManager, ProjectManager);
     24  Application.CreateForm(TCodeForm, CodeForm);
     25  Application.CreateForm(TMessagesForm, MessagesForm);
    2426  Application.Run;
    2527end.
Note: See TracChangeset for help on using the changeset viewer.