Arsip: cara capture form

more 15 years ago
veanz
kak, mo tny, bs ga sih kita ng-capture sebagian dari form delphi, mis :
-----------------------------------------------------
|Form 1 |
-----------------------------------------------------
|
|
| |---|
| | A |
| |---|
|
-----------------------------------------------------
(maap kakak, sy gatau cara ny masukin gambar)
sy cm mo ambil kotak A ny saja trus dpindahin k form lain.
kira2 perlu component ap n source code ny gmn y?
mohon bantuanny. terima kasih.

more 15 years ago
Manz
gampangnya :
pilih form A, tekan Alt+Prt Sc (Print Screen) ...
drop Image di form lain, Paste .. . selesai ...
:mrgreen:
tolong di perjelas lagi ya @veanz ... pengen nya gimana ? mungkin rekan rekan lain bisa bantu ...
Apa pake model DDE ato OLE ...
Manz

more 15 years ago
veanz
kak, kl pake cara kakak tadi, itu berarti sama seluruh form 1 ny kan yg k capture?
pengenny cm kotak A ny yg d ambil kak.
DDE ato OLE tu ap y?
makasih.

more 15 years ago
herux
satu kotak tadi turunan apa ? TWinControl atau apa ?
- Create Bitmap
- Ambil DC Handle nya misal dc := GetWindowDC(KotakDiForm.Handle);
- Copy dc ke bitmap > bitblt(Bitmap.canvas.handle,0,0,panjang,lebar,dc,0,0,SRCCOPY);
- bitmap.savetofile('gambarkotak.bmp');

more 15 years ago
veanz
kak herux maap, kl penjelasan sy td kurang dmengerti.
begini kak, pertanyaan saya tuh gmn carany mngambil sebagian dari form, seperti gambar saya d atas, misal kan form sebesar gambar tersebut, sy hanya ingin mengambil bagian A saja trus dpindahkan k form yg laen. bagian A ingin dpindahkan dan dijadikan image pada form yg baru. setelah itu baru d save kak.
begitu, apa lebih d mengerti?mohon bantuanny.
terima kasih.

more 15 years ago
herux
Setelah di jelaskan lagi akhirnya ..... saya tetep belom ngerti !!. he..he..
ngapain juga kotak ga ada apa2 nya di pindahin coba ??
jelasin aja u lagi buat apaan ?

more 15 years ago
heriy4nt0
@herux: he..he.. ngapain juga kotak ga ada apa2 nya di pindahin coba ??hehehe, benar juga :D
@veanz: sy hanya ingin mengambil bagian A saja trus dpindahkan k form yg laen. bagian A ingin dpindahkan dan dijadikan image pada form yg barukalau boleh tahu bagian A itu apa ya ? Image ? atau component lain ? Proses pemindahan bagaimana ? drag drop atau copy paste dari suatu menu popup ?

more 15 years ago
veanz
maap kak msh kurang jelas jg hehe.
gini kak, bagian A itu sebenarny gabungan dari beberapa TImage.
sy melihat thread dr salah satu teman kita (andry_yang) dsana dy menanyakan tentang cara menyimpan beberapa image gabungan, tp sy blum menemukan cara yg tepat dr thread tsb, jd saya pikir gimana kalau beberapa image gabungan tersebut kita capture aj.
nah, cara buat pindahin bagian A tersebut, sy pikir setelah bisa d capture, kita paste aj d TImage yg lain d form yg lain.
gitu kak.
sekarang bs dmengerti tidak kak? hehe.

more 15 years ago
herux
Clipboard.Assign(ImageKotakA.Picture.Bitmap); // copy
if Clipboard.HasFormat(CF_BITMAP) then ImageFormLain.Picture.Bitmap.Assign(Clipboard) ; // paste
Silakan baca : http://delphi.about.com/od/vclusing/a/tclipboard.htm
more ...
- Pages:
- 1
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Client Server pake dial-up
by kiki-Delphi in Network, Files, I/O & System more 18 years ago - sql command copy tabel ke bentuk .txt
by belajaraja in Tip n Trik Pemrograman more 17 years ago - pencarian record pada mysql
by f12dhaus in MySQL more 17 years ago - INNER joint di DBF
by nurez in Lain-lain more 17 years ago - program rambah schedule task...help...
by adhisyanda in Paradox more 15 years ago - md5 di delphi 6 /7
by pippo in Tip n Trik Pemrograman more 17 years ago - Cara Cari beberapa kata dalam 1 kalimat
by joudie in Hal umum tentang Pascal Indonesia more 16 years ago - Buat installer Mysql secara otomatis
by hendra_sir84 in Hal umum tentang Pascal Indonesia more 16 years ago - Parsing Text
by snip3r in Enginering more 17 years ago