Belajar Lazarus Free Pascal

Posts

Mempelajari Listbox yang Owner-Draw Lazarus (Belajar Lazarus #13)

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

Menambah Item ListBox pada Lazarus (Belajar Lazarus #12)

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

Mengenal PostgreSQL Database Open source terbaik

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

Cara Merubah Awal Kata Menjadi Kapital pada LAzarus

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

Membalikkan urutan karakter pada string dengan Lazarus

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:='

Mendisable Menu System Close pada Lazarus

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