Belajar Lazarus Free Pascal

Mempelajari Listbox yang Owner-Draw Lazarus telah kita bahas pada artikel sebelumnya, sekarang mari kita buat Aplikasi Demo Penggunaan Memo ComboBox ListBox dan CheckBox . CheckBox memberi dua pilihan (bahkan tiga pilihan) kepada pemakai, properti yang berkaitan dengan pilihan pada CheckBox yaitu: Ubah property Checked menjadi True agar CheckBox dipilih secara default. Ubah AllowGrayed menjadi True agar CheckBox mempunyai 3 pilihan, yaitu checked , unchecked dan grayed . Property State menyatakan apakah CheckBox dalam keadaan checked ( cbChecked ), unchecked ( cbUnchecked ), atau grayed ( cbGrayed ). Memo dipakai untuk memasukkan data yang lebih dari satu barus. ListBox menampilkan daftar dan Anda dapat memilih item-itemnya: Property Items dibakai untuk mengisi pilihan-pilihan yang mungkin. ItemIndex menyatakan item yang dipilih.  MultiSelect menyatakan apakah dapat memilih lebih dari satu pilihan pada saat yang bersamaan. Sorted menyatakan apakah daftar terurut secara

Bagaimana sudah dipahami betul artikel sebelumnya tentang Menambah Item ListBox ? Sekarang kita akan mempelajari Listbox yang Owner-Draw pada Lazarus. Tehnik owner-draw adalah cara penggambaran sebuah kontrol yang dilakukan oleh pemilik (owner) dari kontrol tersebut. Biasanya owner-nya adalah form. Pada komponen ListBox, anda dapat menyatakan cara ini dengan mengatur properti Style yang menentukan apakah listbox bersifat standar atau owner-draw atau virtual. ListBox standar menampilkan data string. ListBox owner-draw dapat menampilkan gambar grafik, dan anda dapat menampilkan item dengan cara yang tidak standar. Untuk itu anda harus menuliskan program untuk menampilkan item pada ListBox. ListBox vortual artrinya item-item diberikan dinamik menggunakan event handler. Desain visual Listbox Owner-Draw Buat desain seperti gambar diatas: Form1 Caption: Listbox Owner Draw ListBox1 Name: LBWarna Style:  OwnerDrawFixed Font: Ikuti langkah seperti gambar di bawah ini, Font: A

Setelah sebelumnya kita mempelajari Penggunaan komponen ListBox pada Lazarus Free Pascal . Sekarang kita akan membahas bagaimana cara Menambah Item Listbox pada Lazarus. Untuk menambah item listbox ini kita akan menggunakan 2 metode, yaitu dengan cara menambah dimana hasilnya nanti akan ditambahkan di baris paling bawah dan cara menyisipkan dimana hasilnya nanti akan diisipkan di atas item yang dipilih. Untuk praktek silahkan buat aplikasi baru dan beri nama additemlistbox.lpi dan unitnya beri nama uadditemlistbox.pas LANGKAH DESAIN VISUAL Form1 Name: FAddListbox Caption: Tambah Item Listbox Label1 Caption: Data Edit1 Name: EData Text: ListBox1 Name: LBDaftarKota Button1 Name: BTambah Caption: Tambah Button2 Name: BSisip Caption: Sisip Sehingga tampilannya seperti gambar dibawah ini: LANGKAH NON VISUAL / CODING BTambah Event OnClick procedure TFAddListbox.BTambahClick(Sender: TObject); begin   LBDaftarKota.Items.Add(EData.Text); end; BSisip

Sejarah PostgreSQL Postgre SQL bermula dari database Ingres yang dikembangkan di Universitas California, Berkeley (1977-1985). Pengkodeannya diambil dan dikembangkan oleh Relational Technologies/Ingres Corporation yang menghasilkan suatu relational database server komersil yang pertama. Ingres Corporation kemudian dibeli oleh Computer Associates. Masih di Berkeley, Professor Michael Stonebraker (dengan dibiayai Defence Advance Research Project Agency (DARPA), Army Research Office (ARO), National Science Foundation (NSF), dan ESL Inc.) memimpin sebuah tim untuk mengembangkan object relational database server yang disebut dengan Postgres. Implementasi Postgres DBMS (Database Management System) dimulai tahun 1986 dan terus berkembang sampai dengan menjadi data manager utama untuk project Sequoia 2000 scientific pada akhir tahun 1992. Selama tahun 1993, komunitas user luar semakin meningkat jumlahnya. Hal ini tentu mengharuskan pemeliharaan terhadap kode prototip dan waktu serta k

