Arsip: Mohon bantuan scale tampilan display MediaPlayer

 
user image
more 19 years ago

nizar

Kenalkan, saya termasuk old fashioned programer. Soalnya programer otodidak dari help, walau udah lama tapi masih belum bisa untuk yang satu ini, lupa atau belum pernah baca samplenya. Saya mencoba menampilkan video jpeg, avi dst dalam program saya, kalo display langsung di panel kok saya kesulitan mengubah ukuran display video, beda kalo window otomatisnya bisa diresize windownya. Mohon dibantu yaaa... Terima kasih Nizar
user image
more 19 years ago

EkoIndri

memangnya kamu pake control apa?
user image
more 19 years ago

nizar

control Mediaplayer yang ada di tab system delphi
user image
more 19 years ago

EkoIndri

bisa perjelas maksud kamu nggak masalah resize-nya? apa resize windows ikut resize controlnya.... atau bagaimana?
user image
more 19 years ago

nizar

Dengan control mediaplayer saya dapat menampilkan video pada component panel dengan mengisi properti display dengan nama panel. Saat tampil di panel, video sizenya lebih kecil dari panel, dan tidak dapat diubah sehingga memenuhi panel seperti mode stretch pada image. Jika saya membiarkan properti display nil maka akan tampil window baru seukuran video, yang mana window ini dapat diresize pakai mouse begitu saja. Saya ingin agar yang video yang dipanel bisa ditentukan skalanya sesuai ukuran panel. Begitulah kira-kira lengkapnya
user image
more 19 years ago

EkoIndri

coba anchors dari panel itu mas active-kan semua
user image
more 19 years ago

cyber_hecker

1. buat sebuah project baru. 2. masukkan komponen Panel1 dan MediaPlayer1. 3. set properties Panel1.Anchor menjadi true semua. 4. set properties MediaPlayer1.Anchor menjadi true, kecuali Top. 5. set properties MediaPlayer1.Display := Panel1; 6. set FileName, dan set AutoOpen := True; 7. pada event onCreate masukkan kode :
procedure TForm1.FormCreate(Sender: TObject);
var
  x : TRect;
begin
  x.Left := 0;
  x.Top := 0;
  x.Right := Panel1.Width;
  x.Bottom := Panel1.Height;
  MediaPlayer1.DisplayRect := x;
end;
8. pada event Form1.Resize, arahkan prosedur ke FormCreate; maksudnya agar pada saat form diubah ukuran, akan berubah juga ukuran tampilan mediaPlayer pada form. 9. selamat mencoba... sebelum diubah ukuran : sesudah diubah ukuran :
user image
more 19 years ago

EkoIndri

@nizar itu dah dijelasin secara detail ma cyber, pokok'e intinya di anchors. kalau ada yang error atau yang kurang pas silahkan posting lagi....... we'll support u........
user image
more 19 years ago

cyber_hecker

pokok'e intinya di anchors.
sedikir meralat.. sebenernya inti program itu bukan terletak pada anchor, melainkan pada koding
MediaPlayer1.DisplayRect := x;
sedangkan anchor adalah untuk membuktikan apabila ukuran form diubah, maka ukuran display mediaPlayernya ikut berubah, atau istilahnya stretch :D
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com