Teman Delphier; mau minta tolong nih; Adakah Komponen TMEMO yg dapat membuat Ukuran teks yg auto size; maksudnya jika teksnya kepanjangan melebihi ukuran 1 memo; maka size teks nya akan di perkecil; atau juga di perbesar; atau ada yg punya script nya; Please! Tank's

hmmmm 8-} :roll:

Seingat saya ada fungsi-funsgi API untuk menghitung lebar dan tinggi teks. Coba aja WinAPI. Kalau gak salah yang berhubungan dengan GDI.

procedure TForm1.Button1Click(Sender: TObject);
var h : HDC; sz : SIZE; old_font : HGDIOBJ;
begin
h := GetDC(Memo1.Handle);
old_font := SelectObject(h, memo1.Font.Handle);
GetTextExtentPoint32(h, PAnsiChar(Memo1.Lines[0]), Length(Memo1.Lines[0]), sz);
SelectObject(h, old_font);
ReleaseDC(Memo1.Handle, h);
memo1.ClientWidth := sz.cx + 10;
end;

Matikan wordwrapnya pada memo karena isi lines[0] adalah hasil setelah dilakukan wrapping. Untuk mendapat baris pertama yang murni mungkin dapat dilihat dari Lines.Text yang diambil sampai newline pertama... Silakan disempurnakan sendiri... Satu yang saya kurang pahami:

The GetTextExtentPoint32 function uses the currently selected font to compute the dimensions of the string. The width and height, in logical units, are computed without considering any clipping.

Apa itu logical units? Programnya sih kelihatannya jalan meskipun saya tidak mengerti :) Untuk tinggi satu baris text (rasanya, karena sudah malam) dapat dilihat dari fontnya menggunakan fungsi GetTextMetrics.