Setelah sebelumnya kita mempelajari cara membalik urutan karakter pada string, sekarang kita coba membuat program mengubah huruf pada awal kata menjadi kapital. Pertama mari kita buat fungsi Capword seperti di bawah ini. Dengan fungsi ini anda dapat mengubah karakter pertama dari suatu kata menjadi huruf kapital. Fungsi Capword hanya mempunyai satu parameter, yaitu string yang akan diubah. type   { TForm1 }   TForm1 = class(TForm)     function CapWord(teks:string):string; //tulis disini kodenya private Selanjutnya pada bagian implementation tuliskan kode berikut: //fungsi Capitalize each Word function TForm1.CapWord(teks:string):string; var   i : integer;   s : string; begin   s:=Uppercase(teks[1]);   for i:=2 to length(teks) do     if (teks[i-1] in [' ','?','!',',',':',';','.']) then s:=s+uppercase(teks[i]) else       s:=s+lowercase(teks[i]);   result:=s; end; Selanjutnya tambahkan 2 buah komponen Edit dan

Saat anda membuat aplikasi, seringkali anda harus berhubungan dengan string. Lazarus telah menyediakan banyak sekali prosedur dan fungsi yang berhubungan dengan string. Tapi ada hal-hal tertentu seperti membalik urutan karakter pada string yang tidak disediakan prosedur atau fungsinya. Sekarang mari kita coba Membalikkan urutan karakter pada string dengan Lazarus . Cara membalikkan urutan karakter dengan lazarus Buat aplikasi baru dengan nama reversestring. Selanjutnya mari kita buat fungsi baru untuk membalik urutan karakter dengan nama ReverseString. Kalau masih dalam tampilan visual (tampak Form1) tekan F12 untuk masuk ke source editor, Tulis sesudah type TForm1 = class(TForm) dan sebelum private . type   TForm1 = class(TForm)      function ReverseString(s: string):string; //tulis disini fungsinya   private Kemudian tulis di bagian implementation kode berikut: function TForm1.ReverseString(S: string):string; var    i : integer;    s2 : string; begin    s2:='

Sebuah form yang normal biasanya mempunyai tiga tombol yang terletak pada bagian title bar, yaitu tombol maximize untuk menampilkan form secara penuh, tombol minimize untuk menyembunyikan form aktif ke taksbar, dan tombol close untuk menutup form. Bagaimana caranya mendisable system menu? Untuk aplikasi tertentu mungkin anda ingin "memaksa" para pengguna program anda dengan hanya dapat menutup program melalui menu yang telah anda sediakan. Dengan demikian mereka tidak dapat menutup program melalui menu close tersebut. Untuk itu anda dapat mendisable system menu tersebut. Gambar form denga system menu normal Pada properties Form1 pilih >> BorderIcon , jika gambar checlist seperti di atas yaitu biMaximize, biMinimize dan biSystemMenu centang semua (true) itu adalah konfigurasi default dari system menu pada form. Gambar Menu yang Minimeze-nya disable Untuk membuat form dengan menu minimize disable caranya pada properties Form1 pilih >> BorderIcon

Benar-benar kaget saya, setelah beberapa lama menggunakan lazarus free pascal baru hari ini tepatnya Minggu, 28 Agustus 2016 bahwa ternyata hasil file exe (executabel) yang dihasilkan sangat besar. Bayangkan saya form sederhana dengan satu komponen button saja ukuranya bisa sekitar 15 MB. Setelah mencari info di forum lazarus akhirnya saya menemukan solusi agar bisa memperkecil ukuran file EXE lazarus free pascal . Cara Memperkecil Ukuran Executable File Lazarus Pertama silahkan pilih pada menu: Project >> Project Options Atau kalau menggunakan tombol shortcut tekan saka tombol Shift+Ctrl+F11   Selanjutnya pada Compiler Option saya pilih Debuging . Saya hilangkan tanda centang pada: Generate debungging info for GDB (slower / increase exe-size) Kemudian saya tambahkan centang pada: Strip symbols from executable (-Xs) . Trus tidak lupa saya simpan dengan menekan tombol OK . Saya tekan F9 (Run) untuk menjalankan programnya, dan selanjutnya saya cek besarnya file E

  Artikel ini akan membahas tentang, tipe data yang didukung SQLite,  kelebihan dari SQLite, kekurangan SQLite, kapan sebaiknya ketika menggunakan SQLite dan kapan sebaiknya kita tidak menggunakan SQLite. Merujuk dari id.wikipedia.org disebutkan bahwa SQLite merupakan sebuah sistem manajemen basisdata relasional yang bersifat ACID-compliant dan memiliki ukuran pustaka kode yang relatif kecil, ditulis dalam bahasa C. SQLite merupakan proyek yang bersifat public domain yang dikerjakan oleh D. Richard Hipp . SQLite adalah perpustakaan menakjubkan yang disematkan di dalam aplikasi yang menggunakan. Sebagai database mandiri, berbasis file, SQLite menawarkan serangkaian menakjubkan alat untuk menangani segala macam data dengan jauh lebih sedikit kendala dan kemudahan dibandingkan dengan host, proses berbasis (server) database relasional. Ketika sebuah aplikasi menggunakan SQLite, integrasi bekerja dengan panggilan fungsional dan langsung dibuat untuk file memegang data (yaitu SQLite da