Arsip: wordwrap pada dbgrid??
more 18 years ago
imunk
tanya lagi neh mas....
(wah lagi semangat nanya neh..:))
kalo kita pake label, kita bisa set tampilannya kalo datanya banyak bisa turun kebawah (jadi mirip memo deh) pake wordwrap kalo gak salah,
nah kalo itu diterapkan di dbgrid bisa gak ya mas...??
makasih sebelumnya....
maju terus.
more 18 years ago
gaussac
Coba pake ini, mudah2an bisa ngebantu
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
P: array of char; {array size is number of characters needed}
BS: tBlobStream; {from the memo field}
S: String;
begin
if Field is TMemoField then
begin
with (Sender as TDBGrid).Canvas do
begin
BS:= tBlobStream.Create(TBlobField(Field), bmRead);
FillChar(P, SizeOf(P),#0); {terminate the null string}
BS.Read(P, 50); {read 50 chars from memo into blobStream}
BS.Free;
S:= StrPas(P);
while Pos(#13, S) > 0 do
S[Pos(#13, S)] := ' ';
while Pos(#10, S) > 0 do
S[Pos(#10, S)] := ' ';
FillRect(Rect); {clear the cell}
TextOut(Rect.Left, Rect.Top, S); {fill cell with memo data}
end;
end;
end;
more 18 years ago
imunk
@gaussac
aku dah coba coding yg dari mas gaussac, tapi ko gak jalan ya...
gimana neh mas gaussac, bisa kasih coding gak?
@all
ada yg bisa bantu aku gak? tolong dong....
maju terus.
more 18 years ago
deLogic
coba ke sini deh: http://www.delphi-id.org/dpr/index.php?name=PNphpBB2&file=viewtopic&t=812&highlight=
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- [?] Bagaimana Membuat Skrip SQL dgn Komponen Query Zeos?
by babypigs in Bedah Kasus more 17 years ago - Searching data di batch
by buyungff in Hal umum tentang Pascal Indonesia more 17 years ago - MUTEX/Threading.............
by rykemit in MySQL more 18 years ago - [Ask]dbGrid dgn Background image
by kabuki_enemy in Tip n Trik Pemrograman more 16 years ago - membuat laporan dngan RVReport
by yoppie in Reporting more 16 years ago - memproteksi port usb
by flamade in Network, Files, I/O & System more 17 years ago - Cara mengubah file *.wav to string?
by ekopewe in Multimedia & Graphic Enhancement more 15 years ago - Mari kita tertibkan bersama
by deLogic in Moderator Only more 16 years ago - Tips : Editbox untuk nominal uang
by boy_borland in Tip n Trik Pemrograman more 18 years ago - komponent export excel
by keylock in Tip n Trik Pemrograman more 16 years ago