Changeset 57 for trunk/IDE/Forms


Ignore:
Timestamp:
Jul 16, 2012, 4:11:47 PM (12 years ago)
Author:
chronos
Message:
  • Modified: Testing interpretter.
Location:
trunk/IDE/Forms
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE/Forms/UFormMain.lfm

    r54 r57  
    11object FormMain: TFormMain
    2   Left = 217
     2  Left = 140
    33  Height = 501
    4   Top = 104
     4  Top = 52
    55  Width = 695
    66  Caption = 'Transpascal IDE'

  • trunk/IDE/Forms/UFormMessages.lfm

    r45 r57  
    77  ClientHeight = 251
    88  ClientWidth = 415
    9   LCLVersion = '0.9.31'
     9  LCLVersion = '1.1'
    1010  object ListView1: TListView
    1111    Left = 0

  • trunk/IDE/Forms/UFormMessages.pas

    r53 r57  
    7272    ProjectFile := Project.Files.SearchFile(FileName);
    7373    if Assigned(ProjectFile) then
    74       SynEditSource.Lines.Assign(ProjectFile.Source);
     74      SynEditSource.Lines.Assign(ProjectFile.Source)
     75      else if FileExistsUTF8(FileName) then
     76        SynEditSource.Lines.LoadFromFile(FileName);
    7577    SynEditSource.CaretXY := Position;
    7678    TForm(SynEditSource.Owner).Show;

  • trunk/IDE/Forms/UFormProject.lfm

    r56 r57  
    11object FormProject: TFormProject
    2   Left = 505
     2  Left = 507
    33  Height = 253
    4   Top = 195
     4  Top = 197
    55  Width = 331
    66  Caption = 'Project manager'

  • trunk/IDE/Forms/UFormProjectNew.lfm

    r48 r57  
    88  ClientWidth = 519
    99  OnShow = FormShow
    10   LCLVersion = '0.9.31'
     10  LCLVersion = '1.1'
    1111  object ButtonOk: TButton
    1212    Left = 424
    … …  
    4040    ViewStyle = vsIcon
    4141    OnChange = ListView1Change
     42    OnDblClick = ListView1DblClick
    4243    OnSelectItem = ListView1SelectItem
    4344  end

  • trunk/IDE/Forms/UFormProjectNew.pas

    r53 r57  
    2020    procedure ListView1Change(Sender: TObject; Item: TListItem;
    2121      Change: TItemChange);
     22    procedure ListView1DblClick(Sender: TObject);
    2223    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
    2324      Selected: Boolean);
    … …  
    5253end;
    5354
     55procedure TFormProjectNew.ListView1DblClick(Sender: TObject);
     56begin
     57  ButtonOk.Click;
     58end;
     59
    5460procedure TFormProjectNew.ListView1SelectItem(Sender: TObject; Item: TListItem;
    5561  Selected: Boolean);

  • trunk/IDE/Forms/UFormSourceCode.lfm

    r53 r57  
    11object FormSourceCode: TFormSourceCode
    2   Left = 352
     2  Left = 353
    33  Height = 426
    4   Top = 95
     4  Top = 97
    55  Width = 535
    66  Caption = 'Source code'

  • trunk/IDE/Forms/UFormSourceCode.pas

    r54 r57  
    4040procedure TFormSourceCode.SynEditSourceChange(Sender: TObject);
    4141begin
    42   if Assigned(Core.Project) then
     42  if Assigned(Core.Project) and Assigned(ProjectFile) then
    4343    ProjectFile.Modified := True;
    4444end;

  • trunk/IDE/Forms/UFormTargetProject.lfm

    r53 r57  
    11object FormTargetProject: TFormTargetProject
    2   Left = 256
     2  Left = 258
    33  Height = 240
    4   Top = 81
     4  Top = 83
    55  Width = 320
    66  Caption = 'FormTargetProject'
Note: See TracChangeset for help on using the changeset viewer.