:
: DELPHI
: ,
: 2 .
:
1. .. Delphi. : . 49-51, 400-483.
2. .. Delphi 7. . .: , 2008. . 151-182.
3. .., .., .. Delphi. . .: , 2007. . 10-48, 72-90.
4. .. Delphi : . .: , 2006. . 15-102.
:
1. Win32, , , .
2. System, Dialogs Samples, , , .
: Standard, Additional Win32.
: ( ), ( )-( )-( ).
TPanel Standard, Align: ; ; .
, , MediaPlayer.
, , OnResize TPanel / / .
MediaPlayer.
procedure TForm1.pnDisplayResize(Sender: TObject);
Begin
MediaPlayer1.DisplayRect:= Rect(0, 0,
Panel1.Width, Panel1.Height);
end;
procedure TForm1.FormResize(Sender: TObject);
Begin
MediaPlayer1.Width:= Panel2.Width;
MediaPlayer1.Height:= Panel2.Height;
end;
procedure TForm1.pnDisplayClick(Sender: TObject);
Begin
Panel2.Visible:= not Panel2.Visible;
End;
procedure TForm1.pnDisplayResize(Sender: TObject);
Var i:real;
Begin
i:= pnDisplay.Height / pnDisplay.Width;
if(i<(3/4)) then
Begin
Panel1.Height:=pnDisplay.Height;
Panel1.Width:= Panel1.Height*4 div 3;
Panel1.Left:= ((pnDisplay.Width - Panel1.Width)div 2) -5;
Panel1.Top:= 2;
End
Else
Begin
Panel1.Width:=pnDisplay.Width;
Panel1.Height:= Panel1.Width*3 div 4;
Panel1.Top:= ((pnDisplay.Height - Panel1.Height)div 2) -5;
Panel1.Left:=2;
End;
MediaPlayer1.DisplayRect:= Rect(0,0, Panel1.Width,Panel1.Height);
End;
End.
:
Animate MediaPlayer.
Animate MediaPlayer, , , .