📄 videounit.pas
字号:
|
0058B0B3 8B8040030000 mov eax, [eax+$0340]
* Reference to field TspSkinPanel.OFFS_0160
|
0058B0B9 8B8060010000 mov eax, [eax+$0160]
0058B0BF C740202000CC00 mov dword ptr [eax+$20], $00CC0020
0058B0C6 8B55F4 mov edx, [ebp-$0C]
0058B0C9 0355EC add edx, [ebp-$14]
0058B0CC 52 push edx
0058B0CD 8B55F0 mov edx, [ebp-$10]
0058B0D0 03D7 add edx, edi
0058B0D2 52 push edx
0058B0D3 8B4DF0 mov ecx, [ebp-$10]
0058B0D6 8B55F4 mov edx, [ebp-$0C]
* Reference to: Graphics.TCanvas.Ellipse(TCanvas;Integer;Integer;Integer;Integer);overload;
| or: Graphics.TCanvas.Rectangle(TCanvas;Integer;Integer;Integer;Integer);overload;
|
0058B0D9 E872D5E9FF call 00428650
0058B0DE 8B45FC mov eax, [ebp-$04]
* Reference to control Panel2 : TspSkinPanel
|
0058B0E1 8B8040030000 mov eax, [eax+$0340]
* Reference to field TspSkinPanel.OFFS_0160
|
0058B0E7 8B8060010000 mov eax, [eax+$0160]
0058B0ED 8B4010 mov eax, [eax+$10]
0058B0F0 BA00800000 mov edx, $00008000
* Reference to: Graphics.TPen.SetColor(TPen;TColor);
|
0058B0F5 E8FECCE9FF call 00427DF8
0058B0FA 8B5DEC mov ebx, [ebp-$14]
0058B0FD 4B dec ebx
0058B0FE 85DB test ebx, ebx
0058B100 0F8CBE000000 jl 0058B1C4
0058B106 43 inc ebx
0058B107 33F6 xor esi, esi
0058B109 89B5D8D8FFFF mov [ebp+$FFFFD8D8], esi
0058B10F DB85D8D8FFFF fild dword ptr [ebp+$FFFFD8D8]
0058B115 DB45EC fild dword ptr [ebp-$14]
0058B118 DEF9 fdivp st(1), st(0)
0058B11A 8B4508 mov eax, [ebp+$08]
0058B11D 8985D0D8FFFF mov [ebp+$FFFFD8D0], eax
0058B123 33C0 xor eax, eax
0058B125 8985D4D8FFFF mov [ebp+$FFFFD8D4], eax
0058B12B DFADD0D8FFFF fild qword ptr [ebp+$FFFFD8D0]
0058B131 DEC9 fmulp st(1), st(0)
* Reference to: System.@TRUNC;
|
0058B133 E8A07BE7FF call 00402CD8
0058B138 8945F8 mov [ebp-$08], eax
0058B13B 8BCF mov ecx, edi
0058B13D D1F9 sar ecx, 1
0058B13F 7903 jns 0058B144
0058B141 83D100 adc ecx, +$00
0058B144 034DF0 add ecx, [ebp-$10]
0058B147 8B55F4 mov edx, [ebp-$0C]
0058B14A 03D6 add edx, esi
0058B14C 8B45FC mov eax, [ebp-$04]
* Reference to control Panel2 : TspSkinPanel
|
0058B14F 8B8040030000 mov eax, [eax+$0340]
* Reference to field TspSkinPanel.OFFS_0160
|
0058B155 8B8060010000 mov eax, [eax+$0160]
* Reference to: Graphics.TCanvas.MoveTo(TCanvas;Integer;Integer);
|
0058B15B E854D4E9FF call 004285B4
0058B160 8B45F8 mov eax, [ebp-$08]
0058B163 0FB68405DBD8FFFF movzx eax, byte ptr [ebp+eax+$FFFFD8DB]
0058B16B 2D80000000 sub eax, $00000080
0058B170 8985D8D8FFFF mov [ebp+$FFFFD8D8], eax
0058B176 DB85D8D8FFFF fild dword ptr [ebp+$FFFFD8D8]
0058B17C D835E4B15800 fdiv dword ptr [$0058B1E4]
0058B182 89BDCCD8FFFF mov [ebp+$FFFFD8CC], edi
0058B188 DB85CCD8FFFF fild dword ptr [ebp+$FFFFD8CC]
0058B18E DEC9 fmulp st(1), st(0)
* Reference to: System.@ROUND;
|
0058B190 E8377BE7FF call 00402CCC
0058B195 8BCF mov ecx, edi
0058B197 D1F9 sar ecx, 1
0058B199 7903 jns 0058B19E
0058B19B 83D100 adc ecx, +$00
0058B19E 034DF0 add ecx, [ebp-$10]
0058B1A1 2BC8 sub ecx, eax
0058B1A3 8B55F4 mov edx, [ebp-$0C]
0058B1A6 03D6 add edx, esi
0058B1A8 8B45FC mov eax, [ebp-$04]
* Reference to control Panel2 : TspSkinPanel
|
0058B1AB 8B8040030000 mov eax, [eax+$0340]
* Reference to field TspSkinPanel.OFFS_0160
|
0058B1B1 8B8060010000 mov eax, [eax+$0160]
* Reference to: Graphics.TCanvas.LineTo(TCanvas;Integer;Integer);
|
0058B1B7 E898D3E9FF call 00428554
0058B1BC 46 inc esi
0058B1BD 4B dec ebx
0058B1BE 0F8545FFFFFF jnz 0058B109
0058B1C4 33C0 xor eax, eax
0058B1C6 5A pop edx
0058B1C7 59 pop ecx
0058B1C8 59 pop ecx
0058B1C9 648910 mov fs:[eax], edx
0058B1CC EB0A jmp 0058B1D8
* Reference to: System.@HandleAnyException;
|
0058B1CE E9098FE7FF jmp 004040DC
* Reference to: System.@DoneExcept;
|
0058B1D3 E86C92E7FF call 00404444
****** END
|
0058B1D8 5F pop edi
0058B1D9 5E pop esi
0058B1DA 5B pop ebx
0058B1DB 8BE5 mov esp, ebp
0058B1DD 5D pop ebp
0058B1DE C20400 ret $0004
*)
end;
procedure TVideoForm.WaveOutFeedChunk(Sender : TObject);
begin
(*
0058B1E8 55 push ebp
0058B1E9 8BEC mov ebp, esp
0058B1EB 53 push ebx
0058B1EC 56 push esi
0058B1ED 57 push edi
0058B1EE 8BF1 mov esi, ecx
0058B1F0 8BD8 mov ebx, eax
0058B1F2 33C0 xor eax, eax
0058B1F4 55 push ebp
0058B1F5 6831B25800 push $0058B231
***** TRY
|
0058B1FA 64FF30 push dword ptr fs:[eax]
0058B1FD 648920 mov fs:[eax], esp
* Reference to control TVideoForm.WaveWrite : TunavclWaveRiff
|
0058B200 8B8358030000 mov eax, [ebx+$0358]
|
0058B206 E809ACFBFF call 00545E14
0058B20B 83F801 cmp eax, +$01
0058B20E 1BC0 sbb eax, eax
0058B210 40 inc eax
0058B211 3C01 cmp al, $01
0058B213 7512 jnz 0058B227
0058B215 6A00 push $00
* Reference to control TVideoForm.WaveWrite : TunavclWaveRiff
|
0058B217 8B8358030000 mov eax, [ebx+$0358]
0058B21D 8B4D08 mov ecx, [ebp+$08]
0058B220 8BD6 mov edx, esi
|
0058B222 E8BDB1FBFF call 005463E4
0058B227 33C0 xor eax, eax
0058B229 5A pop edx
0058B22A 59 pop ecx
0058B22B 59 pop ecx
0058B22C 648910 mov fs:[eax], edx
0058B22F EB0A jmp 0058B23B
* Reference to: System.@HandleAnyException;
|
0058B231 E9A68EE7FF jmp 004040DC
* Reference to: System.@DoneExcept;
|
0058B236 E80992E7FF call 00404444
****** END
|
0058B23B 5F pop edi
0058B23C 5E pop esi
0058B23D 5B pop ebx
0058B23E 5D pop ebp
0058B23F C20400 ret $0004
*)
end;
procedure TVideoForm.AudioSaveCheckBoxClick(Sender : TObject);
begin
(*
0058B244 55 push ebp
0058B245 8BEC mov ebp, esp
0058B247 83C4A4 add esp, -$5C
0058B24A 53 push ebx
0058B24B 33C9 xor ecx, ecx
0058B24D 894DD4 mov [ebp-$2C], ecx
0058B250 894DDC mov [ebp-$24], ecx
0058B253 894DD8 mov [ebp-$28], ecx
0058B256 894DFC mov [ebp-$04], ecx
0058B259 894DF8 mov [ebp-$08], ecx
0058B25C 8BD8 mov ebx, eax
0058B25E 33C0 xor eax, eax
0058B260 55 push ebp
* Possible String Reference to: '橹忕⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -