Changeset 30 for trunk/Forms


Ignore:
Timestamp:
Nov 24, 2011, 8:35:25 AM (13 years ago)
Author:
chronos
Message:
Location:
trunk/Forms
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UItemEdit.lfm

    r23 r30  
    11object ItemEditForm: TItemEditForm
    2   Left = 251
    3   Height = 423
    4   Top = 92
    5   Width = 552
    6   ActiveControl = Panel1
     2  Left = 274
     3  Height = 486
     4  Top = 137
     5  Width = 608
    76  Caption = 'Edit item'
    8   ClientHeight = 423
    9   ClientWidth = 552
     7  ClientHeight = 486
     8  ClientWidth = 608
    109  OnClose = FormClose
    1110  OnCreate = FormCreate
    … …  
    1312  OnShow = FormShow
    1413  LCLVersion = '0.9.31'
    15   object Panel1: TPanel
    16     Left = 0
    17     Height = 380
    18     Top = 0
    19     Width = 552
    20     Align = alTop
    21     Anchors = [akLeft, akRight, akBottom]
    22     BevelOuter = bvNone
    23     TabOrder = 0
    24   end
    2514  object ButtonCancel: TButton
    26     Left = 378
     15    Left = 434
    2716    Height = 25
    28     Top = 394
     17    Top = 457
    2918    Width = 75
    3019    Anchors = [akRight, akBottom]
    3120    Caption = 'Cancel'
    3221    OnClick = ButtonCancelClick
    33     TabOrder = 1
     22    TabOrder = 0
    3423  end
    3524  object ButtonSave: TButton
    36     Left = 466
     25    Left = 522
    3726    Height = 25
    38     Top = 394
     27    Top = 457
    3928    Width = 75
    4029    Anchors = [akRight, akBottom]
    4130    Caption = 'Save'
    4231    OnClick = ButtonSaveClick
     32    TabOrder = 1
     33  end
     34  object Panel1: TPanel
     35    Left = 0
     36    Height = 451
     37    Top = 0
     38    Width = 608
     39    Align = alTop
     40    Anchors = [akTop, akLeft, akRight, akBottom]
     41    BevelOuter = bvNone
     42    ClientHeight = 451
     43    ClientWidth = 608
    4344    TabOrder = 2
     45    object Splitter1: TSplitter
     46      Cursor = crVSplit
     47      Left = 0
     48      Height = 3
     49      Top = 248
     50      Width = 608
     51      Align = alBottom
     52      ResizeAnchor = akBottom
     53    end
     54    object PanelControls: TPanel
     55      Left = 0
     56      Height = 248
     57      Top = 0
     58      Width = 608
     59      Align = alClient
     60      Anchors = [akLeft, akRight, akBottom]
     61      BevelOuter = bvNone
     62      TabOrder = 1
     63    end
     64    object Panel2: TPanel
     65      Left = 0
     66      Height = 200
     67      Top = 251
     68      Width = 608
     69      Align = alBottom
     70      BevelOuter = bvNone
     71      ClientHeight = 200
     72      ClientWidth = 608
     73      TabOrder = 2
     74      object TabControl1: TTabControl
     75        Left = 0
     76        Height = 24
     77        Top = 0
     78        Width = 608
     79        TabStop = False
     80        OnChange = TabControl1Change
     81        TabIndex = 0
     82        Tabs.Strings = (
     83          'Tab1'
     84          'Tab2'
     85          'Tab3'
     86        )
     87        Align = alTop
     88        TabOrder = 0
     89      end
     90      object ListView1: TListView
     91        Left = 0
     92        Height = 144
     93        Top = 24
     94        Width = 608
     95        Align = alClient
     96        Columns = <>
     97        OwnerData = True
     98        ReadOnly = True
     99        RowSelect = True
     100        TabOrder = 1
     101        ViewStyle = vsReport
     102        OnData = ListView1Data
     103        OnDblClick = ListView1DblClick
     104        OnKeyPress = ListView1KeyPress
     105        OnResize = ListView1Resize
     106        OnSelectItem = ListView1SelectItem
     107      end
     108      object Panel3: TPanel
     109        Left = 0
     110        Height = 32
     111        Top = 168
     112        Width = 608
     113        Align = alBottom
     114        BevelOuter = bvNone
     115        ClientHeight = 32
     116        ClientWidth = 608
     117        TabOrder = 2
     118        object ButtonAdd: TButton
     119          Left = 8
     120          Height = 25
     121          Top = 6
     122          Width = 64
     123          Caption = 'Add'
     124          OnClick = ButtonAddClick
     125          TabOrder = 0
     126        end
     127        object ButtonDelete: TButton
     128          Left = 80
     129          Height = 25
     130          Top = 6
     131          Width = 67
     132          Caption = 'Delete'
     133          OnClick = ButtonDeleteClick
     134          TabOrder = 1
     135        end
     136        object ButtonView: TButton
     137          Left = 156
     138          Height = 25
     139          Top = 6
     140          Width = 64
     141          Caption = 'View'
     142          OnClick = ButtonViewClick
     143          TabOrder = 2
     144        end
     145        object ButtonEdit: TButton
     146          Left = 226
     147          Height = 25
     148          Top = 6
     149          Width = 62
     150          Caption = 'Edit'
     151          OnClick = ButtonEditClick
     152          TabOrder = 3
     153        end
     154      end
     155    end
    44156  end
    45157end

  • trunk/Forms/UItemEdit.lrt

    r12 r30  
    22TITEMEDITFORM.BUTTONCANCEL.CAPTION=Cancel
    33TITEMEDITFORM.BUTTONSAVE.CAPTION=Save
     4TITEMEDITFORM.BUTTONADD.CAPTION=Add
     5TITEMEDITFORM.BUTTONDELETE.CAPTION=Delete
     6TITEMEDITFORM.BUTTONVIEW.CAPTION=View
     7TITEMEDITFORM.BUTTONEDIT.CAPTION=Edit

  • trunk/Forms/UItemEdit.pas

    r22 r30  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    9   StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, USystem,
     9  StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, ComCtrls, USystem,
    1010  SpecializedList, SpecializedDictionary;
    1111
    … …  
    1515
    1616  TItemEditForm = class(TForm)
     17    ButtonAdd: TButton;
     18    ButtonDelete: TButton;
     19    ButtonEdit: TButton;
    1720    ButtonSave: TButton;
    1821    ButtonCancel: TButton;
     22    ButtonView: TButton;
     23    ListView1: TListView;
    1924    Panel1: TPanel;
     25    Panel2: TPanel;
     26    Panel3: TPanel;
     27    PanelControls: TPanel;
     28    Splitter1: TSplitter;
     29    TabControl1: TTabControl;
     30    procedure ButtonAddClick(Sender: TObject);
    2031    procedure ButtonCancelClick(Sender: TObject);
     32    procedure ButtonDeleteClick(Sender: TObject);
     33    procedure ButtonEditClick(Sender: TObject);
    2134    procedure ButtonSaveClick(Sender: TObject);
     35    procedure ButtonViewClick(Sender: TObject);
    2236    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2337    procedure FormCreate(Sender: TObject);
    2438    procedure FormDestroy(Sender: TObject);
    2539    procedure FormShow(Sender: TObject);
     40    procedure ListView1Data(Sender: TObject; Item: TListItem);
     41    procedure ListView1DblClick(Sender: TObject);
     42    procedure ListView1KeyPress(Sender: TObject; var Key: char);
     43    procedure ListView1Resize(Sender: TObject);
     44    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
     45      Selected: Boolean);
     46    procedure TabControl1Change(Sender: TObject);
    2647  private
    27     { private declarations }
     48    SelectedItem: Integer;
     49    SubListObject: TChronisObject;
     50    TabObjectList: TListInteger;
     51    TabDataTypeList: TListObject;
     52    procedure LoadSubList;
    2853  public
    2954    Report: TReport;
    … …  
    3762
    3863uses
    39   UMainForm, UDataTypes, UCore;
     64  UMainForm, UDataTypes, UCore, UItemAdd, UItemView;
    4065
    4166{$R *.lfm}
    … …  
    4772  Close;
    4873end;
     74
     75procedure TItemEditForm.ButtonDeleteClick(Sender: TObject);
     76begin
     77  if MessageDlg(SItemDeletion, SReallyWantToDelete, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
     78
     79  end;
     80end;
     81
     82procedure TItemEditForm.ButtonEditClick(Sender: TObject);
     83begin
     84  if Assigned(ListView1.Selected) then
     85    ItemEditForm.Show;
     86end;
     87
     88procedure TItemEditForm.ButtonAddClick(Sender: TObject);
     89begin
     90  if Assigned(ListView1.Selected) then
     91    ItemAddForm.Show;
     92end;
     93
     94procedure TItemEditForm.ListView1Data(Sender: TObject; Item: TListItem);
     95var
     96  I: Integer;
     97begin
     98  if Item.Index < Report.Count then
     99  with TReportLine(Report[Item.Index]) do begin
     100    Item.Caption := Items[0];
     101    for I := 1 to Items.Count - 1 do
     102    if not TReportColumn(Report.Columns[I]).VirtualItem then
     103      Item.SubItems.Add(Items[I]);
     104  end;
     105end;
     106
     107procedure TItemEditForm.ListView1DblClick(Sender: TObject);
     108begin
     109  if Assigned(ListView1.Selected) then ButtonView.Click;
     110end;
     111
     112procedure TItemEditForm.ListView1KeyPress(Sender: TObject; var Key: char);
     113begin
     114  if Key = #13 then ButtonView.Click;
     115end;
     116
    49117
    50118procedure TItemEditForm.ButtonSaveClick(Sender: TObject);
    … …  
    76144end;
    77145
     146procedure TItemEditForm.ButtonViewClick(Sender: TObject);
     147begin
     148  if Assigned(ListView1.Selected) then
     149    ItemViewForm.Show;
     150end;
     151
    78152procedure TItemEditForm.FormClose(Sender: TObject; var CloseAction: TCloseAction
    79153  );
    … …  
    84158procedure TItemEditForm.FormCreate(Sender: TObject);
    85159begin
     160  SubListObject := TChronisObject.Create;
     161  SubListObject.Base := Core.System;
    86162  Report := TReport.Create;
    87163  Report.Base := Core.System;
     164  TabObjectList := TListInteger.Create;
     165  TabDataTypeList := TListObject.Create;
     166  TabDataTypeList.OwnsObjects := False;
     167  TabControl1.Tabs.Clear;
    88168end;
    89169
    90170procedure TItemEditForm.FormDestroy(Sender: TObject);
    91171begin
     172  SubListObject.Free;
    92173  Report.Free;
     174  TabObjectList.Free;
     175  TabDataTypeList.Free;
    93176end;
    94177
    … …  
    97180  MainForm.PersistentForm.Load(Self);
    98181  BuildControls;
     182  LoadSubList;
    99183end;
    100184
    … …  
    106190  Column: Integer;
    107191  DataType: TDataType;
    108   NewControl: TWinControl;
    109   NewLabel: TLabel;
     192  NewControl: TControl;
     193  NewWinControl: TWinControl;
    110194const
    111195  ColumnCount = 2;
    … …  
    116200    IntToStr(MainForm.SelectedItem));
    117201
    118   for I := Panel1.ControlCount - 1 downto 0 do
    119     Panel1.Controls[I].Free;
    120 
     202  // Clear previous controls on panel
     203  for I := PanelControls.ControlCount - 1 downto 0 do
     204    PanelControls.Controls[I].Free;
     205
     206  TabControl1.Tabs.Clear;
     207  TabObjectList.Clear;
     208  TabDataTypeList.Clear;
    121209  if Report.Count = 1 then
    122210    for I := 0 to Report.Columns.Count - 1 do
    123211    if (TReportColumn(Report.Columns[I]).ColumnName <> 'Id') then begin
    124 
    125       NewLabel := TLabel.Create(Panel1);
    126       NewLabel.Parent := Panel1;
    127       NewLabel.Top := LastTop;
    128       NewLabel.Left := Column * Width div ColumnCount + 10;
    129       NewLabel.Caption := TReportColumn(Report.Columns[I]).Caption + ':';
    130 
    131212      DataType := TReportColumn(Report.Columns[I]).CustomType;
    132213      DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
    133       if not (DataType is TDataTypeRelationMany) then begin
    134         NewControl := DataType.CreateControl(Panel1);
     214      if DataType is TDataTypeRelationMany then begin
     215        TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
     216        TabDataTypeList.Add(DataType);
     217        TabObjectList.Add(MainForm.SelectedItem);
     218      end else begin
     219        NewControl := TLabel.Create(Panel1);
     220        NewControl.Parent := PanelControls;
     221        NewControl.Top := LastTop;
     222        NewControl.Left := Column * Width div ColumnCount + 10;
     223        TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
     224
     225        NewWinControl := DataType.CreateControl(Panel1);
    135226        DataType.Load(TReportLine(Report[0]).Items[I]);
    136         DataType.SetupControl(NewControl);
    137         NewControl.Parent := Panel1;
    138         NewControl.Top := LastTop;
    139         NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    140         NewControl.Width := (Width div ColumnCount) div 2 - 20;
    141         TReportColumn(Report.Columns[I]).Control := NewControl;
     227        DataType.SetupControl(NewWinControl);
     228        NewWinControl.Parent := Panel1;
     229        NewWinControl.Top := LastTop;
     230        NewWinControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
     231        NewWinControl.Width := (Width div ColumnCount) div 2 - 20;
     232        TReportColumn(Report.Columns[I]).Control := NewWinControl;
    142233
    143234        Column := (Column + 1) mod 2;
    144         if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
     235        if Column = 0 then LastTop := LastTop + NewWinControl.Height + 4;
    145236      end;
    146    end;
    147 end;
     237  end;
     238  // Panel1;
     239  // ListView1;
     240  // TabControl1;
     241  Panel2.Visible := TabControl1.Tabs.Count > 0;
     242end;
     243
     244procedure TItemEditForm.LoadSubList;
     245begin
     246  //SelectedObjectId := 0;
     247  if (TabControl1.TabIndex >= 0) and (TabControl1.TabIndex < TabControl1.Tabs.Count) then
     248  with ListView1 do
     249  with TDataTypeRelationMany(TabDataTypeList[TabControl1.TabIndex]) do begin
     250    Visible := True;
     251    SubListObject.Load(ObjectId);
     252    Report.Load(SubListObject, '`' + PropertyName + '`=' + IntToStr(TabObjectList[TabControl1.TabIndex]));
     253
     254    Report.FillListColumns(Columns);
     255    Items.Count := Report.Count;
     256    Refresh;
     257  end;
     258  ListView1Resize(Self);
     259end;
     260
     261procedure TItemEditForm.ListView1Resize(Sender: TObject);
     262var
     263  I: Integer;
     264begin
     265  for I := 0 to ListView1.Columns.Count - 1 do
     266    ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
     267end;
     268
     269procedure TItemEditForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
     270  Selected: Boolean);
     271begin
     272  if Assigned(ListView1.Selected) then
     273    SelectedItem := TReportLine(Report[ListView1.Selected.Index]).Id
     274    else SelectedItem := 0;
     275
     276  ButtonDelete.Enabled := Assigned(ListView1.Selected);
     277  ButtonView.Enabled := Assigned(ListView1.Selected);
     278  ButtonEdit.Enabled := Assigned(ListView1.Selected);
     279end;
     280
     281procedure TItemEditForm.TabControl1Change(Sender: TObject);
     282begin
     283  LoadSubList;
     284end;
     285
    148286
    149287end.

  • trunk/Forms/UItemView.lfm

    r28 r30  
    5959        Top = 0
    6060        Width = 620
     61        TabStop = False
    6162        OnChange = TabControl1Change
    6263        TabIndex = 0
    … …  
    6667          'Tab3'
    6768        )
    68         TabStop = False
    6969        Align = alTop
    7070        TabOrder = 0

  • trunk/Forms/UItemView.pas

    r21 r30  
    149149    DataType := TReportColumn(Report.Columns[I]).CustomType;
    150150    DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
    151   if DataType is TDataTypeRelationMany then begin
    152     TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
    153     TabDataTypeList.Add(DataType);
    154     TabObjectList.Add(MainForm.SelectedItem);
    155   end else begin
    156     NewControl := TLabel.Create(PanelControls);
    157     NewControl.Parent := PanelControls;
    158     NewControl.Top := LastTop;
    159     NewControl.Left := Column * Width div ColumnCount + 10;
    160     TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
    161 
    162     NewControl := TLabel.Create(PanelControls);
    163     NewControl.Parent := PanelControls;
    164     NewControl.Top := LastTop;
    165     NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
    166     TLabel(NewControl).Caption := TReportLine(Report[0]).Items[I];
    167 
    168     Column := (Column + 1) mod 2;
    169     if Column = 0 then LastTop := LastTop + 24;
    170   end;
     151    if DataType is TDataTypeRelationMany then begin
     152      TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
     153      TabDataTypeList.Add(DataType);
     154      TabObjectList.Add(MainForm.SelectedItem);
     155    end else begin
     156      NewControl := TLabel.Create(PanelControls);
     157      NewControl.Parent := PanelControls;
     158      NewControl.Top := LastTop;
     159      NewControl.Left := Column * Width div ColumnCount + 10;
     160      TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
     161
     162      NewControl := TLabel.Create(PanelControls);
     163      NewControl.Parent := PanelControls;
     164      NewControl.Top := LastTop;
     165      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
     166      TLabel(NewControl).Caption := TReportLine(Report[0]).Items[I];
     167
     168      Column := (Column + 1) mod 2;
     169      if Column = 0 then LastTop := LastTop + 24;
     170    end;
    171171  end;
    172172  Panel2.Visible := TabControl1.Tabs.Count > 0;

  • trunk/Forms/ULoginForm.lfm

    r27 r30  
    3636    ModalResult = 11
    3737    OnClick = ButtonCancelClick
    38     TabOrder = 0
     38    TabOrder = 5
    3939  end
    4040  object ButtonLogin: TButton
    … …  
    4747    ModalResult = 1
    4848    OnClick = ButtonLoginClick
    49     TabOrder = 1
     49    TabOrder = 4
    5050  end
    5151  object EditUserName: TEdit
    … …  
    7171    ItemHeight = 13
    7272    Style = csDropDownList
    73     TabOrder = 3
     73    TabOrder = 0
    7474  end
    7575  object ButtonChange: TButton
    … …  
    8080    Caption = 'Change'
    8181    OnClick = ButtonChangeClick
    82     TabOrder = 4
     82    TabOrder = 1
    8383  end
    8484  object Image1: TImage
    … …  
    9595    EchoMode = emPassword
    9696    PasswordChar = '*'
    97     TabOrder = 5
     97    TabOrder = 3
    9898  end
    9999end

  • trunk/Forms/ULoginForm.pas

    r27 r30  
    6262  EditUserName.Text := Core.LastUserName;
    6363  EditPassword.Text := '';
     64  EditPassword.SetFocus;
    6465  Core.Profiles.FillStrings(ComboBoxConnection.Items);
    6566  ComboBoxConnection.ItemIndex := Core.LastProfile;

  • trunk/Forms/ULoginProfileForm.lfm

    r29 r30  
    33  Height = 395
    44  Top = 147
    5   Width = 521
     5  Width = 527
    66  Caption = 'Connection profile'
    77  ClientHeight = 395
    8   ClientWidth = 521
     8  ClientWidth = 527
    99  OnClose = FormClose
    1010  OnCreate = FormCreate
    … …  
    1313  LCLVersion = '0.9.31'
    1414  object LabelServer: TLabel
    15     Left = 267
    16     Height = 18
     15    Left = 278
     16    Height = 14
    1717    Top = 63
    18     Width = 47
     18    Width = 37
    1919    Anchors = [akTop, akRight]
    2020    Caption = 'Server:'
    … …  
    2222  end
    2323  object EditServer: TEdit
    24     Left = 339
    25     Height = 27
     24    Left = 345
     25    Height = 21
    2626    Top = 56
    2727    Width = 178
    … …  
    3434    Height = 289
    3535    Top = 25
    36     Width = 250
     36    Width = 256
    3737    Anchors = [akTop, akLeft, akRight, akBottom]
    3838    ItemHeight = 0
    … …  
    4040    ScrollWidth = 246
    4141    TabOrder = 1
    42     TopIndex = -1
    4342  end
    4443  object ButtonOk: TButton
    45     Left = 442
     44    Left = 448
    4645    Height = 25
    4746    Top = 362
    … …  
    5554  object Label1: TLabel
    5655    Left = 10
    57     Height = 18
     56    Height = 14
    5857    Top = 9
    59     Width = 53
     58    Width = 40
    6059    Caption = 'Profiles:'
    6160    ParentColor = False
    … …  
    6564    Height = 3
    6665    Top = 354
    67     Width = 509
     66    Width = 515
    6867    Anchors = [akLeft, akRight, akBottom]
    6968    BevelInner = bvSpace
    … …  
    7271  end
    7372  object SpinEditPort: TSpinEdit
    74     Left = 339
    75     Height = 27
     73    Left = 345
     74    Height = 21
    7675    Top = 84
    7776    Width = 178
    … …  
    8281  end
    8382  object Label2: TLabel
    84     Left = 267
    85     Height = 18
     83    Left = 278
     84    Height = 14
    8685    Top = 91
    87     Width = 31
     86    Width = 25
    8887    Anchors = [akTop, akRight]
    8988    Caption = 'Port:'
    … …  
    9190  end
    9291  object Label3: TLabel
    93     Left = 267
    94     Height = 18
     92    Left = 278
     93    Height = 14
    9594    Top = 120
    96     Width = 58
     95    Width = 44
    9796    Anchors = [akTop, akRight]
    9897    Caption = 'Protocol:'
    … …  
    10099  end
    101100  object ComboBoxProtocol: TComboBox
    102     Left = 339
    103     Height = 27
     101    Left = 345
     102    Height = 21
    104103    Top = 113
    105104    Width = 178
    106105    Anchors = [akTop, akRight]
    107     ItemHeight = 0
     106    ItemHeight = 13
    108107    OnChange = ComboBoxProtocolChange
    109108    Style = csDropDownList
    … …  
    111110  end
    112111  object Label4: TLabel
    113     Left = 267
    114     Height = 18
    115     Top = 154
    116     Width = 67
     112    Left = 278
     113    Height = 14
     114    Top = 152
     115    Width = 51
    117116    Anchors = [akTop, akRight]
    118117    Caption = 'Database:'
    … …  
    120119  end
    121120  object EditDatabase: TEdit
    122     Left = 339
    123     Height = 27
     121    Left = 345
     122    Height = 21
    124123    Top = 145
    125124    Width = 178
    … …  
    149148  end
    150149  object ButtonCancel: TButton
    151     Left = 360
     150    Left = 366
    152151    Height = 25
    153152    Top = 362
    … …  
    159158  end
    160159  object EditName: TEdit
    161     Left = 338
    162     Height = 27
     160    Left = 344
     161    Height = 21
    163162    Top = 26
    164163    Width = 179
    … …  
    168167  end
    169168  object Label5: TLabel
    170     Left = 267
    171     Height = 18
    172     Top = 32
    173     Width = 44
     169    Left = 278
     170    Height = 14
     171    Top = 33
     172    Width = 32
    174173    Anchors = [akTop, akRight]
    175174    Caption = 'Name:'

  • trunk/Forms/UMainForm.lfm

    r29 r30  
    66  ActiveControl = Panel1
    77  Caption = 'ChronIS'
    8   ClientHeight = 421
     8  ClientHeight = 427
    99  ClientWidth = 640
    1010  Icon.Data = {
    … …  
    153153  object Panel1: TPanel
    154154    Left = 0
    155     Height = 421
     155    Height = 427
    156156    Top = 0
    157157    Width = 184
    158158    Align = alLeft
    159159    BevelOuter = bvNone
    160     ClientHeight = 421
     160    ClientHeight = 427
    161161    ClientWidth = 184
    162162    TabOrder = 0
    163163    object Label1: TLabel
    164164      Left = 7
    165       Height = 18
     165      Height = 14
    166166      Top = 4
    167       Width = 51
     167      Width = 39
    168168      Caption = 'Groups:'
    169169      ParentColor = False
    … …  
    171171    object TreeView1: TTreeView
    172172      Left = 4
    173       Height = 397
     173      Height = 403
    174174      Top = 19
    175175      Width = 180
    176176      Anchors = [akTop, akLeft, akRight, akBottom]
     177      DefaultItemHeight = 16
    177178      Images = ImageListActions
    178179      ReadOnly = True
    … …  
    184185  object Panel2: TPanel
    185186    Left = 189
    186     Height = 421
     187    Height = 427
    187188    Top = 0
    188189    Width = 451
    189190    Align = alClient
    190191    BevelOuter = bvNone
    191     ClientHeight = 421
     192    ClientHeight = 427
    192193    ClientWidth = 451
    193194    TabOrder = 1
    194195    object Label2: TLabel
    195196      Left = 2
    196       Height = 18
     197      Height = 14
    197198      Top = 4
    198       Width = 54
     199      Width = 43
    199200      Caption = 'Reports:'
    200201      ParentColor = False
    … …  
    202203    object ListView1: TListView
    203204      Left = 2
    204       Height = 365
     205      Height = 371
    205206      Top = 19
    206207      Width = 447
    … …  
    222223      Left = 3
    223224      Height = 25
    224       Top = 392
     225      Top = 398
    225226      Width = 75
    226227      Action = AItemAdd
    … …  
    228229      TabOrder = 1
    229230    end
    230     object ButtonRemove: TButton
     231    object ButtonDelete: TButton
    231232      Left = 83
    232233      Height = 25
    233       Top = 392
     234      Top = 398
    234235      Width = 75
    235236      Action = AItemDelete
    … …  
    237238      TabOrder = 2
    238239    end
     240    object ButtonView: TButton
     241      Left = 163
     242      Height = 25
     243      Top = 398
     244      Width = 75
     245      Action = AItemView
     246      Anchors = [akLeft, akBottom]
     247      TabOrder = 3
     248    end
     249    object ButtonEdit: TButton
     250      Left = 243
     251      Height = 25
     252      Top = 398
     253      Width = 75
     254      Action = AItemEdit
     255      Anchors = [akLeft, akBottom]
     256      TabOrder = 4
     257    end
    239258  end
    240259  object Splitter1: TSplitter
    241260    Left = 184
    242     Height = 421
     261    Height = 427
    243262    Top = 0
    244263    Width = 5
    … …  
    252271      Caption = 'Delete'
    253272      OnExecute = AItemDeleteExecute
     273      ShortCut = 16452
    254274    end
    255275    object AItemAdd: TAction
    … …  
    257277      Caption = 'Add'
    258278      OnExecute = AItemAddExecute
     279      ShortCut = 16449
    259280    end
    260281    object AItemEdit: TAction
    … …  
    262283      Caption = 'Edit'
    263284      OnExecute = AItemEditExecute
     285      ShortCut = 16453
    264286    end
    265287    object AItemView: TAction
    … …  
    267289      Caption = 'View'
    268290      OnExecute = AItemViewExecute
     291      ShortCut = 16470
    269292    end
    270293    object AObjectGroupDelete: TAction
    … …  
    298321      Caption = 'Exit'
    299322      OnExecute = AExitExecute
     323      ShortCut = 32883
    300324    end
    301325    object AToggleFullscreen: TAction

  • trunk/Forms/UMainForm.pas

    r29 r30  
    3434    AItemDelete: TAction;
    3535    ActionListItem: TActionList;
     36    ButtonEdit: TButton;
     37    ButtonView: TButton;
    3638    ButtonAdd: TButton;
    37     ButtonRemove: TButton;
     39    ButtonDelete: TButton;
    3840    ImageListActions: TImageList;
    3941    Label1: TLabel;
    … …  
    306308      LoadTree;
    307309    except
    308       on E:Exception do ShowMessage(E.Message);
     310      on E: Exception do ShowMessage(E.Message);
    309311    end;
    310312  end;
    … …  
    371373    else SelectedItem := 0;
    372374
    373   AItemDelete.Enabled := Assigned(ListView1.Selected);
    374   AItemView.Enabled := Assigned(ListView1.Selected);
    375   AItemEdit.Enabled := Assigned(ListView1.Selected);
     375  ButtonDelete.Enabled := Assigned(ListView1.Selected);
     376  ButtonView.Enabled := Assigned(ListView1.Selected);
     377  ButtonEdit.Enabled := Assigned(ListView1.Selected);
    376378end;
    377379
Note: See TracChangeset for help on using the changeset viewer.