Arsip: (ask)mengubah font style pada memo

more 11 years ago
pribowo26
Para penggemar delphi mohon bantuanny untuk pemula.
Bagaimana ya mengubah font sytle pada memo? Tapi yang berubah tu hanya sebagian dalam isis memo. Ilustrasinya seperti ini :
1. Misal dalam memo berisi kalimat "Saya sedang mengantar ibu ke pasar"
2. Nah, setelah melakukan proses (mengklik tombol) hasil yang saya inginkan seperti ini "Saya sedang mengantar ibu ke pasar"
Jadi, hanya kata "ibu" yang font style berbeda dari karakter lainnya yang ada dalam memo.Kata yang di seleksi itu bisa bold, italic, [u:2c81468bda]underline[/u:2c81468bda] atau ukuran fontnya yang beda, pokonya asalkan bisa menjadi pembeda di antara karakter lainnya pada memo. Please,,,,,mohon bantuannya ya :D[/b]

more 11 years ago
pribowo26
ow,,, Ok makasih bwt pemberitahuannya. Langsung menuju TKP,,tapi klo blm bisa,,nanti nya lagi ah,, :D

more 11 years ago
pribowo26
Ok,,saya dah bisa n ngerti penggunaan RichEdit untuk mengubah font stlye, dengan menambahkan komponen tolbar & action list. Tapi yang saya ingikan kata yang di cetak tebal itu otomatis.
Klo seperti contoh di atas ketika kita klik tombol(Button1Clik), kata "ibu" berubah jadi bold(tebal),bukan kita blok kata "ibu" trus kita klik tombol bold.
Jadi, begini ilustrasinya :
1. Kata ibu pada contoh di atas itukan klo pada RichEdit terletak pada lines 0,nah klo kalimat tersebut di inputkan pada variabel string, maka kata ibu terletak pada index ke 23 sampai 25.
2. Nah bagaimana membuat hanya karakter ke 23 sampai 25 saja yang tebal.
Maaf klo kata-katanya membingungkan,,maklum bukan pujangga yang pandai merangkai kata2 :D
Mohon bantuannya n makasih sebelumnya :D

more 11 years ago
mas_kofa
nah......kamu dah bisa logika nya khan?? ya udah tinggal diimplementasikan aja......

more 11 years ago
ImanD
@pribowo26
sample simple
klo ingin berdasarkan kata tertentu ataupun pada index tertentu gunakan hint dari @DE kemudian word formatted dech.
begin
with RichEdit1 do
begin
SelAttributes.Style:=[fsBold]; SelText:='IBU';
SelAttributes.Style:=; SelText:=' yang di Bold'#13#10;
SelAttributes.Style:=[fsItalic]; SelText:='IBU';
SelAttributes.Style:=; SelText:=' yang di Italic'#13#10;
SelAttributes.Style:=[fsUnderline]; SelText:='IBU';
SelAttributes.Style:=; SelText:=' yang di Underline'#13#10;
SelAttributes.Style:=[fsStrikeOut]; SelText:='IBU';
SelAttributes.Style:=; SelText:=' yang di StrikeOut'#13#10'klo ini ';
SelAttributes.Style:=[fsBold]; SelAttributes.Color:=clRed; SelText := 'IBU';
SelAttributes.Style:=; SelAttributes.Color:=clWindowText; SelText:=' yang ';
SelAttributes.Style:=[fsBold]; SelText:='TEBAL';
SelAttributes.Style:=; SelText:=' dan berwarna ';
SelAttributes.Color:=clRed; SelText:='MERAH';
end;
end;
output

more 11 years ago
pribowo26
@mas_kofa
Thx bwt sarannya, memang klo mau jd programer expert logikanya hrs di asas biar tajem kaya pisau,,hehe....:D
@DelphiExpert
Klo cara yang itu udah di coba,,tapi qo index yang di maksud ga ke'blok'. Ada saran atau contoh mungkin?
@ImanD
Wah,,,thx bgt dah di kasi liat contohnya,,semoga bisa di implementasikan seperti yang saya inginkan
For All,,trimakasih buanget buat saran dan solusinya,,,

more 11 years ago
deLogic
terlepas dari jawaban rekan2 semuanya, sebenarnya mengenai RichEdit sudah disediakan demo nya oleh Delphi, coba rajin2 berkunjung dan eksplorasi contoh / demo yang sudah disediakan oleh Delphi.
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- saran neh...
by p2bf in Kritik & Saran more 13 years ago - conect 2 pc melalui Akses Point
by umarbakri in Hal umum tentang Pascal Indonesia more 14 years ago - Cara Cari beberapa kata dalam 1 kalimat
by joudie in Hal umum tentang Pascal Indonesia more 11 years ago - ribet dengan stok
by e_soep in Tip n Trik Pemrograman more 11 years ago - Mohon maaf lahir & bathin
by ichan29 in OOT more 13 years ago - mxprotector 1.31 di d7
by brodien in Tip n Trik Pemrograman more 14 years ago - tanya dll
by buyungff in Hal umum tentang Pascal Indonesia more 13 years ago - index name di ADO
by saysansay in OOT more 15 years ago - program OCR pake delphi
by luina in Hal umum tentang Pascal Indonesia more 12 years ago - adoquery dan combobox (tolong dijawab yaaaa)
by goodday in Tip n Trik Pemrograman more 15 years ago