Changeset 100 for trunk/Forms


Ignore:
Timestamp:
Dec 22, 2018, 11:31:25 AM (5 years ago)
Author:
chronos
Message:
  • Modified: Updated versioning information.
  • Added: Release notes file.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormOutput.lfm

    r59 r100  
    77  ClientHeight = 440
    88  ClientWidth = 320
    9   LCLVersion = '1.3'
     9  DesignTimePPI = 144
     10  LCLVersion = '1.8.4.0'
    1011  object Label2: TLabel
    1112    Left = 4
    12     Height = 25
     13    Height = 26
    1314    Top = 4
    1415    Width = 312
    … …  
    2021  object MemoOutput: TMemo
    2122    Left = 4
    22     Height = 403
    23     Top = 33
     23    Height = 402
     24    Top = 34
    2425    Width = 312
    2526    Align = alClient

  • trunk/Forms/UFormOutput.pas

    r67 r100  
    3636begin
    3737  if Core.CurrentTarget is TTargetInterpretter then
    38   with TTargetInterpretter(Core.CurrentTarget) do
     38  with TTargetInterpretter(Core.CurrentTarget) do begin
    3939    MemoOutput.Lines.Text := Output;
     40  end;
    4041end;
    4142
Note: See TracChangeset for help on using the changeset viewer.