?? unit_full.pas
字號:
unit Unit_Full;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TFrm_Full = class(TForm)
Panel_Full: TPanel;
procedure FormResize(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Full: TFrm_Full;
implementation
uses Unit_Play, Unit_Main;
{$R *.dfm}
procedure TFrm_Full.FormResize(Sender: TObject);
var
Play_Size:TRect;
begin
Play_Size.Left :=0; Play_Size.Top :=0;
Play_Size.Right := Frm_Full.Panel_Full.Width;
Play_Size.Bottom := Frm_Full.Panel_Full.Height;
Frm_Main.MediaPlayer.DisplayRect := Play_Size;
Frm_Main.MediaPlayer.Display := Frm_Full.Panel_Full;
end;
procedure TFrm_Full.FormClose(Sender: TObject; var Action: TCloseAction);
var
Play_Size:TRect;
begin
Action:=CaFree;
Frm_Main.VCD_Full := False;
Play_Size.Left :=0; Play_Size.Top :=0;
Play_Size.Right := Frm_Play.Panel_Play.Width;
Play_Size.Bottom := Frm_Play.Panel_Play.Height;
Frm_Main.MediaPlayer.DisplayRect := Play_Size;
Frm_Main.MediaPlayer.Display := Frm_Play.Panel_Play;
Frm_Play.Width := Frm_Play.Width +1;
Frm_Play.Width := Frm_Play.Width -1;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -