Changeset 37 for trunk


Ignore:
Timestamp:
Feb 14, 2012, 7:33:51 AM (13 years ago)
Author:
chronos
Message:
  • Added: Form containing list of supported compiler producers. Path to real compiler can be changed.
Location:
trunk
Files:
8 added
18 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Produce/UProducer.pas

    r30 r37  
    1717    TextSource: TStringList;
    1818    IndentationLength: Integer;
    19     Indetation: Integer;
     19    Indentation: Integer;
     20    CompilerPath: string;
    2021    procedure Emit(AText: string);
    2122    procedure EmitLn(AText: string = '');
    … …  
    5657    if Count = 0 then Add('');
    5758    if Strings[Count - 1] = '' then
    58       Strings[Count - 1] := Strings[Count - 1] + DupeString(' ', IndentationLength * Indetation);
     59      Strings[Count - 1] := Strings[Count - 1] + DupeString(' ', IndentationLength * Indentation);
    5960    Strings[Count - 1] := Strings[Count - 1] + AText;
    6061  end;

  • trunk/Compiler/Produce/UProducerAsm8051.pas

    r12 r37  
    109109  AssemblyCode := TObjectList.Create;
    110110  Name := 'ASM 8051';
     111  {$IFDEF Windows}
     112  CompilerPath := 'c:\ASM8051\ASM51.EXE';
     113  {$ENDIF}
    111114end;
    112115

  • trunk/Compiler/Produce/UProducerDynamicC.pas

    r17 r37  
    5050begin
    5151  Name := 'Dynamic C';
     52  {$IFDEF Windows}
     53  CompilerPath := 'c:\Program Files\Dynamic C Rabbit 9.62\Dcrab_9.62.exe';
     54  {$ENDIF}
    5255end;
    5356
    … …  
    142145  I: Integer;
    143146begin
    144   Indetation := 0;
     147  Indentation := 0;
    145148  with ProgramBlock do
    146149  for I := 0 to Modules.Count - 1 do
    … …  
    180183begin
    181184  EmitLn('{');
    182   Inc(Indetation);
     185  Inc(Indentation);
    183186
    184187  // Variables
    … …  
    191194    GenerateCommand(TCommand(BeginEnd.Commands[I]));
    192195
    193   Dec(Indetation);
     196  Dec(Indentation);
    194197  EmitLn('}');
    195198end;
    … …  
    320323    EmitLn('struct');
    321324    EmitLn('{');
    322     Inc(Indetation);
     325    Inc(Indentation);
    323326    GenerateVariableList(TTypeRecord(AType).CommonBlock.Variables);
    324     Dec(Indetation);
     327    Dec(Indentation);
    325328    EmitLn('} ' + TranslateType(AType.Name) + ';');
    326329    EmitLn;
    … …  
    363366begin
    364367  if Types.Count > 0 then begin
    365     Inc(Indetation);
     368    Inc(Indentation);
    366369    for I := 0 to Types.Count - 1 do
    367370    with TType(Types[I]) do
    … …  
    371374      EmitLn(';');
    372375    end;
    373     Dec(Indetation);
     376    Dec(Indentation);
    374377    EmitLn('');
    375378  end;

  • trunk/Compiler/Produce/UProducerGCCC.pas

    r12 r37  
    5757  IndentationLength := 2;
    5858  Name := 'GCC C';
     59  {$IFDEF Windows}
     60  CompilerPath := 'c:\Program Files\MinGW\bin\gcc.exe -o %1:s';
     61  {$ENDIF}
     62  {$IFDEF Linux}
     63  CompilerPath := '/usr/bin/gcc';
     64  {$ENDIF}
    5965end;
    6066

  • trunk/Compiler/Produce/UProducerPascal.pas

    r26 r37  
    5656  inherited;
    5757  Name := 'Delphi';
     58  {$IFDEF Windows}
     59  CompilerPath := 'c:\Program Files\Embarcadero\RAD Studio\9.0\bin\DCC32.EXE';
     60  {$ENDIF}
    5861end;
    5962
    … …  
    6972begin
    7073  EmitLn('uses');
    71   Inc(Indetation);
     74  Inc(Indentation);
    7275  for I := 0 to UsedModules.Count - 1 do begin
    7376    if Assigned(TUsedModule(UsedModules[I]).Module) then
    … …  
    8386  end;
    8487  EmitLn(';');
    85   Dec(Indetation);
     88  Dec(Indentation);
    8689  EmitLn;
    8790end;
    … …  
    134137  if AType is TTypeRecord then begin
    135138    EmitLn('record');
    136     Inc(Indetation);
     139    Inc(Indentation);
    137140    with TTypeRecord(AType).CommonBlock do
    138141    for I := 0 to Variables.Count - 1 do begin
    … …  
    141144      EmitLn(';');
    142145    end;
    143     Dec(Indetation);
     146    Dec(Indentation);
    144147    Emit('end');
    145148  end else
    … …  
    174177  if Types.Count > 0 then begin
    175178    EmitLn('type');
    176     Inc(Indetation);
     179    Inc(Indentation);
    177180    for I := 0 to Types.Count - 1 do
    178181    with TType(Types[I]) do
    … …  
    182185      EmitLn(';');
    183186    end;
    184     Dec(Indetation);
     187    Dec(Indentation);
    185188    EmitLn;
    186189  end;
    … …  
    257260  if Constants.Count > 0 then begin
    258261    EmitLn('const');
    259     Inc(Indetation);
     262    Inc(Indentation);
    260263    for I := 0 to Constants.Count - 1 do
    261264      GenerateConstant(TConstant(Constants[I]));
    262     Dec(Indetation);
     265    Dec(Indentation);
    263266    Emit('');
    264267  end;
    … …  
    279282begin
    280283  EmitLn('begin');
    281   Inc(Indetation);
     284  Inc(Indentation);
    282285  // Commands
    283286  for I := 0 to BeginEnd.Commands.Count - 1 do begin
    … …  
    286289  end;
    287290
    288   Dec(Indetation);
     291  Dec(Indentation);
    289292  Emit('end');
    290293end;
    … …  
    295298begin
    296299  EmitLn('var');
    297   Inc(Indetation);
     300  Inc(Indentation);
    298301  for I := 0 to Variables.Count - 1 do
    299302    GenerateVariable(TVariable(Variables[I]));
    300   Dec(Indetation);
     303  Dec(Indentation);
    301304  EmitLn;
    302305end;
    … …  
    404407  Section: TCommonBlockSection;
    405408begin
    406   Inc(Indetation);
     409  Inc(Indentation);
    407410  with CommonBlock do begin
    408411    for I := 0 to Order.Count - 1 do begin
    … …  
    410413        if Section <> cbsType then begin
    411414          EmitLn;
    412           Dec(Indetation);
     415          Dec(Indentation);
    413416          EmitLn('type');
    414           Inc(Indetation);
     417          Inc(Indentation);
    415418        end;
    416419        Emit(TType(Order[I]).Name + ' = ');
    … …  
    422425        if Section <> cbsVariable then begin
    423426          EmitLn;
    424           Dec(Indetation);
     427          Dec(Indentation);
    425428          EmitLn('var');
    426           Inc(Indetation);
     429          Inc(Indentation);
    427430        end;
    428431        GenerateVariable(TVariable(Order[I]));
    … …  
    432435        if Section <> cbsConstant then begin
    433436          EmitLn;
    434           Dec(Indetation);
     437          Dec(Indentation);
    435438          EmitLn('const');
    436           Inc(Indetation);
     439          Inc(Indentation);
    437440        end;
    438441        GenerateConstant(TConstant(Order[I]));
    … …  
    444447    end;
    445448  end;
    446   Dec(Indetation);
     449  Dec(Indentation);
    447450end;
    448451
    … …  
    454457  Section: TCommonBlockSection;
    455458begin
    456   Inc(Indetation);
     459  Inc(Indentation);
    457460  with CommonBlock do begin
    458461    for I := 0 to Order.Count - 1 do begin
    … …  
    460463        if Section <> cbsType then begin
    461464          EmitLn;
    462           Dec(Indetation);
     465          Dec(Indentation);
    463466          EmitLn('type');
    464           Inc(Indetation);
     467          Inc(Indentation);
    465468        end;
    466469        Emit(TType(Order[I]).Name + ' = ');
    … …  
    472475        if Section <> cbsVariable then begin
    473476          EmitLn;
    474           Dec(Indetation);
     477          Dec(Indentation);
    475478          EmitLn('var');
    476           Inc(Indetation);
     479          Inc(Indentation);
    477480        end;
    478481        GenerateVariable(TVariable(Order[I]));
    … …  
    482485        if Section <> cbsConstant then begin
    483486          EmitLn;
    484           Dec(Indetation);
     487          Dec(Indentation);
    485488          EmitLn('const');
    486           Inc(Indetation);
     489          Inc(Indentation);
    487490        end;
    488491        GenerateConstant(TConstant(Order[I]));
    … …  
    495498    GenerateBeginEnd(Code);
    496499  end;
    497   Dec(Indetation);
     500  Dec(Indentation);
    498501end;
    499502

  • trunk/IDE/Forms/UCodeForm.lfm

    r34 r37  
    533533        Command = emcStartDragMove
    534534      end>
    535     Lines.Strings = (
    536       'SynEditSource'
    537     )
    538535    VisibleSpecialChars = [vscSpace, vscTabAtLast]
    539536    BracketHighlightStyle = sbhsBoth

  • trunk/IDE/Forms/UCodeForm.pas

    r36 r37  
    4040procedure TCodeForm.SynEditSourceChange(Sender: TObject);
    4141begin
    42   ProjectFile.Modified := True;
     42  if MainForm.Project.Active then
     43    ProjectFile.Modified := True;
    4344end;
    4445
    … …  
    6061procedure TCodeForm.UpdateInterface;
    6162begin
    62   SynPasSyn1.Enabled := MainForm.Project.Active;
     63  SynEditSource.Enabled := MainForm.Project.Active;
     64  if not MainForm.Project.Active then SynEditSource.ClearAll;
    6365end;
    6466

  • trunk/IDE/Forms/UMainForm.lfm

    r36 r37  
    144144      object MenuItem5: TMenuItem
    145145        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        }
    146182      end
    147183      object MenuItem2: TMenuItem
    148184        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        }
    149221      end
    150222      object MenuItemOpenRecent: TMenuItem
    … …  
    153225      object MenuItem4: TMenuItem
    154226        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        }
    155263      end
    156264      object MenuItem6: TMenuItem
    157265        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        }
    158302      end
    159303      object MenuItem3: TMenuItem
    160304        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        }
    161341      end
    162342      object MenuItem12: TMenuItem
    … …  
    165345      object MenuItem13: TMenuItem
    166346        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        }
    167383      end
    168384    end
    … …  
    171387      object MenuItem8: TMenuItem
    172388        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        }
    173425      end
    174426      object MenuItem14: TMenuItem
    175427        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        }
    176464      end
    177465      object MenuItemAnalyzer: TMenuItem
    … …  
    186474      object MenuItem16: TMenuItem
    187475        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        }
    188512      end
    189513      object MenuItem22: TMenuItem
    … …  
    207531      object MenuItem17: TMenuItem
    208532        Action = AViewObjectInspector
     533      end
     534      object MenuItem24: TMenuItem
     535        Action = AViewProducers
    209536      end
    210537    end
    … …  
    216543      object MenuItem11: TMenuItem
    217544        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        }
    218581      end
    219582    end
    … …  
    317680      Caption = 'Compiled source'
    318681      OnExecute = AViewCompiledSoruceExecute
     682    end
     683    object AViewProducers: TAction
     684      Category = 'View'
     685      Caption = 'Producers'
     686      OnExecute = AViewProducersExecute
    319687    end
    320688  end
    … …  
    433801      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
    434802      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
    458806      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
    465833      0000000000000000000000000000000000000000000000000000000000000000
    466834      0000000000000000000000000000000000000000000000000000000000000000

  • trunk/IDE/Forms/UMainForm.lrt

    r35 r37  
    3434TMAINFORM.AVIEWCODETREE.CAPTION=Code tree
    3535TMAINFORM.AVIEWCOMPILEDSORUCE.CAPTION=Compiled source
     36TMAINFORM.AVIEWPRODUCERS.CAPTION=Producers

  • trunk/IDE/Forms/UMainForm.pas

    r36 r37  
    1717
    1818type
     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
    1927  { TMainForm }
    2028
    2129  TMainForm = class(TForm)
    2230    ABuild: TAction;
     31    AViewProducers: TAction;
    2332    AViewCompiledSoruce: TAction;
    2433    AViewCodeTree: TAction;
    … …  
    5867    MenuItem22: TMenuItem;
    5968    MenuItem23: TMenuItem;
     69    MenuItem24: TMenuItem;
    6070    MenuItemAnalyzer: TMenuItem;
    6171    MenuItemProducer: TMenuItem;
    … …  
    102112    procedure AViewMessagesExecute(Sender: TObject);
    103113    procedure AViewOptionsExecute(Sender: TObject);
     114    procedure AViewProducersExecute(Sender: TObject);
    104115    procedure AViewProjectExecute(Sender: TObject);
    105116    procedure AViewSourceEditorExecute(Sender: TObject);
    … …  
    127138    LogParsing: Boolean;
    128139    Project: TProject;
    129     Compiler: TCompiler;
     140    Compiler: TCustomCompiler;
    130141    function GetSource(Name: string; var SourceCode: string): Boolean;
    131142    procedure UpdateInterface;
    … …  
    141152
    142153uses
    143   UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions;
     154  UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions,
     155  UCompilersForm;
    144156
    145157resourcestring
    146158  SNewProject = 'New project';
     159
     160{ TCustomCompiler }
     161
     162procedure TCustomCompiler.LoadFromRegistry(Root: HKEY; Key: string);
     163var
     164  I: Integer;
     165begin
     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;
     177end;
     178
     179procedure TCustomCompiler.SaveToRegistry(Root: HKEY; Key: string);
     180var
     181  I: Integer;
     182begin
     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;
     194end;
    147195
    148196{ TMainForm }
    … …  
    189237begin
    190238  FormOptions.ShowModal;
     239end;
     240
     241procedure TMainForm.AViewProducersExecute(Sender: TObject);
     242begin
     243  FormProducers.Show;
    191244end;
    192245
    … …  
    234287  AProgramPause.Enabled := Project.Active and (BrainFuckInterpreter.State = rsRunning);
    235288  AProgramStop.Enabled := Project.Active and (BrainFuckInterpreter.State <> rsStopped);*)
     289  ABuild.Enabled := Project.Active;
    236290  UpdateMenu;
    237291  CodeForm.UpdateInterface;
    … …  
    259313  CompiledForm.Align := alClient;
    260314  CompiledForm.Show;
     315  PageControlRight.TabIndex := 0;
     316  PageControlBottom.TabIndex := 0;
    261317
    262318  (*ProjectManager.ManualDock(DockPanel, nil, alLeft);
    … …  
    311367      Free;
    312368    end;
    313   LastOpenedFiles.LoadFromRegistry(RegistryRootKey, Key);
     369  LastOpenedFiles.LoadFromRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
     370  Compiler.LoadFromRegistry(RegistryRootKey, Key + '\Compiler');
    314371end;
    315372
    … …  
    330387      Free;
    331388    end;
    332   LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key);
     389  LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
    333390  LastOpenedFiles.ReloadMenu;
     391  Compiler.SaveToRegistry(RegistryRootKey, Key + '\Compiler');
    334392end;
    335393
    336394procedure TMainForm.ProjectOpen(FileName: string);
    337395begin
     396  Project.Active := True;
    338397  Project.LoadFromFile(FileName);
    339398  LastOpenedFiles.AddItem(FileName);
    340399  LastOpenedFiles.ReloadMenu;
    341   ProjectManager.UpdateProjectTree;
    342400  UpdateInterface;
    343401end;
    … …  
    393451begin
    394452  DeleteFile(DebugLog1.FileName);
    395   Compiler := TCompiler.Create;
     453  Compiler := TCustomCompiler.Create;
    396454  Project := TProject.Create;
    397455  LastOpenedFiles := TLastOpenedList.Create;

  • trunk/IDE/Forms/UProjectManager.pas

    r36 r37  
    7474    BeginUpdate;
    7575    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;
    7981    EndUpdate;
    8082    if Assigned(TreeViewProject.TopItem) and

  • trunk/IDE/Languages/Transpascal.cs.po

    r35 r37  
    2626msgstr "Přeložený zdroj"
    2727
    28 #: tformoptions.buttoncancel.caption
     28#: tcompilersettingsform.button1.caption
     29msgid "Browse"
     30msgstr "Procházet..."
     31
     32#: tcompilersettingsform.buttoncancel.caption
     33msgctxt "tcompilersettingsform.buttoncancel.caption"
    2934msgid "Cancel"
    3035msgstr "Zrušit"
    3136
     37#: tcompilersettingsform.buttonok.caption
     38msgctxt "tcompilersettingsform.buttonok.caption"
     39msgid "Ok"
     40msgstr "Ok"
     41
     42#: tcompilersettingsform.caption
     43msgctxt "tcompilersettingsform.caption"
     44msgid "Compiler options"
     45msgstr "Volbny překladače"
     46
     47#: tcompilersettingsform.label1.caption
     48msgid "Compiler path:"
     49msgstr "Cesta překladače:"
     50
     51#: tformcompilers.caption
     52msgid "Compilers"
     53msgstr "Překladače"
     54
     55#: tformcompilers.listview1.columns[0].caption
     56msgctxt "tformcompilers.listview1.columns[0].caption"
     57msgid "Name"
     58msgstr "Jméno"
     59
     60#: tformcompilers.listview1.columns[1].caption
     61msgctxt "tformcompilers.listview1.columns[1].caption"
     62msgid "Execution path"
     63msgstr "Cesta vykonání"
     64
     65#: tformoptions.buttoncancel.caption
     66msgctxt "tformoptions.buttoncancel.caption"
     67msgid "Cancel"
     68msgstr "Zrušit"
     69
    3270#: tformoptions.buttonok.caption
     71msgctxt "tformoptions.buttonok.caption"
    3372msgid "Ok"
    3473msgstr "Ok"
    … …  
    4786msgstr "Jazyk rozhraní:"
    4887
     88#: tformproducers.caption
     89msgctxt "tformproducers.caption"
     90msgid "Producers"
     91msgstr "Tvůrci"
     92
     93#: tformproducers.listview1.columns[0].caption
     94msgctxt "tformproducers.listview1.columns[0].caption"
     95msgid "Name"
     96msgstr "Jméno"
     97
     98#: tformproducers.listview1.columns[1].caption
     99msgctxt "tformproducers.listview1.columns[1].caption"
     100msgid "Execution path"
     101msgstr "Cesta vykonání"
     102
    49103#: tmainform.aabout.caption
    50104msgid "About..."
    … …  
    128182msgstr "Volby"
    129183
     184#: tmainform.aviewproducers.caption
     185msgctxt "tmainform.aviewproducers.caption"
     186msgid "Producers"
     187msgstr "Tvůrci"
     188
    130189#: tmainform.aviewproject.caption
    131190msgctxt "tmainform.aviewproject.caption"
    … …  
    242301msgstr "Verze"
    243302
     303#: ucompilersform.scompileroptions
     304msgctxt "ucompilersform.scompileroptions"
     305msgid "Compiler options"
     306msgstr "Volby překladače"
     307
     308#: ucompilersform.scompilerpath
     309msgid "Compiler path"
     310msgstr "Cesta překladače"
     311
    244312#: umainform.snewproject
    245313msgid "New project"

  • trunk/IDE/Languages/Transpascal.po

    r35 r37  
    1818msgstr ""
    1919
     20#: tcompilersettingsform.button1.caption
     21msgid "Browse"
     22msgstr ""
     23
     24#: tcompilersettingsform.buttoncancel.caption
     25msgctxt "TCOMPILERSETTINGSFORM.BUTTONCANCEL.CAPTION"
     26msgid "Cancel"
     27msgstr ""
     28
     29#: tcompilersettingsform.buttonok.caption
     30msgctxt "TCOMPILERSETTINGSFORM.BUTTONOK.CAPTION"
     31msgid "Ok"
     32msgstr ""
     33
     34#: tcompilersettingsform.caption
     35msgctxt "tcompilersettingsform.caption"
     36msgid "Compiler options"
     37msgstr ""
     38
     39#: tcompilersettingsform.label1.caption
     40msgid "Compiler path:"
     41msgstr ""
     42
     43#: tformcompilers.caption
     44msgid "Compilers"
     45msgstr ""
     46
     47#: tformcompilers.listview1.columns[0].caption
     48msgctxt "tformcompilers.listview1.columns[0].caption"
     49msgid "Name"
     50msgstr ""
     51
     52#: tformcompilers.listview1.columns[1].caption
     53msgctxt "tformcompilers.listview1.columns[1].caption"
     54msgid "Execution path"
     55msgstr ""
     56
    2057#: tformoptions.buttoncancel.caption
     58msgctxt "tformoptions.buttoncancel.caption"
    2159msgid "Cancel"
    2260msgstr ""
    2361
    2462#: tformoptions.buttonok.caption
     63msgctxt "tformoptions.buttonok.caption"
    2564msgid "Ok"
    2665msgstr ""
    … …  
    3978msgstr ""
    4079
     80#: tformproducers.caption
     81msgctxt "tformproducers.caption"
     82msgid "Producers"
     83msgstr ""
     84
     85#: tformproducers.listview1.columns[0].caption
     86msgctxt "TFORMPRODUCERS.LISTVIEW1.COLUMNS[0].CAPTION"
     87msgid "Name"
     88msgstr ""
     89
     90#: tformproducers.listview1.columns[1].caption
     91msgctxt "TFORMPRODUCERS.LISTVIEW1.COLUMNS[1].CAPTION"
     92msgid "Execution path"
     93msgstr ""
     94
    4195#: tmainform.aabout.caption
    4296msgid "About..."
    … …  
    120174msgstr ""
    121175
     176#: tmainform.aviewproducers.caption
     177msgctxt "TMAINFORM.AVIEWPRODUCERS.CAPTION"
     178msgid "Producers"
     179msgstr ""
     180
    122181#: tmainform.aviewproject.caption
    123182msgctxt "tmainform.aviewproject.caption"
    … …  
    234293msgstr ""
    235294
     295#: ucompilersform.scompileroptions
     296msgctxt "ucompilersform.scompileroptions"
     297msgid "Compiler options"
     298msgstr ""
     299
     300#: ucompilersform.scompilerpath
     301msgid "Compiler path"
     302msgstr ""
     303
    236304#: umainform.snewproject
    237305msgid "New project"

  • trunk/IDE/Transpascal.lpi

    r36 r37  
    108108      </Item8>
    109109    </RequiredPackages>
    110     <Units Count="15">
     110    <Units Count="17">
    111111      <Unit0>
    112112        <Filename Value="Transpascal.lpr"/>
    … …  
    203203        <UnitName Value="UFormOptions"/>
    204204      </Unit14>
     205      <Unit15>
     206        <Filename Value="Forms\UCompilersForm.pas"/>
     207        <IsPartOfProject Value="True"/>
     208        <ComponentName Value="FormProducers"/>
     209        <HasResources Value="True"/>
     210        <ResourceBaseClass Value="Form"/>
     211        <UnitName Value="UCompilersForm"/>
     212      </Unit15>
     213      <Unit16>
     214        <Filename Value="Forms\UCompilerSettingsForm.pas"/>
     215        <IsPartOfProject Value="True"/>
     216        <ComponentName Value="CompilerSettingsForm"/>
     217        <ResourceBaseClass Value="Form"/>
     218        <UnitName Value="UCompilerSettingsForm"/>
     219      </Unit16>
    205220    </Units>
    206221  </ProjectOptions>

  • trunk/IDE/Transpascal.lpr

    r36 r37  
    1212  UDebugLog, TranspascalCompiler, UProjectManager, UCodeForm, UMessagesForm,
    1313  UCompiledForm, UCodeTreeForm, TemplateGenerics, Common, CoolTranslator,
    14   UAboutForm, UFormOptions;
     14  UAboutForm, UFormOptions, UCompilersForm, UCompilerSettingsForm;
    1515
    1616{$R *.res}
    … …  
    3838  Application.CreateForm(TAboutForm, AboutForm);
    3939  Application.CreateForm(TFormOptions, FormOptions);
     40  Application.CreateForm(TCompilerSettingsForm, CompilerSettingsForm);
     41  Application.CreateForm(TFormProducers, FormProducers);
    4042  Application.Run;
    4143end.

  • trunk/IDE/UApplicationInfo.pas

    r34 r37  
    5555  Name := 'Transpascal IDE';
    5656  Identification := 1;
    57   ReleaseDate := EncodeDate(2012, 2, 13);
     57  ReleaseDate := EncodeDate(2012, 2, 14);
    5858  MajorVersion := 0;
    5959  MinorVersion := 1;
    … …  
    6161  VersionSufix := 'alfa';
    6262  CompanyName := 'Chronosoft';
    63   CompanyHomepage := 'http://svn.zdechov.net/trac/LazFuck';
    64   HomePage := 'http://svn.zdechov.net/trac/LazFuck';
     63  CompanyHomepage := 'http://svn.zdechov.net/trac/Transpascal';
     64  HomePage := 'http://svn.zdechov.net/trac/Transpascal';
    6565  AuthorsName := 'Chronos';
    6666  EmailContact := 'robie@centrum.cz';

  • trunk/IDE/UProject.pas

    r36 r37  
    250250  if FActive = AValue then Exit;
    251251  FActive := AValue;
    252   if FActive then Clear;
     252  if not FActive then Clear;
    253253end;
    254254
Note: See TracChangeset for help on using the changeset viewer.