Changeset 44 for trunk/Forms


Ignore:
Timestamp:
Jun 25, 2012, 1:17:58 PM (12 years ago)
Author:
chronos
Message:
  • Modified: Updated Common package.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.lfm

    r41 r44  
    11object MainForm: TMainForm
    2   Left = 215
     2  Left = 204
    33  Height = 414
    4   Top = 271
     4  Top = 88
    55  Width = 665
    66  Caption = 'LazFuck'
    7   ClientHeight = 389
     7  ClientHeight = 395
    88  ClientWidth = 665
    99  Menu = MainMenu1
     
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '0.9.31'
     14  LCLVersion = '1.1'
    1515  WindowState = wsMaximized
    1616  object StatusBarMain: TStatusBar
    1717    Left = 0
    18     Height = 21
    19     Top = 368
     18    Height = 20
     19    Top = 375
    2020    Width = 665
    2121    Panels = <   
     
    119119  object PageControlRight: TPageControl
    120120    Left = 272
    121     Height = 342
     121    Height = 349
    122122    Top = 26
    123123    Width = 393
     
    129129    object TabSheetDebug: TTabSheet
    130130      Caption = 'Debug'
    131       ClientHeight = 340
    132       ClientWidth = 341
     131      ClientHeight = 341
     132      ClientWidth = 365
    133133      object PanelInput: TPanel
    134134        Left = 0
    135135        Height = 64
    136136        Top = 0
    137         Width = 341
     137        Width = 365
    138138        Align = alTop
    139139        BevelOuter = bvNone
     
    145145        Height = 5
    146146        Top = 64
    147         Width = 341
     147        Width = 365
    148148        Align = alTop
    149149        ResizeAnchor = akTop
     
    153153        Height = 259
    154154        Top = 69
    155         Width = 341
     155        Width = 365
    156156        Align = alTop
    157157        BevelOuter = bvNone
     
    163163        Height = 5
    164164        Top = 328
    165         Width = 341
     165        Width = 365
    166166        Align = alTop
    167167        ResizeAnchor = akTop
     
    171171        Height = 86
    172172        Top = 333
    173         Width = 341
     173        Width = 365
    174174        Align = alTop
    175175        BevelOuter = bvNone
     
    180180        Left = 0
    181181        Height = 5
    182         Top = 340
    183         Width = 341
     182        Top = 341
     183        Width = 365
    184184        Align = alTop
    185185        ResizeAnchor = akTop
     
    187187      object PanelMemory: TPanel
    188188        Left = 0
    189         Height = 1
    190         Top = 340
    191         Width = 341
     189        Height = 0
     190        Top = 341
     191        Width = 365
    192192        Align = alClient
    193193        BevelOuter = bvNone
     
    198198  object Splitter1: TSplitter
    199199    Left = 267
    200     Height = 342
     200    Height = 349
    201201    Top = 26
    202202    Width = 5
     
    206206  object PanelLeft: TPanel
    207207    Left = 0
    208     Height = 342
     208    Height = 349
    209209    Top = 26
    210210    Width = 267
    211211    Align = alClient
    212212    BevelOuter = bvNone
    213     ClientHeight = 342
     213    ClientHeight = 349
    214214    ClientWidth = 267
    215215    TabOrder = 4
    216216    object PageControlMain: TPageControl
    217217      Left = 0
    218       Height = 219
     218      Height = 226
    219219      Top = 0
    220220      Width = 267
     
    226226      object TabSheetSource: TTabSheet
    227227        Caption = 'Source code'
    228         ClientHeight = 192
    229         ClientWidth = 265
     228        ClientHeight = 200
     229        ClientWidth = 259
    230230        object MemoSource: TMemo
    231231          Left = 0
    232           Height = 192
     232          Height = 200
    233233          Top = 0
    234           Width = 265
     234          Width = 259
    235235          Align = alClient
    236236          Font.Height = -12
     
    267267      Left = 0
    268268      Height = 118
    269       Top = 224
     269      Top = 231
    270270      Width = 267
    271271      ActivePage = TabSheetMessages
     
    282282      Left = 0
    283283      Height = 5
    284       Top = 219
     284      Top = 226
    285285      Width = 267
    286286      Align = alBottom
  • trunk/Forms/UFormMain.pas

    r41 r44  
    173173    procedure UpdateToolBarHints;
    174174    procedure DockInit;
     175    procedure LastOpenedListChange(Sender: TObject);
    175176  public
    176177    Modified: Boolean;
     
    213214begin
    214215  PageControlMain.TabIndex := 0;
    215   if OpenProjectOnStart and (LastOpenedList.Count > 0) then
    216     ProjectOpen(LastOpenedList[0])
     216  if OpenProjectOnStart and (LastOpenedList.Items.Count > 0) then
     217    ProjectOpen(LastOpenedList.Items[0])
    217218    else AProjectNew.Execute;
    218219  UpdateInterface;
     
    333334  PageControlRight.Width := MainForm.Width div 2;
    334335  PageControlBottom.Height := MainForm.Height div 5;
     336end;
     337
     338procedure TMainForm.LastOpenedListChange(Sender: TObject);
     339begin
     340  LastOpenedList.LoadToMenuItem(MenuItemOpenRecent);
    335341end;
    336342
     
    438444  Targets.Add(TTargetJava.Create);
    439445  UpdateTargetList;
    440   LastOpenedList := TLastOpenedList.Create;
    441   LastOpenedList.MenuItem := MenuItemOpenRecent;
     446  LastOpenedList := TLastOpenedList.Create(nil);
     447  LastOpenedList.OnChange := LastOpenedListChange;
    442448  LastOpenedList.ClickAction := AProjectOpenRecentExecute;
    443449  LoadFromRegistry(RegistryRoot, ApplicationInfo.RegistryKey);
     
    681687procedure TMainForm.AProjectOpenRecentExecute(Sender: TObject);
    682688begin
    683   ProjectOpen(LastOpenedList[TMenuItem(Sender).MenuIndex]);
     689  ProjectOpen(LastOpenedList.Items[TMenuItem(Sender).MenuIndex]);
    684690end;
    685691
     
    698704    MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName));
    699705    ProjectFileName := SaveDialog1.FileName;
    700     LastOpenedList.Add(SaveDialog1.FileName);
     706    LastOpenedList.AddItem(SaveDialog1.FileName);
    701707    Modified := False;
    702708    UpdateInterface;
Note: See TracChangeset for help on using the changeset viewer.