Changeset 42 for trunk/Forms


Ignore:
Timestamp:
Feb 19, 2012, 10:18:56 PM (13 years ago)
Author:
chronos
Message:
  • Added: Show execution path in Target list.
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormTargets.lfm

    r37 r42  
    11object FormCompilers: TFormCompilers
    22  Left = 292
    3   Height = 264
     3  Height = 344
    44  Top = 138
    5   Width = 360
     5  Width = 574
    66  Caption = 'Compilers'
    7   ClientHeight = 264
    8   ClientWidth = 360
     7  ClientHeight = 344
     8  ClientWidth = 574
    99  OnShow = FormShow
    1010  LCLVersion = '0.9.31'
    1111  object ListView1: TListView
    1212    Left = 8
    13     Height = 248
     13    Height = 328
    1414    Top = 8
    15     Width = 346
     15    Width = 560
    1616    Anchors = [akTop, akLeft, akRight, akBottom]
    1717    Columns = <   
    … …  
    2222      item
    2323        Caption = 'Execution path'
    24         Width = 247
     24        Width = 200
     25      end   
     26      item
     27        Caption = 'Compiler path'
     28        Width = 261
    2529      end>
    2630    OwnerData = True

  • trunk/Forms/UFormTargets.lrt

    r37 r42  
    22TFORMCOMPILERS.LISTVIEW1.COLUMNS[0].CAPTION=Name
    33TFORMCOMPILERS.LISTVIEW1.COLUMNS[1].CAPTION=Execution path
     4TFORMCOMPILERS.LISTVIEW1.COLUMNS[2].CAPTION=Compiler path

  • trunk/Forms/UFormTargets.pas

    r37 r42  
    5050    Item.Caption := Name;
    5151    Item.Data := MainForm.Targets[Item.Index];
     52    Item.SubItems.Add(ExecutorPath);
    5253    Item.SubItems.Add(CompilerPath);
    5354  end;
Note: See TracChangeset for help on using the changeset viewer.