Ignore:
Timestamp:
Jun 25, 2024, 1:37:11 AM (7 months ago)
Author:
chronos
Message:
Location:
CoolStreaming/Demo/DynNumber
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • CoolStreaming/Demo/DynNumber/DynNumberDemo.lpi

    r128 r572  
    1 <?xml version="1.0"?>
     1<?xml version="1.0" encoding="UTF-8"?>
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="9"/>
     4    <Version Value="12"/>
    55    <PathDelim Value="\"/>
    66    <General>
    7       <MainUnit Value="0"/>
     7      <Flags>
     8        <CompatibilityMode Value="True"/>
     9      </Flags>
    810      <ResourceType Value="res"/>
    911      <UseXPManifest Value="True"/>
    1012      <Icon Value="0"/>
    11       <ActiveWindowIndexAtStart Value="0"/>
    1213    </General>
    1314    <i18n>
    1415      <EnableI18N LFM="False"/>
    1516    </i18n>
    16     <VersionInfo>
    17       <StringTable ProductVersion=""/>
    18     </VersionInfo>
    1917    <BuildModes Count="1" Active="Default">
    2018      <Item1 Name="Default" Default="True"/>
    … …  
    2220    <PublishOptions>
    2321      <Version Value="2"/>
    24       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
    25       <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
    2622    </PublishOptions>
    2723    <RunParams>
    28       <local>
    29         <FormatVersion Value="1"/>
    30         <LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
    31       </local>
     24      <FormatVersion Value="2"/>
     25      <Modes Count="1">
     26        <Mode0 Name="default"/>
     27      </Modes>
    3228    </RunParams>
    3329    <RequiredPackages Count="2">
    … …  
    4339        <Filename Value="DynNumberDemo.lpr"/>
    4440        <IsPartOfProject Value="True"/>
    45         <UnitName Value="DynNumberDemo"/>
    46         <WindowIndex Value="0"/>
    47         <TopLine Value="1"/>
    4841        <CursorPos X="41" Y="19"/>
    4942        <UsageCount Value="42"/>
    … …  
    5346        <IsPartOfProject Value="True"/>
    5447        <ComponentName Value="MainForm"/>
     48        <HasResources Value="True"/>
    5549        <ResourceBaseClass Value="Form"/>
    56         <UnitName Value="UMainForm"/>
    5750        <IsVisibleTab Value="True"/>
    58         <EditorIndex Value="0"/>
    59         <WindowIndex Value="0"/>
    60         <TopLine Value="50"/>
    61         <CursorPos X="34" Y="61"/>
     51        <CursorPos X="44" Y="31"/>
    6252        <UsageCount Value="42"/>
    6353        <Loaded Value="True"/>
    … …  
    6656      <Unit2>
    6757        <Filename Value="..\..\UDynNumber.pas"/>
    68         <UnitName Value="UDynNumber"/>
    69         <EditorIndex Value="2"/>
    70         <WindowIndex Value="0"/>
    71         <TopLine Value="1"/>
     58        <EditorIndex Value="-1"/>
    7259        <CursorPos X="17" Y="10"/>
    7360        <UsageCount Value="21"/>
    74         <Loaded Value="True"/>
    7561      </Unit2>
    7662      <Unit3>
    7763        <Filename Value="..\..\UBitStream.pas"/>
    78         <UnitName Value="UBitStream"/>
    79         <EditorIndex Value="4"/>
    80         <WindowIndex Value="0"/>
     64        <EditorIndex Value="-1"/>
    8165        <TopLine Value="21"/>
    8266        <CursorPos X="35" Y="29"/>
    8367        <UsageCount Value="21"/>
    84         <Loaded Value="True"/>
    8568      </Unit3>
    8669      <Unit4>
    8770        <Filename Value="..\..\UBufferedFileStream.pas"/>
    88         <UnitName Value="UBufferedFileStream"/>
    89         <WindowIndex Value="0"/>
    9071        <TopLine Value="38"/>
    9172        <CursorPos X="30" Y="54"/>
    … …  
    9374      </Unit4>
    9475      <Unit5>
    95         <Filename Value="..\..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\classes\classesh.inc"/>
    96         <EditorIndex Value="3"/>
    97         <WindowIndex Value="0"/>
     76        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\classes\classesh.inc"/>
     77        <EditorIndex Value="-1"/>
    9878        <TopLine Value="773"/>
    9979        <CursorPos X="17" Y="789"/>
    10080        <UsageCount Value="21"/>
    101         <Loaded Value="True"/>
    10281      </Unit5>
    10382      <Unit6>
    104         <Filename Value="..\..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\classes\streams.inc"/>
    105         <WindowIndex Value="0"/>
     83        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\classes\streams.inc"/>
    10684        <TopLine Value="462"/>
    10785        <CursorPos X="19" Y="467"/>
    … …  
    10987      </Unit6>
    11088      <Unit7>
    111         <Filename Value="..\..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\sysutils\filutilh.inc"/>
    112         <WindowIndex Value="0"/>
     89        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\sysutils\filutilh.inc"/>
    11390        <TopLine Value="60"/>
    11491        <CursorPos X="10" Y="75"/>
    … …  
    11693      </Unit7>
    11794      <Unit8>
    118         <Filename Value="..\..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\sysutils.pp"/>
    119         <UnitName Value="sysutils"/>
    120         <WindowIndex Value="0"/>
     95        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\sysutils.pp"/>
    12196        <TopLine Value="435"/>
    12297        <CursorPos X="49" Y="435"/>
    … …  
    12499      </Unit8>
    125100      <Unit9>
    126         <Filename Value="..\..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\bunxovlh.inc"/>
    127         <WindowIndex Value="0"/>
     101        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\bunxovlh.inc"/>
    128102        <TopLine Value="16"/>
    129103        <CursorPos X="60" Y="32"/>
    … …  
    131105      </Unit9>
    132106      <Unit10>
    133         <Filename Value="..\..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\aliasptp.inc"/>
    134         <WindowIndex Value="0"/>
     107        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\aliasptp.inc"/>
    135108        <TopLine Value="16"/>
    136109        <CursorPos X="27" Y="32"/>
    … …  
    138111      </Unit10>
    139112      <Unit11>
    140         <Filename Value="..\..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\linux\ptypes.inc"/>
    141         <WindowIndex Value="0"/>
     113        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\linux\ptypes.inc"/>
    142114        <TopLine Value="41"/>
    143115        <CursorPos X="22" Y="57"/>
    … …  
    145117      </Unit11>
    146118      <Unit12>
    147         <Filename Value="..\..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\ctypes.inc"/>
    148         <WindowIndex Value="0"/>
     119        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\ctypes.inc"/>
    149120        <TopLine Value="21"/>
    150121        <CursorPos X="3" Y="37"/>
    … …  
    152123      </Unit12>
    153124      <Unit13>
    154         <Filename Value="..\..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\math.pp"/>
    155         <UnitName Value="math"/>
    156         <WindowIndex Value="0"/>
     125        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\math.pp"/>
    157126        <TopLine Value="308"/>
    158127        <CursorPos X="10" Y="324"/>
    … …  
    160129      </Unit13>
    161130      <Unit14>
    162         <Filename Value="..\..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\inc\mathh.inc"/>
    163         <WindowIndex Value="0"/>
     131        <Filename Value="..\..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\inc\mathh.inc"/>
    164132        <TopLine Value="62"/>
    165133        <CursorPos X="14" Y="78"/>
    … …  
    168136      <Unit15>
    169137        <Filename Value="..\..\..\..\..\lazarus\lcl\include\control.inc"/>
    170         <EditorIndex Value="1"/>
    171         <WindowIndex Value="0"/>
     138        <EditorIndex Value="-1"/>
    172139        <TopLine Value="2784"/>
    173         <CursorPos X="1" Y="2808"/>
     140        <CursorPos Y="2808"/>
    174141        <UsageCount Value="10"/>
    175         <Loaded Value="True"/>
    176142      </Unit15>
    177143    </Units>
    178     <JumpHistory Count="30" HistoryIndex="29">
    179       <Position1>
    180         <Filename Value="..\..\UDynNumber.pas"/>
    181         <Caret Line="47" Column="1" TopLine="31"/>
    182       </Position1>
    183       <Position2>
    184         <Filename Value="..\..\UDynNumber.pas"/>
    185         <Caret Line="48" Column="1" TopLine="31"/>
    186       </Position2>
    187       <Position3>
    188         <Filename Value="..\..\UDynNumber.pas"/>
    189         <Caret Line="49" Column="1" TopLine="31"/>
    190       </Position3>
    191       <Position4>
    192         <Filename Value="..\..\UDynNumber.pas"/>
    193         <Caret Line="60" Column="1" TopLine="43"/>
    194       </Position4>
    195       <Position5>
    196         <Filename Value="..\..\UDynNumber.pas"/>
    197         <Caret Line="61" Column="1" TopLine="43"/>
    198       </Position5>
    199       <Position6>
    200         <Filename Value="..\..\UDynNumber.pas"/>
    201         <Caret Line="62" Column="1" TopLine="43"/>
    202       </Position6>
    203       <Position7>
    204         <Filename Value="..\..\UDynNumber.pas"/>
    205         <Caret Line="64" Column="1" TopLine="43"/>
    206       </Position7>
    207       <Position8>
    208         <Filename Value="..\..\UDynNumber.pas"/>
    209         <Caret Line="65" Column="1" TopLine="43"/>
    210       </Position8>
    211       <Position9>
    212         <Filename Value="..\..\UDynNumber.pas"/>
    213         <Caret Line="66" Column="1" TopLine="43"/>
    214       </Position9>
    215       <Position10>
    216         <Filename Value="..\..\UDynNumber.pas"/>
    217         <Caret Line="67" Column="1" TopLine="43"/>
    218       </Position10>
    219       <Position11>
    220         <Filename Value="..\..\UDynNumber.pas"/>
    221         <Caret Line="50" Column="1" TopLine="43"/>
    222       </Position11>
    223       <Position12>
    224         <Filename Value="..\..\UDynNumber.pas"/>
    225         <Caret Line="51" Column="1" TopLine="43"/>
    226       </Position12>
    227       <Position13>
    228         <Filename Value="..\..\UDynNumber.pas"/>
    229         <Caret Line="52" Column="1" TopLine="43"/>
    230       </Position13>
    231       <Position14>
    232         <Filename Value="..\..\UDynNumber.pas"/>
    233         <Caret Line="53" Column="2" TopLine="40"/>
    234       </Position14>
    235       <Position15>
    236         <Filename Value="..\..\UDynNumber.pas"/>
    237         <Caret Line="47" Column="1" TopLine="40"/>
    238       </Position15>
    239       <Position16>
    240         <Filename Value="..\..\UDynNumber.pas"/>
    241         <Caret Line="48" Column="1" TopLine="40"/>
    242       </Position16>
    243       <Position17>
    244         <Filename Value="..\..\UDynNumber.pas"/>
    245         <Caret Line="49" Column="1" TopLine="40"/>
    246       </Position17>
    247       <Position18>
    248         <Filename Value="..\..\UDynNumber.pas"/>
    249         <Caret Line="60" Column="1" TopLine="40"/>
    250       </Position18>
    251       <Position19>
    252         <Filename Value="..\..\UDynNumber.pas"/>
    253         <Caret Line="61" Column="1" TopLine="40"/>
    254       </Position19>
    255       <Position20>
    256         <Filename Value="..\..\UDynNumber.pas"/>
    257         <Caret Line="62" Column="1" TopLine="40"/>
    258       </Position20>
    259       <Position21>
    260         <Filename Value="..\..\UDynNumber.pas"/>
    261         <Caret Line="64" Column="1" TopLine="40"/>
    262       </Position21>
    263       <Position22>
    264         <Filename Value="..\..\UDynNumber.pas"/>
    265         <Caret Line="65" Column="1" TopLine="40"/>
    266       </Position22>
    267       <Position23>
    268         <Filename Value="..\..\UDynNumber.pas"/>
    269         <Caret Line="66" Column="1" TopLine="40"/>
    270       </Position23>
    271       <Position24>
    272         <Filename Value="..\..\UDynNumber.pas"/>
    273         <Caret Line="67" Column="1" TopLine="40"/>
    274       </Position24>
    275       <Position25>
    276         <Filename Value="..\..\UDynNumber.pas"/>
    277         <Caret Line="50" Column="1" TopLine="40"/>
    278       </Position25>
    279       <Position26>
    280         <Filename Value="..\..\UDynNumber.pas"/>
    281         <Caret Line="51" Column="1" TopLine="40"/>
    282       </Position26>
    283       <Position27>
    284         <Filename Value="..\..\UDynNumber.pas"/>
    285         <Caret Line="65" Column="30" TopLine="39"/>
    286       </Position27>
    287       <Position28>
    288         <Filename Value="..\..\UBitStream.pas"/>
    289         <Caret Line="162" Column="5" TopLine="150"/>
    290       </Position28>
    291       <Position29>
    292         <Filename Value="..\..\UBitStream.pas"/>
    293         <Caret Line="163" Column="31" TopLine="150"/>
    294       </Position29>
    295       <Position30>
    296         <Filename Value="..\..\UBitStream.pas"/>
    297         <Caret Line="161" Column="14" TopLine="146"/>
    298       </Position30>
    299     </JumpHistory>
     144    <JumpHistory HistoryIndex="-1"/>
    300145  </ProjectOptions>
    301146  <CompilerOptions>
    302     <Version Value="9"/>
     147    <Version Value="11"/>
    303148    <PathDelim Value="\"/>
    304149    <Target>
    … …  
    309154      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    310155    </SearchPaths>
     156    <Parsing>
     157      <SyntaxOptions>
     158        <SyntaxMode Value="Delphi"/>
     159      </SyntaxOptions>
     160    </Parsing>
    311161    <CodeGeneration>
    312162      <Checks>
    … …  
    319169    <Linking>
    320170      <Debugging>
     171        <DebugInfoType Value="dsDwarf3"/>
    321172        <UseHeaptrc Value="True"/>
    322173      </Debugging>
    … …  
    327178      </Options>
    328179    </Linking>
    329     <Other>
    330       <CompilerMessages>
    331         <UseMsgFile Value="True"/>
    332       </CompilerMessages>
    333       <CompilerPath Value="$(CompPath)"/>
    334     </Other>
    335180  </CompilerOptions>
    336181  <Debugging>

  • CoolStreaming/Demo/DynNumber/DynNumberDemo.lpr

    r126 r572  
    2020  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
    2121
     22  Application.Title:='';
    2223  Application.Initialize;
    2324  Application.CreateForm(TMainForm, MainForm);

  • CoolStreaming/Demo/DynNumber/UMainForm.lfm

    r128 r572  
    11object MainForm: TMainForm
    22  Left = 321
    3   Height = 495
     3  Height = 742
    44  Top = 114
    5   Width = 669
     5  Width = 1004
    66  Caption = 'DynNumber Demo'
    7   ClientHeight = 495
    8   ClientWidth = 669
     7  ClientHeight = 742
     8  ClientWidth = 1004
     9  DesignTimePPI = 144
    910  OnCreate = FormCreate
    1011  OnDestroy = FormDestroy
    11   LCLVersion = '0.9.31'
     12  LCLVersion = '3.4.0.0'
    1213  object PageControl1: TPageControl
    13     Left = 8
    14     Height = 480
    15     Top = 8
    16     Width = 656
     14    Left = 12
     15    Height = 720
     16    Top = 12
     17    Width = 984
    1718    ActivePage = TabSheet2
    1819    Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    2122    object TabSheet1: TTabSheet
    2223      Caption = 'Generator'
    23       ClientHeight = 449
    24       ClientWidth = 652
     24      ClientHeight = 680
     25      ClientWidth = 974
    2526      object Button1: TButton
    26         Left = 11
    27         Height = 25
    28         Top = 10
    29         Width = 75
     27        Left = 16
     28        Height = 38
     29        Top = 15
     30        Width = 112
    3031        Caption = 'Generate'
     32        TabOrder = 0
    3133        OnClick = Button1Click
    32         TabOrder = 0
    3334      end
    3435      object Button2: TButton
    35         Left = 374
    36         Height = 25
    37         Top = 11
    38         Width = 75
     36        Left = 561
     37        Height = 38
     38        Top = 16
     39        Width = 112
    3940        Caption = 'test'
     41        TabOrder = 1
    4042        OnClick = Button2Click
    41         TabOrder = 1
    4243      end
    4344      object SpinEdit1: TSpinEdit
    44         Left = 99
    45         Height = 25
    46         Top = 10
    47         Width = 106
     45        Left = 148
     46        Height = 43
     47        Top = 15
     48        Width = 159
    4849        MaxValue = 100000000
    4950        TabOrder = 2
    … …  
    5152      end
    5253      object ListView1: TListView
    53         Left = 11
    54         Height = 400
    55         Top = 43
    56         Width = 635
     54        Left = 16
     55        Height = 607
     56        Top = 64
     57        Width = 949
    5758        Anchors = [akTop, akLeft, akRight, akBottom]
    5859        Columns = <       
    5960          item
    6061            Caption = 'Number'
    61             Width = 70
     62            Width = 105
    6263          end       
    6364          item
    6465            Caption = 'Overhead'
    65             Width = 70
     66            Width = 105
    6667          end       
    6768          item
    6869            Caption = 'Value'
    69             Width = 494
     70            Width = 741
    7071          end>
    7172        TabOrder = 3
    … …  
    7576    object TabSheet2: TTabSheet
    7677      Caption = 'Encoder'
    77       ClientHeight = 449
    78       ClientWidth = 652
     78      ClientHeight = 680
     79      ClientWidth = 974
    7980      object Edit1: TEdit
    80         Left = 8
    81         Height = 25
    82         Top = 8
    83         Width = 638
     81        Left = 12
     82        Height = 43
     83        Top = 12
     84        Width = 953
    8485        Anchors = [akTop, akLeft, akRight]
    8586        TabOrder = 0
    … …  
    8788      end
    8889      object Button3: TButton
    89         Left = 8
    90         Height = 25
    91         Top = 42
    92         Width = 142
     90        Left = 12
     91        Height = 38
     92        Top = 63
     93        Width = 213
    9394        Caption = 'Encode'
     95        TabOrder = 1
    9496        OnClick = Button3Click
    95         TabOrder = 1
    9697      end
    9798      object Edit2: TEdit
    98         Left = 6
    99         Height = 25
    100         Top = 75
    101         Width = 638
     99        Left = 9
     100        Height = 43
     101        Top = 112
     102        Width = 953
    102103        Anchors = [akTop, akLeft, akRight]
    103104        TabOrder = 2
    … …  
    105106      end
    106107      object Button4: TButton
    107         Left = 8
    108         Height = 25
    109         Top = 107
    110         Width = 142
     108        Left = 12
     109        Height = 38
     110        Top = 160
     111        Width = 213
    111112        Caption = 'Decode'
     113        TabOrder = 3
    112114        OnClick = Button4Click
    113         TabOrder = 3
    114115      end
    115116    end
    116117  end
    117118  object Edit3: TEdit
    118     Left = 16
    119     Height = 25
    120     Top = 176
    121     Width = 638
     119    Left = 24
     120    Height = 43
     121    Top = 264
     122    Width = 958
    122123    Anchors = [akTop, akLeft, akRight]
    123124    TabOrder = 1

  • CoolStreaming/Demo/DynNumber/UMainForm.pas

    r128 r572  
    11unit UMainForm;
    2 
    3 {$mode objfpc}{$H+}
    42
    53interface
    … …  
    75uses
    86  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   ComCtrls, Spin, UDynNumber, Math;
     7  ComCtrls, Spin, DynNumber, Math;
    108
    119type
Note: See TracChangeset for help on using the changeset viewer.