> Sebenarnya saya ingin menggambar di canvas, kemudian canvas tersebut saya
> scroll tetapi gambarnya tetap.
Menurut saya, awalnya logika mu sudah benar.
Jadi anggap saja ada lapangan sepak-bola (TCanvas),
nah gambar yang di TV(kalau siaran sepakbola) kan hanya sebahagian kecil
dari lapangan sepakbola itu(TPaintBox).
Kamera(TRect) bisa mengeser sebahagian yang kecil itu (yang kelihatan)
ke seluruh lapangan sepak bola.
Jadi ada satu kotak kecil yang kelihatan(TPaintbox) diantara semua lapangan
sepak bola.
Itu setahu saya teorinya (mungkin saya benar).
:-)
Rusmin Noer
nb.
Untuk mempelajarinya, baca posting saya berikutnya.
Enter your vote today! A new poll has been created for the
Delphindo group:
Buku apa yang akan kita bahas
(belajar bersama) ?
o Delphi 5 Developer Guide
o Carlie Calvert's Delphi 4 Unleashed
o Teach Yourself Delphi in 21 days
To vote, please visit the following web page:
http://groups.yahoo.com/group/Delphindo/polls
Note: Please do not reply to this message. Poll votes are
not collected via email. To vote, you must go to the Yahoo! Groups
web site listed above.
Thanks!
At 24/02/2001 5:08:00, you wrote:
>Masukkan saya ke milis Delphi.
>Oh ya perkenalkan Nama : Donny Azhar
> Pekerjaan : Coba - coba bikin program pakai Delphi 3 C/S
>Apakah nantinya saya boleh bertanya - tanya dalam forum ini. Makasih
>sebelumnya
Koq email ini nyasarnya ke saya...???
Tertanda,
Ogud
> Apakah gambar terpotong yang anda maksud itu terjadi pada semua perintah
> drawing ?
Mungkin ilustrasi dibawah lebih menjelaskan maksud saya.
Saya pasang ScrollBox, kemudian pada ScrollBox tersebut saya pasang
PaintBox.
Pada FormPaint saya pasang kode seperti berikut:
procedure TForm1.FormPaint(Sender:TObject);
begin
ScrollBox1.Width := 300;
paintBox1.Width := 600;
PaintBox1.Canvas.Ellipse(0,0,500,500);
end;
Harapannya, jika saya scroll ke kanan maka bagian elips yang kanan akan
terlihat,
tetapi ternyata tidak.
Bagaimana ya ...?
salam
yanto
> Menurut saya Paintbox "mungkin" enggak bisa discroll.
>
> Agar supaya bisa discroll.
> Kamu buat satu TCanvas yang besar.
> xCanvas inilah gambarmu yang sebenarnya.
> xCanvas ini adalah abstrak (enggak kelihatan).
**************
Sebenarnya saya ingin menggambar di canvas, kemudian canvas tersebut saya
scroll tetapi gambarnya tetap.
Jadi misalnya gambar lingkaran tetapi karena lingkaran lebih besar dari
lebar scrollbox, maka yang muncul adalah setengah
lingkaran bagian kiri. Nah pada saat saya scroll ke kanan, berarti PaintBox
menggeser ke kiri, maka harapannya bagian kanan lingkaran
akan muncul. Namun ternyata tidak demikian. Bagian kanan tetap kosong,
sehingga lingkaran malah menjadi bolong di kiri dan kanan.
>
> Setiap kali kamu scroll,
> sebelum scroll ->baca data dari xPaintBox, pindahkan ke xCanvas.
> sesudah scroll ->ambil posisi dari scroll, baca sesuai posisi yang tepat
di
> xCanvas,
> lalu pindahkan ke xPaintBox.
*********************************
Tambahan lagi ya, event apa yang berhubungan saat scroll ?
> nb.
> Saya kepingin belajar TCanvas lagi,
> kapan-kapan ada waktu kita belajar bersama yuk?
***********************
Oke, setuju
salam
yanto
At 26/02/2001 4:12:00, you wrote:
>Hallo Mpu Gondrong ...
>Saya pengen tanya, yang mana yang lebih baik untuk mengakhiri aplikasi,
>apakah procedure close atau application.terminate ? Atau, mungkin ada
>command/cara yang lebih baik ?
Aduhhh..., kalo nanya2 gini jgn japri doonk... :)
Kalo kita lihat dari source-nya, gunakan saja Close, karena dia juga memanggil
hal2 yg perlu dipanggil, misal event
OnClose atau OnCloseQuery, dan juga memanggil Application.Terminate. Bila
Application.Terminate, maka hanya dikirim
PostQuitMessage, yg mengakhiri Message polling, atau langsung mengakhiri
aplikasi.
Tertanda,
Ogud
saya juga mau testing ahhh...
----- Original Message -----
From: Kusnassriyanto Syaiful Bahri <totok@...>
To: <Delphindo@yahoogroups.com>
Sent: Monday, February 26, 2001 8:09 AM
Subject: Re: [Delphindo] testing...
>
> Saya juga mau testing....
>
> On Fri, Feb 23, 2001 at 06:46:17PM +0700, Mpu Gondrong wrote:
> > Testing doonk... bales yahh... ;-)
> >
> > Tertanda,
> > Ogud
> >
> >
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
On Mon, Feb 26, 2001 at 11:43:32AM +0700, Rusmin Noer wrote:
>
> > *** Tentang delphi.or.id ini kabarnya gimana ??? dari dulu sampai sekarang
> > aku tanya kok masih begitu -gitu juga sih. progressnya sampai mana ????
> > Kalau Site ini sudah jalan tentunya untuk milis juga sudah tidak perlu
> > numpang - numpang pakai ke milis site yang lainnya.
>
> Mas Sugi lagi sakit berat.
> Benar-benar berat.
> :-((
>
Sakit apa ya ?
Tapi apapun sakitnya semoga Mas Sugi lekas sembuh.
Wassalam,
Totok.
>
>
Apakah gambar terpotong yang anda maksud itu terjadi pada semua perintah
drawing ?
Bila ya, maka anda harus berhati-hati dengan masalah koordinat.
Pada saat Scrolled, Posisi Left dari PaintBox akan negatif
(Nilai Left awal dikurangi HorzScrollBar.Position). Demikian juga untuk
PaintBox.Top.
Solusinya adalah dengan menggunakan koordinat relatif terhadap Left & Top
dari PaintBox.
m.m.m
Wassalam,
Totok.
On Mon, Feb 26, 2001 at 09:20:25AM +0700, Y Suyanto wrote:
> "Nganyari" Delphindo :-)
>
> Saya ingin membuat scrollbox untuk mengendalikan PaintBox yang besar.
> Saya sudah pasang PaintBox dalam ScrollBox, tetapi saat scrolling, gambar
> jadi terpotong,
> Bagaimana sebaiknya menggunakan scroll untuk paintbox ?
>
> salam
> yanto
>
>
>
>
>
>
> Saya ingin membuat scrollbox untuk mengendalikan PaintBox yang besar.
> Saya sudah pasang PaintBox dalam ScrollBox, tetapi saat scrolling, gambar
> jadi terpotong,
> Bagaimana sebaiknya menggunakan scroll untuk paintbox ?
>
Menurut saya Paintbox "mungkin" enggak bisa discroll.
Agar supaya bisa discroll.
Kamu buat satu TCanvas yang besar.
xCanvas inilah gambarmu yang sebenarnya.
xCanvas ini adalah abstrak (enggak kelihatan).
Setiap kali kamu scroll,
sebelum scroll ->baca data dari xPaintBox, pindahkan ke xCanvas.
sesudah scroll ->ambil posisi dari scroll, baca sesuai posisi yang tepat di
xCanvas,
lalu pindahkan ke xPaintBox.
Menurut saya harus begini,
mungkin ada cara lain yang lebih baik.
Siapa tahu?
Rusmin Noer
nb.
Saya kepingin belajar TCanvas lagi,
kapan-kapan ada waktu kita belajar bersama yuk?
> *** Tentang delphi.or.id ini kabarnya gimana ??? dari dulu sampai sekarang
> aku tanya kok masih begitu -gitu juga sih. progressnya sampai mana ????
> Kalau Site ini sudah jalan tentunya untuk milis juga sudah tidak perlu
> numpang - numpang pakai ke milis site yang lainnya.
Mas Sugi lagi sakit berat.
Benar-benar berat.
:-((
Cobalah mail ke Mas Sugi kalau ada yang mau nerusin pekerjaannya.
Rusmin Noer
> posting setiap hari juga tinggi misal 100 posting/hari, lumayan kan
> bisa dapat komisi dari iklan
Komisi? Nanti saya dimarahin anggota !!!
*** Masalah ini sih nggak usah takut bakal di marahiin oleh anggota milis
lain, asal seluruh income dan expense di lakukan secara transparan serta
dapat di ketahui dan dapat di pertanggung jawabkan kepada seluruh anggota
milis, sehingga dana tersebut dapat di gunakan untuk kemajuaan komunitas
Delphi di Indonesia khususnya.
tentang hostingnya kan ada delphi.or.id atau site yang buatannya Mpu
Gondrong (www.nenek-lampir.com)
*** Tentang delphi.or.id ini kabarnya gimana ??? dari dulu sampai sekarang
aku tanya kok masih begitu -gitu juga sih. progressnya sampai mana ????
Kalau Site ini sudah jalan tentunya untuk milis juga sudah tidak perlu
numpang - numpang pakai ke milis site yang lainnya.
"Nganyari" Delphindo :-)
Saya ingin membuat scrollbox untuk mengendalikan PaintBox yang besar.
Saya sudah pasang PaintBox dalam ScrollBox, tetapi saat scrolling, gambar
jadi terpotong,
Bagaimana sebaiknya menggunakan scroll untuk paintbox ?
salam
yanto
Dear DelphiHeads,
Saya jadi bingung, saat subscribe ke Delphindo, Delivery Option
sudah menggunakan "Text Only" bukan "HTML". Namun kedua e-mail
dari Bung Roesmin "Tutorial Pascal" koq dikirim secara "HTML"
yah ?? IMHO, it's better to use plain-text to reduce virus
infection possibilities.
Semoga migrasi ke Delphindo dapat berjalan lancar.
Salam,
Hian
Biar Delphindo rame, saya bales lewat Delphindo.
Pake variabel DecimalSeparator dan ThousandSeparator
var ThousandSeparator: Char;
var DecimalSeparator: Char;
m.m.m.
Wassalam,
Totok.
----- Forwarded from Wachjudi <Wachjudi@...> (Milis Delphi)-----
Delivered-To: delphi@...
From: "Wachjudi" <Wachjudi@...>
To: "Delphi" <delphi@...>
Subject: [DELPHI] regional setting
Date: Sat, 24 Feb 2001 17:47:43 +0100
mo nanya
1.Gimana caranya mengambil informasi dari Regional Setting (di Control Panel) |
Number untuk field Decimal Symbol?
2.Setelah saya mendapatkan symbolnya, misalnya simbolnya ‘,‘ (koma), gimana cara
mengubahnya? Misal saya mau mengubah menjadi ‘.‘(titik) dan di tranfer ke
regional setting.
tolong penjelasannya, makasih
salam,
wachjudi
----- End forwarded message -----
Sehubungan saya sebagai Admin, saya ini cuma Admin Sementara.
Menurut saya, kita tunggu satu bulan, untuk melihat jumlah anggota, bila cukup besar, kita adakan pencalonan, dan kemudian kita polling untuk memilih Admin Baru.
Expert enggak belajar.
Dari pengalaman kita di delphi@... saya perhatikan, bahwa
"newbie(pemula)" mendapat sesuatu, mereka tanya dan selalu dapat jawaban.
Teman-teman yang medioker(menengah) dan expert, saya perhatikan hampir
enggak dapat tambahan ilmu !!
Hal ini menyebabkan beberapa teman kita yang sangat expert meninggalkan
milis, atau sekurang-kurangnya menjadi pasif.
Sangat disayangkan sekali.
Saya beberapa waktu yang lalu juga mengunjungi beberapa site delphi, dan
saya sangat sedih sekali. Saya melihat bahwa saya sudah sangat ketinggalan.
Banyak sekali hal baru yang saya enggak tahu.
Oleh karena itu, saya mempunyai ide, bagaimana kita bahas sesuatu, sesuatu
yang baru, secara bersama-sama. Kita tentukan topiknya, bukunya, dll.
Banyak hal baru yang bisa kita bahas, misalnya COM, DCOM, MIDAS, CORBA,
DELPHI-> XML, membuat komponen, dll.
Memang hal diatas ada kita bahas di delphi@..., cuma itu sekadar
"definisi" saja. enggak sampai mendalam.
Ide saya adalah kita pelajari sampai mendalam, sampai kita puas, baru kita
beralih ke topik lain.
Bagaimana??
Apa yang harus kita mulai bahas?
Rusmin Noer
Tutorial
Agar kita dapat meningkatkan pengetahuan kita mengenai Delphi, dan mengajak
para pemula Delphi agar dapat lebih menguasai Delphi, maka saya rasa kita
harus membuat tutorial.
Tutorial ini awalnya kita buat dalam bentuk draft, dan terus-menerus kita
koreksi, kalau sudah lama dan kita setujui bersama, baru kita jadikan
sebagai tutorial tetap. Mungkin kalau sudah banyak, dapat kita mintakan
untuk dicetak sebagai buku.
Semua nama yang menyumbang untuk tutorial ini akan tertulis di halaman
depan, dan kalau ada royalti kelak akan dibagi sesuai beban sumbangan. :-)
Tahap awal, anggaplah ini sebagai sumbangan untuk komunitas Delphi.
Saya ingin memulai tutorial yang pertama yaitu mengenai TStringList.
Segera -> Minggu Depan. :-(
Bila diantara teman-teman ingin sesuatu tutorial, misalnya SQL Dasar, dll.
mohon mail !
Nanti kita buatkan jadwal tutorial.
Mohon volunteer untuk tutorial berikutnya.
Demikian,
Admin
Rekan-rekan Delphians and Delphiers,
Kita sudah lama bersama-sama di milis delphi@... , sudah banyak
suka-duka yang kita lalui bersama.
Sehubungan kita kehilangan admin kita (yang di itb), milis kita di-spam dan
semakin beratnya beban server itb.ac.id , maka beberapa teman-teman
mengusulkan agar kita membuat satu milis diluar milis delphi@..., agar
bilamana suatu hari milis delphi@... down, kita masih mempunyai
cadangannya.
Milis ini kita buat bersama sebagai sarana komunikasi komunitas programmer
Delphi di Indonesia. Milis ini bukan milik saya, atau milik siapapun, tetapi
adalah milik komunitas programmer Delphi di Indonesia.
Selamat bermilis.
Admin Delphindo