『漫游』酷论坛>『影音数码技术学习交流』>[宣传]关于KMPlayer涉嫌 ..

[宣传]关于KMPlayer涉嫌违规使用MPC源代码事件，KMPlayer作者终于出来给说法了

Amelia@2005-11-20 11:33

KMPlayer官方BBS，中午刚刚发的帖子：11:12 AM，作者 kyh96403 (Administrator)
（懂英文的可以看看。虽然作者的英文……很菜）
http://www.kmplayer.com/forums/showthread.php?t=140


KMPlayer的 pan & scan源代码（Delphi）：
复制代码
  1. procedure TMainForm.ScreenSizeCtrl(Dx,Dy,Dw,Dh : integer;isabs : Boolean);
  2. var
  3. l,t,w,h : integer;
  4. begin
  5. if isabs then begin
  6. FPanDx:=Dx;
  7. FPanDy:=Dy;
  8. FPanDw:=Dw;
  9. FPanDh:=Dh;
  10. end
  11. else begin
  12. inc(FPanDx,Dx);
  13. inc(FPanDy,Dy);
  14. inc(FPanDw,Dw);
  15. inc(FPanDh,Dh);
  16. if FPanDx<-90 then FPanDx:=-90;
  17. if FPanDy<-90 then FPanDy:=-90;
  18. if FPanDw<-90 then FPanDw:=-90;
  19. if FPanDh<-90 then FPanDh:=-90;
  20. end;
  21. l:=FLastVideoLeft+FLastVideoWidth*FPanDx div 100;
  22. t:=FLastVideoTop+FLastVideoHeight*FPanDy div 100;
  23. w:=FLastVideoWidth+FLastVideoWidth*FPanDw div 100;
  24. h:=FLastVideoHeight+FLastVideoHeight*FPanDh div 100;
  25. SetVideoArea(l,t,w,h);
  26. end;
  28. procedure TMainForm.PanScanProcess(Tag : integer);
  29. begin
  30. case Tag of
  31. 0 : begin
  32. FPanDx:=0;
  33. FPanDy:=0;
  34. FPanDw:=0;
  35. FPanDh:=0;
  36. if IsZoomed(Handle) then PersistScreenMax(True)
  37. else PersistScreenMax(FPersistScreen>0);
  38. end;
  39. 1 : ScreenAddSub(False,False);
  40. 2 : ScreenAddSub(True,False);
  41. 3 : ScreenSizeCtrl(+1,0,-2,0);
  42. 4 : ScreenSizeCtrl(-1,0,+2,0);
  43. 6 : ScreenSizeCtrl(0,+1,0,-2);
  44. 5 : ScreenSizeCtrl(0,-1,0,+2);
  45. 7 : ScreenSizeCtrl(-1,0,0,0);
  46. 8 : ScreenSizeCtrl(+1,0,0,0);
  47. 9 : ScreenSizeCtrl(0,-1,0,0);
  48. 10 : ScreenSizeCtrl(0,+1,0,0);
  49. end;
  50. end;
引用

slide@2005-11-20 13:23

晕掉,我搞不懂是他英语太菜,还是在装傻?
引用

Amelia@2005-11-20 16:28

引用
最初由 slide 发布
晕掉,我搞不懂是他英语太菜,还是在装傻?
英语菜看来是真的，装傻看来也是真的。GPL摆在那里又不是纯给人看的……
引用

MeteorRain@2005-11-23 15:41

不过我很奇怪，为什么那个论坛只有中文语言包>_>
引用
| TOP