Changeset 39 for trunk/IDE


Ignore:
Timestamp:
Feb 25, 2012, 7:41:42 PM (13 years ago)
Author:
chronos
Message:
  • Modified: Reorganized docked forms. Target code is now accessible through main PageControl tab.
  • Added: Store right and bottom panels size.
Location:
trunk/IDE
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE/Forms/UCompiledForm.lfm

    r34 r39  
    532532        Command = emcStartDragMove
    533533      end>
    534     Lines.Strings = (
    535       'SynEdit1'
    536     )
    537534    VisibleSpecialChars = [vscSpace, vscTabAtLast]
     535    ReadOnly = True
    538536    BracketHighlightStyle = sbhsBoth
     537    BracketMatchColor.Background = clNone
     538    BracketMatchColor.Foreground = clNone
     539    BracketMatchColor.Style = [fsBold]
     540    FoldedCodeColor.Background = clNone
     541    FoldedCodeColor.Foreground = clGray
     542    FoldedCodeColor.FrameColor = clGray
     543    MouseLinkColor.Background = clNone
     544    MouseLinkColor.Foreground = clBlue
     545    LineHighlightColor.Background = clNone
     546    LineHighlightColor.Foreground = clNone
    539547    inline SynLeftGutterPartList1: TSynGutterPartList
    540548      object SynGutterMarks1: TSynGutterMarks

  • trunk/IDE/Forms/UMainForm.lfm

    r38 r39  
    2525    ResizeAnchor = akBottom
    2626  end
    27   object DockPanel: TPanel
    28     Left = 0
    29     Height = 339
    30     Top = 26
    31     Width = 490
    32     Align = alClient
    33     BevelOuter = bvNone
    34     TabOrder = 1
    35   end
    3627  object ToolBar1: TToolBar
    3728    Left = 0
    … …  
    4233    ParentShowHint = False
    4334    ShowHint = True
    44     TabOrder = 2
     35    TabOrder = 1
    4536    object ToolButton1: TToolButton
    4637      Left = 1
    … …  
    9889    Top = 26
    9990    Width = 200
    100     ActivePage = TabSheet2
     91    ActivePage = TabSheetProject
    10192    Align = alRight
    102     TabIndex = 1
    103     TabOrder = 4
     93    TabIndex = 0
     94    TabOrder = 3
    10495    TabPosition = tpRight
    105     object TabSheet1: TTabSheet
     96    object TabSheetProject: TTabSheet
    10697      Caption = 'Project'
    10798    end
    108     object TabSheet2: TTabSheet
     99    object TabSheetCodeTree: TTabSheet
    109100      Caption = 'Code Tree'
     101    end
     102    object TabSheetCompiledProject: TTabSheet
     103      Caption = 'Target project'
    110104    end
    111105  end
    … …  
    115109    Top = 370
    116110    Width = 695
    117     ActivePage = TabSheet4
     111    ActivePage = TabSheetMessages
    118112    Align = alBottom
    119     TabIndex = 1
    120     TabOrder = 5
     113    TabIndex = 0
     114    TabOrder = 4
    121115    TabPosition = tpBottom
    122     object TabSheet3: TTabSheet
     116    object TabSheetMessages: TTabSheet
    123117      Caption = 'Messages'
    124118    end
    125     object TabSheet4: TTabSheet
    126       Caption = 'Compiled source'
     119    object TabSheetBreakpoints: TTabSheet
     120      Caption = 'Breakpoints'
    127121    end
    128122  end
    … …  
    135129    Align = alBottom
    136130    ResizeAnchor = akBottom
     131  end
     132  object PageControlMain: TPageControl
     133    Left = 0
     134    Height = 339
     135    Top = 26
     136    Width = 490
     137    ActivePage = TabSheetSource
     138    Align = alClient
     139    TabIndex = 0
     140    TabOrder = 6
     141    object TabSheetSource: TTabSheet
     142      Caption = 'Source code'
     143    end
     144    object TabSheetTarget: TTabSheet
     145      Caption = 'Target code'
     146    end
    137147  end
    138148  object MainMenu1: TMainMenu

  • trunk/IDE/Forms/UMainForm.lrt

    r38 r39  
    11TMAINFORM.CAPTION=Transpascal IDE
    2 TMAINFORM.TABSHEET1.CAPTION=Project
    3 TMAINFORM.TABSHEET2.CAPTION=Code Tree
    4 TMAINFORM.TABSHEET3.CAPTION=Messages
    5 TMAINFORM.TABSHEET4.CAPTION=Compiled source
     2TMAINFORM.TABSHEETPROJECT.CAPTION=Project
     3TMAINFORM.TABSHEETCODETREE.CAPTION=Code Tree
     4TMAINFORM.TABSHEETCOMPILEDPROJECT.CAPTION=Target project
     5TMAINFORM.TABSHEETMESSAGES.CAPTION=Messages
     6TMAINFORM.TABSHEETBREAKPOINTS.CAPTION=Breakpoints
     7TMAINFORM.TABSHEETSOURCE.CAPTION=Source code
     8TMAINFORM.TABSHEETTARGET.CAPTION=Target code
    69TMAINFORM.MENUITEM1.CAPTION=Project
    710TMAINFORM.MENUITEMOPENRECENT.CAPTION=Open recent

  • trunk/IDE/Forms/UMainForm.pas

    r38 r39  
    7676    MenuItem7: TMenuItem;
    7777    MenuItem8: TMenuItem;
    78     DockPanel: TPanel;
    7978    MenuItem9: TMenuItem;
    8079    MenuItemOpenRecent: TMenuItem;
    8180    OpenDialog1: TOpenDialog;
     81    PageControlMain: TPageControl;
    8282    PageControlRight: TPageControl;
    8383    PageControlBottom: TPageControl;
    … …  
    8686    Splitter2: TSplitter;
    8787    Splitter3: TSplitter;
    88     TabSheet1: TTabSheet;
    89     TabSheet2: TTabSheet;
    90     TabSheet3: TTabSheet;
    91     TabSheet4: TTabSheet;
     88    TabSheetProject: TTabSheet;
     89    TabSheetCodeTree: TTabSheet;
     90    TabSheetMessages: TTabSheet;
     91    TabSheetBreakpoints: TTabSheet;
     92    TabSheetCompiledProject: TTabSheet;
     93    TabSheetSource: TTabSheet;
     94    TabSheetTarget: TTabSheet;
    9295    ToolBar1: TToolBar;
    9396    ToolButton1: TToolButton;
    … …  
    171174      with TProducer(Producers[I]) do begin
    172175        OpenKey(Key + '\Producers\' + Name, True);
    173         CompilerPAth := ReadStringWithDefault('CompilerPath', CompilerPath);
     176        if ValueExists('CompilerPath') then
     177          CompilerPath := ReadStringWithDefault('CompilerPath', CompilerPath);
    174178      end;
    175179    finally
    … …  
    188192      with TProducer(Producers[I]) do begin
    189193        OpenKey(Key + '\Producers\' + Name, True);
    190         WriteString('CompilerPath', CompilerPath);
     194        if CompilerPath <> '' then WriteString('CompilerPath', CompilerPath)
     195          else DeleteValue('CompilerPath');
    191196      end;
    192197    finally
    … …  
    300305  Container2: TCDConjoinForm;
    301306begin
    302   CodeForm.ManualDock(DockPanel, nil, alClient);
     307  CodeForm.ManualDock(TabSheetSource, nil, alClient);
    303308  CodeForm.Align := alClient;
    304309  CodeForm.Show;
    305   MessagesForm.ManualDock(TabSheet3, nil, alClient);
     310  MessagesForm.ManualDock(TabSheetMessages, nil, alClient);
    306311  MessagesForm.Align := alClient;
    307312  MessagesForm.Show;
    308   ProjectManager.ManualDock(TabSheet1, nil, alClient);
     313  ProjectManager.ManualDock(TabSheetProject, nil, alClient);
    309314  ProjectManager.Align := alClient;
    310315  ProjectManager.Show;
    311   CodeTreeForm.ManualDock(TabSheet2, nil, alClient);
     316  CodeTreeForm.ManualDock(TabSheetCodeTree, nil, alClient);
    312317  CodeTreeForm.Align := alClient;
    313318  CodeTreeForm.Show;
    314   CompiledForm.ManualDock(TabSheet4, nil, alClient);
     319  CompiledForm.ManualDock(TabSheetTarget, nil, alClient);
    315320  CompiledForm.Align := alClient;
    316321  CompiledForm.Show;
    317322  PageControlRight.TabIndex := 0;
    318323  PageControlBottom.TabIndex := 0;
     324  PageControlMain.TabIndex := 0;
    319325
    320326  (*ProjectManager.ManualDock(DockPanel, nil, alLeft);
    … …  
    366372        CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
    367373        else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
     374      PageControlRight.Width := ReadIntegerWithDefault('RightPanelWidth', 120);
     375      PageControlBottom.Height := ReadIntegerWithDefault('BottomPanelHeight', 100);
    368376    finally
    369377      Free;
    … …  
    386394        WriteString('LanguageCode', CoolTranslator1.Language.Code)
    387395        else DeleteValue('LanguageCode');
     396      WriteInteger('RightPanelWidth', PageControlRight.Width);
     397      WriteInteger('BottomPanelHeight', PageControlBottom.Height);
    388398    finally
    389399      Free;

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

    r37 r39  
    1919
    2020#: tcodeform.caption
     21msgctxt "tcodeform.caption"
    2122msgid "Source code"
    2223msgstr "Zdrojový kód"
    … …  
    240241msgstr "Tvůrce"
    241242
    242 #: tmainform.tabsheet1.caption
    243 msgctxt "tmainform.tabsheet1.caption"
     243#: tmainform.tabsheetbreakpoints.caption
     244msgid "Breakpoints"
     245msgstr ""
     246
     247#: tmainform.tabsheetcodetree.caption
     248msgctxt "tmainform.tabsheetcodetree.caption"
     249msgid "Code Tree"
     250msgstr "Strom kódu"
     251
     252#: tmainform.tabsheetcompiledproject.caption
     253msgid "Target project"
     254msgstr ""
     255
     256#: tmainform.tabsheetmessages.caption
     257msgctxt "tmainform.tabsheetmessages.caption"
     258msgid "Messages"
     259msgstr "Zprávy"
     260
     261#: tmainform.tabsheetproject.caption
     262msgctxt "tmainform.tabsheetproject.caption"
    244263msgid "Project"
    245264msgstr "Projekt"
    246265
    247 #: tmainform.tabsheet2.caption
    248 msgid "Code Tree"
    249 msgstr "Strom kódu"
    250 
    251 #: tmainform.tabsheet3.caption
    252 msgctxt "tmainform.tabsheet3.caption"
    253 msgid "Messages"
    254 msgstr "Zprávy"
    255 
    256 #: tmainform.tabsheet4.caption
    257 msgctxt "tmainform.tabsheet4.caption"
    258 msgid "Compiled source"
    259 msgstr "Přeložený zdroj"
     266#: tmainform.tabsheetsource.caption
     267msgctxt "tmainform.tabsheetsource.caption"
     268msgid "Source code"
     269msgstr "Zdrojový kód"
     270
     271#: tmainform.tabsheettarget.caption
     272msgid "Target code"
     273msgstr ""
    260274
    261275#: tmessagesform.caption

  • trunk/IDE/Languages/Transpascal.po

    r38 r39  
    1111
    1212#: tcodeform.caption
     13msgctxt "tcodeform.caption"
    1314msgid "Source code"
    1415msgstr ""
    … …  
    232233msgstr ""
    233234
    234 #: tmainform.tabsheet1.caption
    235 msgctxt "tmainform.tabsheet1.caption"
     235#: tmainform.tabsheetbreakpoints.caption
     236msgid "Breakpoints"
     237msgstr ""
     238
     239#: tmainform.tabsheetcodetree.caption
     240msgctxt "TMAINFORM.TABSHEETCODETREE.CAPTION"
     241msgid "Code Tree"
     242msgstr ""
     243
     244#: tmainform.tabsheetcompiledproject.caption
     245msgid "Target project"
     246msgstr ""
     247
     248#: tmainform.tabsheetmessages.caption
     249msgctxt "TMAINFORM.TABSHEETMESSAGES.CAPTION"
     250msgid "Messages"
     251msgstr ""
     252
     253#: tmainform.tabsheetproject.caption
     254msgctxt "TMAINFORM.TABSHEETPROJECT.CAPTION"
    236255msgid "Project"
    237256msgstr ""
    238257
    239 #: tmainform.tabsheet2.caption
    240 msgid "Code Tree"
    241 msgstr ""
    242 
    243 #: tmainform.tabsheet3.caption
    244 msgctxt "TMAINFORM.TABSHEET3.CAPTION"
    245 msgid "Messages"
    246 msgstr ""
    247 
    248 #: tmainform.tabsheet4.caption
    249 msgctxt "tmainform.tabsheet4.caption"
    250 msgid "Compiled source"
     258#: tmainform.tabsheetsource.caption
     259msgctxt "TMAINFORM.TABSHEETSOURCE.CAPTION"
     260msgid "Source code"
     261msgstr ""
     262
     263#: tmainform.tabsheettarget.caption
     264msgid "Target code"
    251265msgstr ""
    252266

  • trunk/IDE/UProject.pas

    r38 r39  
    242242begin
    243243  if Assigned(Parent) then Result := Parent.GetDir(IncludeRoot) + Name + DirectorySeparator
    244   else Result := Name + DirectorySeparator;
     244    else Result := Name + DirectorySeparator;
    245245end;
    246246
Note: See TracChangeset for help on using the changeset viewer.