Ignore:
Timestamp:
Apr 12, 2019, 11:43:24 AM (6 years ago)
Author:
chronos
Message:
  • Modified: Optimization of draw only modified part of screen.
Location:
branches/virtualcpu4
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/virtualcpu4

    • Property svn:ignore

      •  

        old new  
        44*.lps
        55*.res
         6heaptrclog.trc

  • branches/virtualcpu4/UFormMain.lfm

    r175 r176  
    11object FormMain: TFormMain
    2   Left = 350
    3   Height = 948
    4   Top = 247
    5   Width = 1718
     2  Left = 313
     3  Height = 790
     4  Top = 150
     5  Width = 1432
    66  Caption = 'VirtCpu4'
    7   ClientHeight = 948
    8   ClientWidth = 1718
    9   DesignTimePPI = 144
     7  ClientHeight = 790
     8  ClientWidth = 1432
     9  DesignTimePPI = 120
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    … …  
    1313  LCLVersion = '2.0.0.4'
    1414  object ButtonStart: TButton
    15     Left = 1181
    16     Height = 37
    17     Top = 10
    18     Width = 113
     15    Left = 984
     16    Height = 31
     17    Top = 8
     18    Width = 94
    1919    Caption = 'Start'
    2020    OnClick = ButtonStartClick
    … …  
    2323  end
    2424  object ButtonStop: TButton
    25     Left = 1181
    26     Height = 37
    27     Top = 58
    28     Width = 113
     25    Left = 984
     26    Height = 31
     27    Top = 48
     28    Width = 94
    2929    Caption = 'Stop'
    3030    OnClick = ButtonStopClick
    … …  
    3333  end
    3434  object Label1: TLabel
    35     Left = 1181
    36     Height = 26
    37     Top = 115
    38     Width = 48
     35    Left = 984
     36    Height = 20
     37    Top = 96
     38    Width = 35
    3939    Caption = 'Ticks:'
    4040    ParentColor = False
    … …  
    4242  end
    4343  object ListViewRegisters: TListView
    44     Left = 10
    45     Height = 922
    46     Top = 10
    47     Width = 374
     44    Left = 8
     45    Height = 769
     46    Top = 8
     47    Width = 312
    4848    Anchors = [akTop, akLeft, akBottom]
    4949    Columns = <   
    5050      item
    5151        Caption = 'Register'
    52         Width = 120
     52        Width = 100
    5353      end   
    5454      item
    55         Width = 239
     55        Width = 199
    5656      end>
    57     Font.Height = -20
     57    Font.Height = -17
    5858    Font.Name = 'Liberation Mono'
    5959    OwnerData = True
    … …  
    6464  end
    6565  object ListViewMemory: TListView
    66     Left = 394
    67     Height = 922
    68     Top = 10
    69     Width = 778
     66    Left = 328
     67    Height = 769
     68    Top = 8
     69    Width = 648
    7070    Anchors = [akTop, akLeft, akBottom]
    7171    Columns = <   
    7272      item
    7373        Caption = 'Address'
    74         Width = 120
     74        Width = 100
    7575      end   
    7676      item
    77         Width = 643
     77        Width = 536
    7878      end>
    79     Font.Height = -20
     79    Font.Height = -17
    8080    Font.Name = 'Liberation Mono'
    8181    OwnerData = True
    … …  
    8686  end
    8787  object Memo1: TMemo
    88     Left = 1181
    89     Height = 344
    90     Top = 192
    91     Width = 518
     88    Left = 984
     89    Height = 287
     90    Top = 160
     91    Width = 432
    9292    OnKeyPress = Memo1KeyPress
    9393    ParentFont = False
    … …  
    9696  end
    9797  object Label2: TLabel
    98     Left = 1181
    99     Height = 26
    100     Top = 163
    101     Width = 73
     98    Left = 984
     99    Height = 20
     100    Top = 136
     101    Width = 56
    102102    Caption = 'Console:'
    103103    ParentColor = False
    104104    ParentFont = False
    105105  end
    106   object PaintBox1: TPaintBox
    107     Left = 1181
    108     Height = 374
    109     Top = 552
    110     Width = 518
    111     OnPaint = PaintBox1Paint
    112     OnResize = PaintBox1Resize
     106  object Image1: TImage
     107    Left = 984
     108    Height = 321
     109    Top = 457
     110    Width = 432
    113111  end
    114112  object Timer1: TTimer
    115113    Interval = 100
    116114    OnTimer = Timer1Timer
    117     left = 115
    118     top = 173
     115    left = 96
     116    top = 144
    119117  end
    120118  object TimerDraw: TTimer
    121119    OnTimer = TimerDrawTimer
    122     left = 104
    123     top = 304
     120    left = 87
     121    top = 253
    124122  end
    125123end
Note: See TracChangeset for help on using the changeset viewer.