freepascal.ru

Код: Выделить всё

// ======================================================= 
//               resize video out
// ======================================================= 
procedure tmainfo.resizevideo(screenwidth, screenheight : integer);
var r : real;
    t : integer;
begin
  if screenheight = 0 then exit;
    
  ww_videoout.top := 0;
  ww_videoout.left := 0;
  ww_videoout.height := s_video.height;
  ww_videoout.width:=s_video.width;
  if ber_1.value = true then  r := screenwidth / screenheight;
  if ber_2.value = true then  r := 4 / 3;
  if ber_3.value = true then  r := 16 / 9;

  ww_videoout.width  := round(ww_videoout.height * r);

  if ww_videoout.width < s_video.width
     then ww_videoout.left := (s_video.width - ww_videoout.width) div 2
     else begin
           ww_videoout.width := s_video.width;
           ww_videoout.height := round(ww_videoout.width / r);
           ww_videoout.top := (s_video.height - ww_videoout.height) div 2;
        end;
end;

Код: Выделить всё

To do this, the code needs to know the physical aspect ratio of the
source video, together with the physical aspect ratio of your output
display. That is: the width:height ratio represented by the x and y
pixels in the input file or on the output display.

Код: Выделить всё

procedure tmenufo.on_choose_source(const sender: TObject);
begin
  if not mainfo.s_playlist.visible 
          then begin 
               mainfo.s_playlist.visible := true;
                  mainfo.l_video.width := mainfo.width - mainfo.s_playlist.width;
               mainfo.on_resize(sender);
               end;
  mainfo.tw_playlist.activepageindex := (sender as trichstockglyphbutton).tag;
end;

Код: Выделить всё

// ======================================================= 
//               key events 
// ======================================================= 
procedure tmainfo.on_keyup(const sender: twidget; var ainfo: keyeventinfoty);
begin 
  if (ainfo.key = key_F10) then close;
  if ainfo.key = key_Escape then 
     if fullscreen then on_fullscreen(sender);
  if (ainfo.key = key_Slash)  then on_showvideosettings(sender);    
  if (ainfo.key = key_Delete) then on_deleteformplaylist(sender);
  if (ainfo.key = key_Return) then begin 
                                     player.tracknum := sg_playlist.row;
                            player.volume := round(mainfo.sl_volume.value * 100);
                              player.play;
                           end;          
  if (ainfo.key = key_F) then on_fullscreen(sender);
  if (ainfo.key = key_Z) then on_prev(sender);
  if (ainfo.key = key_X) or (ainfo.key = key_Space) then on_play(sender);
  if (ainfo.key = key_C) then on_stop(sender);
  if (ainfo.key = key_V) then on_next(sender);
  if (ainfo.key = key_R) then begin 
                             be_repeatplaylist.value := not be_repeatplaylist.value;
                             player.repeatplaylist := be_repeatplaylist.value;
                         end;
  if (ainfo.key = key_S) then begin 
                             be_shufle.value := not be_shufle.value;
                             player.shuffleplaylist := be_shufle.value;
                         end;
  if (ainfo.key = key_D) then begin 
                             be_nexttrackallow.value := not be_nexttrackallow.value;
                             player.PlayNextTrackAllow := be_nexttrackallow.value;
                         end;
  if (ainfo.key = key_P) then on_show_hide_sources(sender);       
  if (ainfo.key = key_M) then on_mute(sender);
  if (ainfo.key = key_Left)  then player.position := player.position - 5;
  if (ainfo.key = key_Right) then player.position := player.position + 5;
  if (ainfo.key = key_Up) then 
                            if sl_volume.value < 1 then
                               begin 
                          sl_volume.value := sl_volume.value + 0.05;
                          player.volume := round(sl_volume.value * 100);
                        end; 
  if (ainfo.key = key_Down) then 
                            if sl_volume.value > 0 then
                               begin 
                          sl_volume.value := sl_volume.value - 0.05;
                          player.volume := round(sl_volume.value * 100);
                        end; 
end;

Код: Выделить всё

fterm.writestrln

Код: Выделить всё

//key // xterm default bindings
  CINTR    = 003; // ^C
  CQUIT    = 034; // ^\
  CERASE   = 177; // ^?
  CKILL    = 025; // ^U
  CEOF     = 004; // ^D
  CSTART   = 021; // ^Q
  CSTOP    = 023; // ^S
  CSUSP    = 032; // ^Z
  CREPRINT = 022; // ^R
  CWERASE  = 027; // ^W
  CLNEXT   = 026; // ^V
  CDISCARD = 017; // ^O 

Код: Выделить всё

procedure tmainfo.on_keyup(const sender: twidget; var ainfo: keyeventinfoty);
begin 
  if (ainfo.key = key_F10) then close;
  if ainfo.key = key_Escape then 
     if fullscreen then on_fullscreen(sender);
  if (ainfo.key = key_Slash)  then on_showvideosettings(sender);    
  if (ainfo.key = key_Delete) then on_deleteformplaylist(sender);
  if (ainfo.key = key_Return) then begin 
                                     player.tracknum := sg_playlist.row;
                            player.volume := round(mainfo.sl_volume.value * 100);
                              player.play;

Код: Выделить всё

with ainfo,player,mainfo do begin
  case key of
    key_F10: close;
    key_Escape: if fullscreen then on_fullscreen(sender);
    key = key_Slash: on_showvideosettings(sender);
    key_Delete: on_deleteformplaylist(sender);
    key_Return:  begin 
       tracknum := sg_playlist.row;
       volume := round(sl_volume.value * 100);
       play;
      [..]
    end;
  [..]
end;

Код: Выделить всё

dvdnav <button_name>
    Press the given dvdnav button.
        up
        down
        left
        right
        menu
        select
        prev
        mouse