Ignore:
Timestamp:
Jan 16, 2011, 4:31:02 PM (14 years ago)
Author:
george
Message:
  • Fixed: Bad QWord shifting.
  • Fixed: Reading dynamic value from bit stream.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • CoolStreaming/Demo/DynNumber/UMainForm.lfm

    r126 r128  
    33  Height = 495
    44  Top = 114
    5   Width = 550
     5  Width = 669
    66  Caption = 'DynNumber Demo'
    77  ClientHeight = 495
    8   ClientWidth = 550
     8  ClientWidth = 669
    99  OnCreate = FormCreate
    1010  OnDestroy = FormDestroy
    1111  LCLVersion = '0.9.31'
    12   object Edit1: TEdit
     12  object PageControl1: TPageControl
    1313    Left = 8
     14    Height = 480
     15    Top = 8
     16    Width = 656
     17    ActivePage = TabSheet2
     18    Anchors = [akTop, akLeft, akRight, akBottom]
     19    TabIndex = 1
     20    TabOrder = 0
     21    object TabSheet1: TTabSheet
     22      Caption = 'Generator'
     23      ClientHeight = 449
     24      ClientWidth = 652
     25      object Button1: TButton
     26        Left = 11
     27        Height = 25
     28        Top = 10
     29        Width = 75
     30        Caption = 'Generate'
     31        OnClick = Button1Click
     32        TabOrder = 0
     33      end
     34      object Button2: TButton
     35        Left = 374
     36        Height = 25
     37        Top = 11
     38        Width = 75
     39        Caption = 'test'
     40        OnClick = Button2Click
     41        TabOrder = 1
     42      end
     43      object SpinEdit1: TSpinEdit
     44        Left = 99
     45        Height = 25
     46        Top = 10
     47        Width = 106
     48        MaxValue = 100000000
     49        TabOrder = 2
     50        Value = 10000
     51      end
     52      object ListView1: TListView
     53        Left = 11
     54        Height = 400
     55        Top = 43
     56        Width = 635
     57        Anchors = [akTop, akLeft, akRight, akBottom]
     58        Columns = <       
     59          item
     60            Caption = 'Number'
     61            Width = 70
     62          end       
     63          item
     64            Caption = 'Overhead'
     65            Width = 70
     66          end       
     67          item
     68            Caption = 'Value'
     69            Width = 494
     70          end>
     71        TabOrder = 3
     72        ViewStyle = vsReport
     73      end
     74    end
     75    object TabSheet2: TTabSheet
     76      Caption = 'Encoder'
     77      ClientHeight = 449
     78      ClientWidth = 652
     79      object Edit1: TEdit
     80        Left = 8
     81        Height = 25
     82        Top = 8
     83        Width = 638
     84        Anchors = [akTop, akLeft, akRight]
     85        TabOrder = 0
     86        Text = '1'
     87      end
     88      object Button3: TButton
     89        Left = 8
     90        Height = 25
     91        Top = 42
     92        Width = 142
     93        Caption = 'Encode'
     94        OnClick = Button3Click
     95        TabOrder = 1
     96      end
     97      object Edit2: TEdit
     98        Left = 6
     99        Height = 25
     100        Top = 75
     101        Width = 638
     102        Anchors = [akTop, akLeft, akRight]
     103        TabOrder = 2
     104        Text = '1'
     105      end
     106      object Button4: TButton
     107        Left = 8
     108        Height = 25
     109        Top = 107
     110        Width = 142
     111        Caption = 'Decode'
     112        OnClick = Button4Click
     113        TabOrder = 3
     114      end
     115    end
     116  end
     117  object Edit3: TEdit
     118    Left = 16
    14119    Height = 25
    15     Top = 8
    16     Width = 320
    17     TabOrder = 0
     120    Top = 176
     121    Width = 638
     122    Anchors = [akTop, akLeft, akRight]
     123    TabOrder = 1
    18124    Text = '1'
    19125  end
    20   object Button1: TButton
    21     Left = 336
    22     Height = 25
    23     Top = 5
    24     Width = 75
    25     Caption = 'Encode'
    26     OnClick = Button1Click
    27     TabOrder = 1
    28   end
    29   object Button2: TButton
    30     Left = 416
    31     Height = 25
    32     Top = 7
    33     Width = 75
    34     Caption = 'Generate'
    35     OnClick = Button2Click
    36     TabOrder = 2
    37   end
    38   object ListView1: TListView
    39     Left = 8
    40     Height = 448
    41     Top = 40
    42     Width = 536
    43     Anchors = [akTop, akLeft, akRight, akBottom]
    44     Columns = <   
    45       item
    46         Caption = 'Number'
    47         Width = 70
    48       end   
    49       item
    50         Caption = 'Overhead'
    51         Width = 70
    52       end   
    53       item
    54         Caption = 'Value'
    55         Width = 375
    56       end>
    57     TabOrder = 3
    58     ViewStyle = vsReport
    59   end
    60126end
Note: See TracChangeset for help on using the changeset viewer.