Changeset 572 for CoolStreaming/Demo/VarBlockSerializer/UMainForm.lfm
- Timestamp:
- Jun 25, 2024, 1:37:11 AM (3 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
CoolStreaming/Demo/VarBlockSerializer/UMainForm.lfm
r174 r572 1 1 object MainForm: TMainForm 2 2 Left = 263 3 Height = 4053 Height = 608 4 4 Top = 119 5 Width = 6445 Width = 966 6 6 Caption = 'VarBlockSerializer demo' 7 ClientHeight = 405 8 ClientWidth = 644 7 ClientHeight = 608 8 ClientWidth = 966 9 DesignTimePPI = 144 9 10 OnShow = FormShow 10 LCLVersion = ' 0.9.31'11 LCLVersion = '3.4.0.0' 11 12 object PageControl1: TPageControl 12 Left = 813 Height = 39214 Top = 815 Width = 63213 Left = 12 14 Height = 588 15 Top = 12 16 Width = 948 16 17 ActivePage = TabSheet1 17 18 Anchors = [akTop, akLeft, akRight, akBottom] … … 20 21 object TabSheet1: TTabSheet 21 22 Caption = 'Simple types' 22 ClientHeight = 36623 ClientWidth = 62423 ClientHeight = 548 24 ClientWidth = 938 24 25 object GroupBox1: TGroupBox 25 Left = 826 Height = 6427 Top = 828 Width = 60826 Left = 12 27 Height = 96 28 Top = 12 29 Width = 912 29 30 Caption = 'Unsigned integer (UInt)' 30 ClientHeight = 4631 ClientWidth = 60431 ClientHeight = 69 32 ClientWidth = 910 32 33 TabOrder = 0 33 34 object SpinEditUInt: TSpinEdit 34 Left = 635 Height = 2136 Top = 837 Width = 15235 Left = 9 36 Height = 43 37 Top = 12 38 Width = 228 38 39 MaxValue = 1000000000 39 40 TabOrder = 0 … … 41 42 end 42 43 object ButtonUIntEncode: TButton 43 Left = 246 44 Height = 25 45 Top = 8 46 Width = 75 47 Caption = 'Encode >>' 44 Left = 369 45 Height = 38 46 Top = 12 47 Width = 112 48 Caption = 'Encode >>' 49 TabOrder = 1 48 50 OnClick = ButtonUIntEncodeClick 49 TabOrder = 150 51 end 51 52 object EditUInt: TEdit 52 Left = 32653 Height = 2154 Top = 855 Width = 26953 Left = 489 54 Height = 43 55 Top = 12 56 Width = 404 56 57 TabOrder = 2 57 58 Text = '00' 58 59 end 59 60 object ButtonUIntDecode: TButton 60 Left = 166 61 Height = 25 62 Top = 8 63 Width = 75 64 Caption = '<< Decode' 61 Left = 249 62 Height = 38 63 Top = 12 64 Width = 112 65 Caption = '<< Decode' 66 TabOrder = 3 65 67 OnClick = ButtonUIntDecodeClick 66 TabOrder = 367 68 end 68 69 end 69 70 object GroupBox2: TGroupBox 70 Left = 871 Height = 6472 Top = 8073 Width = 60871 Left = 12 72 Height = 96 73 Top = 120 74 Width = 912 74 75 Caption = 'Signed integer (SInt)' 75 ClientHeight = 4676 ClientWidth = 60476 ClientHeight = 69 77 ClientWidth = 910 77 78 TabOrder = 1 78 79 object SpinEditSInt: TSpinEdit 79 Left = 680 Height = 2181 Top = 882 Width = 15280 Left = 9 81 Height = 43 82 Top = 12 83 Width = 228 83 84 MaxValue = 1000000000 84 85 MinValue = -1000000000 … … 87 88 end 88 89 object ButtonSIntEncode: TButton 89 Left = 246 90 Height = 25 91 Top = 8 92 Width = 75 93 Caption = 'Encode >>' 90 Left = 369 91 Height = 38 92 Top = 12 93 Width = 112 94 Caption = 'Encode >>' 95 TabOrder = 1 94 96 OnClick = ButtonSIntEncodeClick 95 TabOrder = 196 97 end 97 98 object EditSInt: TEdit 98 Left = 32699 Height = 21100 Top = 8101 Width = 26999 Left = 489 100 Height = 43 101 Top = 12 102 Width = 404 102 103 TabOrder = 2 103 104 Text = '00' 104 105 end 105 106 object ButtonSIntDecode: TButton 106 Left = 166 107 Height = 25 108 Top = 8 109 Width = 75 110 Caption = '<< Decode' 107 Left = 249 108 Height = 38 109 Top = 12 110 Width = 112 111 Caption = '<< Decode' 112 TabOrder = 3 111 113 OnClick = ButtonSIntDecodeClick 112 TabOrder = 3113 114 end 114 115 end 115 116 object GroupBox3: TGroupBox 116 Left = 8117 Height = 64118 Top = 152119 Width = 608117 Left = 12 118 Height = 96 119 Top = 228 120 Width = 912 120 121 Caption = 'String' 121 ClientHeight = 46122 ClientWidth = 604122 ClientHeight = 69 123 ClientWidth = 910 123 124 TabOrder = 2 124 125 object ButtonEncodeString: TButton 125 Left = 246 126 Height = 25 127 Top = 8 128 Width = 75 129 Caption = 'Encode >>' 126 Left = 369 127 Height = 38 128 Top = 12 129 Width = 112 130 Caption = 'Encode >>' 131 TabOrder = 0 130 132 OnClick = ButtonEncodeStringClick 131 TabOrder = 0132 133 end 133 134 object EditStringData: TEdit 134 Left = 326135 Height = 21136 Top = 8137 Width = 269135 Left = 489 136 Height = 43 137 Top = 12 138 Width = 404 138 139 TabOrder = 1 139 140 Text = '00' 140 141 end 141 142 object ButtonDecodeString: TButton 142 Left = 166 143 Height = 25 144 Top = 8 145 Width = 75 146 Caption = '<< Decode' 143 Left = 249 144 Height = 38 145 Top = 12 146 Width = 112 147 Caption = '<< Decode' 148 TabOrder = 2 147 149 OnClick = ButtonDecodeStringClick 148 TabOrder = 2149 150 end 150 151 object EditString: TEdit 151 Left = 6152 Height = 21153 Top = 8154 Width = 152152 Left = 9 153 Height = 43 154 Top = 12 155 Width = 228 155 156 TabOrder = 3 156 157 Text = 'Hello world' … … 158 159 end 159 160 object GroupBox4: TGroupBox 160 Left = 8161 Height = 64162 Top = 224163 Width = 608161 Left = 12 162 Height = 96 163 Top = 336 164 Width = 912 164 165 Caption = 'Raw data (Block)' 165 ClientHeight = 46166 ClientWidth = 604166 ClientHeight = 69 167 ClientWidth = 910 167 168 TabOrder = 3 168 169 object ButtonEncodeRaw: TButton 169 Left = 246 170 Height = 25 171 Top = 8 172 Width = 75 173 Caption = 'Encode >>' 170 Left = 369 171 Height = 38 172 Top = 12 173 Width = 112 174 Caption = 'Encode >>' 175 TabOrder = 0 174 176 OnClick = ButtonEncodeRawClick 175 TabOrder = 0176 177 end 177 178 object EditRawData: TEdit 178 Left = 326179 Height = 21180 Top = 8181 Width = 269179 Left = 489 180 Height = 43 181 Top = 12 182 Width = 404 182 183 TabOrder = 1 183 184 Text = '00' 184 185 end 185 186 object ButtonDecodeRaw: TButton 186 Left = 166 187 Height = 25 188 Top = 8 189 Width = 75 190 Caption = '<< Decode' 187 Left = 249 188 Height = 38 189 Top = 12 190 Width = 112 191 Caption = '<< Decode' 192 TabOrder = 2 191 193 OnClick = ButtonDecodeRawClick 192 TabOrder = 2193 194 end 194 195 object EditRaw: TEdit 195 Left = 6196 Height = 21197 Top = 8198 Width = 152196 Left = 9 197 Height = 43 198 Top = 12 199 Width = 228 199 200 TabOrder = 3 200 201 Text = '01 23 45 67 89 AB CD EF' … … 202 203 end 203 204 object GroupBox5: TGroupBox 204 Left = 8205 Height = 64206 Top = 296207 Width = 608205 Left = 12 206 Height = 96 207 Top = 444 208 Width = 912 208 209 Caption = 'Float' 209 ClientHeight = 46210 ClientWidth = 604210 ClientHeight = 69 211 ClientWidth = 910 211 212 TabOrder = 4 212 213 object ButtonFloatEncode1: TButton 213 Left = 246 214 Height = 25 215 Top = 8 216 Width = 75 217 Caption = 'Encode >>' 214 Left = 369 215 Height = 38 216 Top = 12 217 Width = 112 218 Caption = 'Encode >>' 219 TabOrder = 0 218 220 OnClick = ButtonFloatEncode1Click 219 TabOrder = 0220 221 end 221 222 object EditFloat: TEdit 222 Left = 326223 Height = 21224 Top = 8225 Width = 269223 Left = 489 224 Height = 43 225 Top = 12 226 Width = 404 226 227 TabOrder = 1 227 228 Text = '00' 228 229 end 229 230 object ButtonFloatDecode1: TButton 230 Left = 166 231 Height = 25 232 Top = 7 233 Width = 75 234 Caption = '<< Decode' 231 Left = 249 232 Height = 38 233 Top = 10 234 Width = 112 235 Caption = '<< Decode' 236 TabOrder = 2 235 237 OnClick = ButtonFloatDecode1Click 236 TabOrder = 2237 238 end 238 239 object FloatSpinEdit1: TFloatSpinEdit 239 Left = 6240 Height = 21241 Top = 7242 Width = 96240 Left = 9 241 Height = 43 242 Top = 10 243 Width = 144 243 244 DecimalPlaces = 8 244 Increment = 1245 245 MaxValue = 1000000000 246 246 MinValue = -100000000 247 247 TabOrder = 3 248 Value = 0249 248 end 250 249 object SpinEditFloat: TSpinEdit 251 Left = 1 10252 Height = 21253 Top = 16254 Width = 50250 Left = 165 251 Height = 43 252 Top = 24 253 Width = 75 255 254 MaxValue = 16 256 255 MinValue = 2 … … 259 258 end 260 259 object Label1: TLabel 261 Left = 1 11262 Height = 14260 Left = 166 261 Height = 26 263 262 Top = 0 264 Width = 24263 Width = 41 265 264 Caption = 'Base' 266 265 ParentColor = False … … 270 269 object TabSheet2: TTabSheet 271 270 Caption = 'Indexed structure' 272 ClientHeight = 366273 ClientWidth = 624271 ClientHeight = 548 272 ClientWidth = 938 274 273 object EditIndexedItem1: TEdit 275 Left = 36276 Height = 21277 Top = 34278 Width = 224274 Left = 54 275 Height = 43 276 Top = 51 277 Width = 336 279 278 TabOrder = 0 280 279 Text = '11 22' 281 280 end 282 281 object Label2: TLabel 283 Left = 1 0284 Height = 14285 Top = 38286 Width = 14282 Left = 15 283 Height = 26 284 Top = 57 285 Width = 20 287 286 Caption = '0: ' 288 287 ParentColor = False 289 288 end 290 289 object Label3: TLabel 291 Left = 1 0292 Height = 14293 Top = 61294 Width = 1 1290 Left = 15 291 Height = 26 292 Top = 92 293 Width = 15 295 294 Caption = '1:' 296 295 ParentColor = False 297 296 end 298 297 object EditIndexedItem2: TEdit 299 Left = 36300 Height = 21301 Top = 58302 Width = 224298 Left = 54 299 Height = 43 300 Top = 87 301 Width = 336 303 302 TabOrder = 1 304 303 Text = '33 44' 305 304 end 306 305 object EditIndexedItem3: TEdit 307 Left = 36308 Height = 21309 Top = 86310 Width = 224306 Left = 54 307 Height = 43 308 Top = 129 309 Width = 336 311 310 TabOrder = 2 312 311 Text = '55 66' 313 312 end 314 313 object Label4: TLabel 315 Left = 1 0316 Height = 14317 Top = 89318 Width = 1 1314 Left = 15 315 Height = 26 316 Top = 134 317 Width = 15 319 318 Caption = '2:' 320 319 ParentColor = False 321 320 end 322 321 object ButtonEncodeIndexed: TButton 323 Left = 156324 Height = 25325 Top = 1 22326 Width = 75322 Left = 234 323 Height = 38 324 Top = 183 325 Width = 112 327 326 Caption = 'Encode >>' 327 TabOrder = 3 328 328 OnClick = ButtonEncodeIndexedClick 329 TabOrder = 3330 329 end 331 330 object ButtonDecodeIndexed: TButton 332 Left = 68333 Height = 25334 Top = 1 22335 Width = 75331 Left = 102 332 Height = 38 333 Top = 183 334 Width = 112 336 335 Caption = '<< Decode' 336 TabOrder = 4 337 337 OnClick = ButtonDecodeIndexedClick 338 TabOrder = 4339 338 end 340 339 object EditIndexed: TEdit 341 Left = 1 0342 Height = 21343 Top = 154344 Width = 588340 Left = 15 341 Height = 43 342 Top = 231 343 Width = 882 345 344 TabOrder = 5 346 345 end 347 346 object CheckBoxMask1: TCheckBox 348 Left = 284349 Height = 17350 Top = 34351 Width = 2 0347 Left = 426 348 Height = 23 349 Top = 51 350 Width = 23 352 351 Checked = True 353 352 State = cbChecked … … 355 354 end 356 355 object CheckBoxMask2: TCheckBox 357 Left = 284358 Height = 17359 Top = 59360 Width = 2 0356 Left = 426 357 Height = 23 358 Top = 88 359 Width = 23 361 360 Checked = True 362 361 State = cbChecked … … 364 363 end 365 364 object CheckBoxMask3: TCheckBox 366 Left = 284367 Height = 17368 Top = 88369 Width = 2 0365 Left = 426 366 Height = 23 367 Top = 132 368 Width = 23 370 369 Checked = True 371 370 State = cbChecked … … 373 372 end 374 373 object Label5: TLabel 375 Left = 268376 Height = 14377 Top = 18378 Width = 40374 Left = 402 375 Height = 26 376 Top = 27 377 Width = 74 379 378 Caption = 'Bit mask' 380 379 ParentColor = False 381 380 end 382 381 object Label6: TLabel 383 Left = 8384 Height = 14385 Top = 1 1386 Width = 29382 Left = 12 383 Height = 26 384 Top = 16 385 Width = 48 387 386 Caption = 'Index' 388 387 ParentColor = False
Note:
See TracChangeset
for help on using the changeset viewer.
