Thx for sharing.... Ada pertanyaan, bagaimana cara agar tidak ada duplikasi item? Saat akan add item, bila sudah ada di item list, maka di item yang sudah ada ditambahkan angka (increase). Dan ditambahkan tombol (+) dan (-) untuk item yg sudah ada tsb. Bila di-decrease hingga 0, maka remove/delete item-nya dari list.
Kalo saya di custom box nya saya tambahkan tombol + dan -, di kasih event onclick untuk request query. Jika + / - brrti request update data, jika data 0 brrti request delete data
@@blangkonfa5124 Tks utk responsnya. Boleh diberitahukan coding-nya dan dimana harus ditambah/selipkan? Untuk mengecek duplikasi item saja saya kesulitan mencari solusinya.
Dengan susah payah sudah dapat solusinya. Tapi saya minta petunjuk untuk result dari search box: (1) Dari beberapa item yg ditampilkan hasil search, bagaimana mengetahui jumlah (count) item2nya? (2) Dari hasil search, bila tombol +/- pada item diklik timbul error "access violation at address...", sedangkan jika image diklik baik2 saja -> tampil showmessage-nya.
@@blangkonfa5124 alhamdulillah sudah bisa mas, kelewat di STYLENAME nya yg dicari blm saya kasih nama, hanya sender nya saja yg diisi. baru paham Saya.... makasih banyak tutor nya Mas, semoga berkah mengalir terus
@@blangkonfa5124 siap makasih mas.. baru sampe part 7 ning ngikuti belajarnya hehe... makasih mudah diikitin.. lain waktu mudah2an bisa kerjasama ya, kadang ada beberapa project yg tidak sy kerjain hehe..
mantap banget gan. lebih variatif pakai yg custom ini ternyata. terus kalau kita mau mengakses data dalam setiap listitemnya bagaimana gan ? kalau di listbox standart kan tinggal di loop seperti ini for var a : integer := 0 to lbdata.item.count-1 do lbdata.listitem[a].text := 'Kata Baru'; nah kalau disini untuk mengubah image dalam layout listitem bagaimana caranya gan ? terima kasih pencerahannya 🙏🙏
@@blangkonfa5124 mau mengubah gan, di video ini misalkan kita mau mengubah tulisan di lblNama, cara utk akses ke komponen itu bagaimana gan ?. pengubahan dilakukan setelah semua data di load ke lbdata
@@jovischannel4623 bisa mas, langkah nya seperti ini kira kira :: 1. Di dalam procedure addItem ketika setelah clone TLayout nya (variabelnya "lo") nah, dibawahnya ditambakan properties stylename nya, anggap saja diisi sesuai dengan nama componen TLayout nya >> lo.StyleName = 'loCustomData'; 2. setelah sudah diisikan stylename nya, kita dapat mengambil komponen si TLayout tadi dengan cara, sebagai contoh saja ini kita coba di event TListBox (onItemClick). 3. untuk mendapatkan TLayout nya kode nya seperti ini var lo : TLayout; begin for var i := 0 to Item.ControlsCount - 1 do begin if Item.Controls[i] is TLayout then begin if TLayout(Item.Controls[i]).StyleName = 'loCustomData' then begin lo := TLayout(Item.Controls[i]); Break; end; end; end; TLabel(lo.FindStyleResource('lblNama')).Text := 'Ini Kata Baru'; //lblNama adalah nama stylename dari TLabel yang ada didalam loCustomData end;
master, saya buat tampilan listbox kaya di video, tetapi saya menambahkan event onclick --> tujuannya ke detail, tetapi klo datanya banyak trus mau scrol ke bawah, event onclicknya selalu jalan duluan, gmn ya menyiasatinya agar ga langsung di klik ketika di scrol, terima kasih.
event onClick di TListBox nya? saran saya pakai event onItemClick nya mas... atur aja id item nya di TagString TListBoxItem nya. jadi ketika Item di click, di baca id nya buat manggil detail item nya
Mas, saya mau menampilkan gambar seperti di video ini dari server online (website), saya gunakan netHTTP dan stream, tetapi kenapa terasa berat ya, kadang2 freze, mohon sarannya
mau tanya om.. saya coba compile ke APK dan saya install di hp, tampilannya tidak sesuai ukuran yg didesain om.. saya coba pakai anchor (dibuat true) bagian bawahnya dari listbox menjadi terlalu turun ke bawah ketika di HP, sehingga menutupi komponen lain seperti button, dsb.. kalau saya pakai align scale, bisa sesuai ukuran listbox nya seperti saat desain, namun isi di dalamnya (Layoutnya menjadi lebih besar bahkan mungkin terlalu besar dari pada ukuran saat desain om.. bolehkah diperagakan bagaimana tampilannya di android om??.. tapi secara keseluruhan, tutorial ini sangat mantap dan sangat berguna..
Untuk pengaturan anchor itu harus disesuaikan dengan kebutuhannya mas, misal untuk setingan align client / content itu di anchor nya di set true semua, atau jika mau di posisi bawah trus, tinggal.di set anchor akbottom nya true. Mungkin dilain kesempatan akan saya bahas lebih detail.untuk penggunaan anchor. Atau coba bisa di cek dulu yang tutorial ke 3 kalo nda salah, membuat form login
Salam, saya ada 2 pertanyaan: 1. Bagaimana cara mengubah font, font-color, font-size, font-bold dari items? 2. Items saya save ke file, sudah saya format spt ini : "Format('%-15s %-4s %-10s', [nama, kelas, jurusan])". Saat dibuka dgn notepad tampilannya rapi. Tapi saat file di-load lagi ke dlm listbox, tampilan antar item geser2 tdk rapi. Apakah ini karena font di aplikasi tdk sesuai? Katanya ada font type mono apalah itu yg dpt solve problem ini? Terimakasih mas...
maaf, baru sempat balas. 1. Misalnya mau merubah font TLabel bisa gini -> TLabel(lo.findstyleresource('nama style')).FontColor := $FFFFFFFF; jangan lupa tambahi ini setelah text setting nya dirubha TLabel(lo.findstyleresource('nama style')).StyledSetting := []; 2. itu maksudnya gimana om? Saya biasanya pakai %s gini thok.
@@blangkonfa5124 2. itu maksudnya gimana om? Saya biasanya pakai %s gini thok. Tks sdh reply 🙏 Jadi sy spt ini kasusnya mas... strings := Format('%-15s %-4s %-10s', [nama, kelas, jurusan]); listbox1.items.add(strings); listbox1.items.savetofile('c:\download\profil_siswa.dat'); - Saat file profil_siswa.dat dibuka dgn notepad, di setiap baris jarak antar kolom rapi, jarak kiri dan kanan fixed sesuai format yg diinginkan. listbox2.items.loadfromfile('c:\download\profil_siswa.dat'); - Saat file profil_siswa.dat di-load ke listbox2, di setiap baris jarak antar kolom geser2, jarak kiri dan kanan tdk fixed. - Bagaimana agar apa yg terlihat rapi di notepad, bisa terlihat rapi juga di listbox2 ? 🙏🙏🙏
Much Appreciated ! Good explanation !!
Perfect, I could never do that. Congratulations, you helped me a lot.
luar biasa, sangat mudah dipahami dan diimplementasikan.
siaap, terimakasih Pak
Keren om...semoga ilmunya barokah..sangat bermanfaat..👍👍👍
Thanks
Nice, but too much memory usage. I'd prefer VCL optimization, something that FMX seems to lack.
manatap bang, di tggu tutorial lainnya
Thank you sir. very good
Thanks bro
Hello do you know how to export in excel ou Csv file, Please.
Can you make a video using Mysql (MyDac components) in android ? A CRUD App please !
you can check this video th-cam.com/video/qf1JYOMeIKg/w-d-xo.html
bang klo load datnay deri databse gmna?
ada mas di materi ke 007, pake SQLite databasenya. kalau pake yang lain tinggal sesuaikan saja pengkoneksiannya
Thx for sharing.... Ada pertanyaan, bagaimana cara agar tidak ada duplikasi item? Saat akan add item, bila sudah ada di item list, maka di item yang sudah ada ditambahkan angka (increase). Dan ditambahkan tombol (+) dan (-) untuk item yg sudah ada tsb. Bila di-decrease hingga 0, maka remove/delete item-nya dari list.
Kalo saya di custom box nya saya tambahkan tombol + dan -, di kasih event onclick untuk request query. Jika + / - brrti request update data, jika data 0 brrti request delete data
@@blangkonfa5124 Tks utk responsnya. Boleh diberitahukan coding-nya dan dimana harus ditambah/selipkan? Untuk mengecek duplikasi item saja saya kesulitan mencari solusinya.
Dengan susah payah sudah dapat solusinya. Tapi saya minta petunjuk untuk result dari search box: (1) Dari beberapa item yg ditampilkan hasil search, bagaimana mengetahui jumlah (count) item2nya? (2) Dari hasil search, bila tombol +/- pada item diklik timbul error "access violation at address...", sedangkan jika image diklik baik2 saja -> tampil showmessage-nya.
Silahkn cek video terbaru
Mas, di saya event buttononclick pakai cara di atas muncul access violation knp ya
Sudah diikuti tutorialnya step by step mas?
Coba sertakan source code nya melalui pastebin mas
@@blangkonfa5124 alhamdulillah sudah bisa mas, kelewat di STYLENAME nya yg dicari blm saya kasih nama, hanya sender nya saja yg diisi. baru paham Saya.... makasih banyak tutor nya Mas, semoga berkah mengalir terus
jadi lebih baik menggunakan vscroll ato listbox untuk kasus nampilin data banyak ?
Better listbox, mudah di custom mas
@@blangkonfa5124 siap makasih mas.. baru sampe part 7 ning ngikuti belajarnya hehe... makasih mudah diikitin.. lain waktu mudah2an bisa kerjasama ya, kadang ada beberapa project yg tidak sy kerjain hehe..
siap, monggo bisa email saja kalau mau kerjasama sama saya. ehhee
mantap banget gan. lebih variatif pakai yg custom ini ternyata.
terus kalau kita mau mengakses data dalam setiap listitemnya bagaimana gan ?
kalau di listbox standart kan tinggal di loop seperti ini
for var a : integer := 0 to lbdata.item.count-1 do
lbdata.listitem[a].text := 'Kata Baru';
nah kalau disini untuk mengubah image dalam layout listitem bagaimana caranya gan ?
terima kasih pencerahannya 🙏🙏
Hallo, maksudnya gimana mas? mengubah atau mengambil datanya ya?
@@blangkonfa5124 mau mengubah gan, di video ini misalkan kita mau mengubah tulisan di lblNama, cara utk akses ke komponen itu bagaimana gan ?. pengubahan dilakukan setelah semua data di load ke lbdata
@@jovischannel4623 bisa mas, langkah nya seperti ini kira kira ::
1. Di dalam procedure addItem ketika setelah clone TLayout nya (variabelnya "lo") nah, dibawahnya ditambakan properties stylename nya, anggap saja diisi sesuai dengan nama componen TLayout nya >> lo.StyleName = 'loCustomData';
2. setelah sudah diisikan stylename nya, kita dapat mengambil komponen si TLayout tadi dengan cara, sebagai contoh saja ini kita coba di event TListBox (onItemClick).
3. untuk mendapatkan TLayout nya kode nya seperti ini
var
lo : TLayout;
begin
for var i := 0 to Item.ControlsCount - 1 do begin
if Item.Controls[i] is TLayout then begin
if TLayout(Item.Controls[i]).StyleName = 'loCustomData' then begin
lo := TLayout(Item.Controls[i]);
Break;
end;
end;
end;
TLabel(lo.FindStyleResource('lblNama')).Text := 'Ini Kata Baru';
//lblNama adalah nama stylename dari TLabel yang ada didalam loCustomData
end;
@@blangkonfa5124 terima kasih banyak gan 🙏🙏🙏 segera di coba. sukses terus gan.
@@blangkonfa5124 sudah dicoba mas, berhasil. Terima kasih banyak ilmunya. semoga berkah 🙏🙏🙏
master, saya buat tampilan listbox kaya di video, tetapi saya menambahkan event onclick --> tujuannya ke detail, tetapi klo datanya banyak trus mau scrol ke bawah, event onclicknya selalu jalan duluan, gmn ya menyiasatinya agar ga langsung di klik ketika di scrol, terima kasih.
event onClick di TListBox nya? saran saya pakai event onItemClick nya mas... atur aja id item nya di TagString TListBoxItem nya. jadi ketika Item di click, di baca id nya buat manggil detail item nya
Mas, saya mau menampilkan gambar seperti di video ini dari server online (website), saya gunakan netHTTP dan stream, tetapi kenapa terasa berat ya, kadang2 freze, mohon sarannya
Pakai Thread gak mas?
Coba cek github saya disini :
github.com/dondonondon/FMXTutorialTH-cam/tree/main/%23000%20-%20001%20-%20ListBox%20Style%20Image%20Parallel%20Download
@@blangkonfa5124 Mantap Master, load gambar jd sangat efektif, saya menambahkan onclick saat add item list box, tetapi tidak berjalan, apakah ada salah dengan script saya?
lb := TListBoxItem.Create(nil);
lb.Selectable := true;
lb.Height := lbMenuhome.Width / lbMenuhome.Columns;
lb.StyleLookup := 'lbImage';
lb.Text := FName;
lb.Hint := fnGetURL+gambar;
lb.OnClick := fnKlikMenu;
//lb.Tag := StrToInt(linkto);
lbMenuhome.AddObject(lb);
@@dwmatter2228 untuk event onClick mending pake event di TListBox nya saja di event onItemClick. mau dipergunakan untuk apa event onClick nya mas?
@@blangkonfa5124 Mau pindah halaman ke menu yg di klik, manggil fnGoframe
@@dwmatter2228 owh, mending di event TListBox nya aja mas, di onItemClick.
bagaimana cara kita memilih dari listbox nya mas
bisa di cek dari menit 15:50. tinggal di sesuaikan aja dengan jenis komponen nya. kalo di video nya kan pake TImage, nah itu disesuaikan saja
mau tanya om.. saya coba compile ke APK dan saya install di hp, tampilannya tidak sesuai ukuran yg didesain om.. saya coba pakai anchor (dibuat true) bagian bawahnya dari listbox menjadi terlalu turun ke bawah ketika di HP, sehingga menutupi komponen lain seperti button, dsb.. kalau saya pakai align scale, bisa sesuai ukuran listbox nya seperti saat desain, namun isi di dalamnya (Layoutnya menjadi lebih besar bahkan mungkin terlalu besar dari pada ukuran saat desain om.. bolehkah diperagakan bagaimana tampilannya di android om??.. tapi secara keseluruhan, tutorial ini sangat mantap dan sangat berguna..
Untuk pengaturan anchor itu harus disesuaikan dengan kebutuhannya mas, misal untuk setingan align client / content itu di anchor nya di set true semua, atau jika mau di posisi bawah trus, tinggal.di set anchor akbottom nya true. Mungkin dilain kesempatan akan saya bahas lebih detail.untuk penggunaan anchor. Atau coba bisa di cek dulu yang tutorial ke 3 kalo nda salah, membuat form login
Incredible.... Please learn us How to list too much data with a listbox and have performance at the same time.
did you already watch my last Video? on Card View?
@@blangkonfa5124 i Will watch.. thanks
Salam, saya ada 2 pertanyaan:
1. Bagaimana cara mengubah font, font-color, font-size, font-bold dari items?
2. Items saya save ke file, sudah saya format spt ini : "Format('%-15s %-4s %-10s', [nama, kelas, jurusan])". Saat dibuka dgn notepad tampilannya rapi. Tapi saat file di-load lagi ke dlm listbox, tampilan antar item geser2 tdk rapi. Apakah ini karena font di aplikasi tdk sesuai? Katanya ada font type mono apalah itu yg dpt solve problem ini?
Terimakasih mas...
maaf, baru sempat balas.
1. Misalnya mau merubah font TLabel bisa gini ->
TLabel(lo.findstyleresource('nama style')).FontColor := $FFFFFFFF;
jangan lupa tambahi ini setelah text setting nya dirubha
TLabel(lo.findstyleresource('nama style')).StyledSetting := [];
2. itu maksudnya gimana om? Saya biasanya pakai %s gini thok.
@@blangkonfa5124 2. itu maksudnya gimana om? Saya biasanya pakai %s gini thok.
Tks sdh reply 🙏
Jadi sy spt ini kasusnya mas...
strings := Format('%-15s %-4s %-10s', [nama, kelas, jurusan]);
listbox1.items.add(strings);
listbox1.items.savetofile('c:\download\profil_siswa.dat');
- Saat file profil_siswa.dat dibuka dgn notepad, di setiap baris jarak antar kolom rapi, jarak kiri dan kanan fixed sesuai format yg diinginkan.
listbox2.items.loadfromfile('c:\download\profil_siswa.dat');
- Saat file profil_siswa.dat di-load ke listbox2, di setiap baris jarak antar kolom geser2, jarak kiri dan kanan tdk fixed.
- Bagaimana agar apa yg terlihat rapi di notepad, bisa terlihat rapi juga di listbox2 ?
🙏🙏🙏
Can you publish the source?
Yes, tomorro will upload on github
Dude... you need to get a better microphone .... its terrible.....