Hello M.,
Wednesday, September 17, 2003, 9:04:00 AM, you wrote:
MDI> Halo delphiers, minta tolong lagi ya. Saya mau buat aplikasi yang bisa
MDI> menampilkan suatu daftar pada string grid. Permasalahannya satu cell
MDI> datanya
MDI> bisa gede banget bahkan bisa lebih dari satu layar. Saya menemukan
MDI> permasalahan, kalo cell tingginya lebih dari 1 layar maka ketika saya
MDI> scroll
MDI> kebawah (pake scrollbarnya) yang ditampilkan adalah cell dibawahnya,
MDI> padahal
MDI> saya ingin melihat bagian bawah dari cell tersebut.
MDI> Ada yang bisa bantu ?
saya nggak tau apa ini sesuai dengan yang kamu mau. tapi coba aja code
berikut, pake yang bawah (yag atas utk TScrollBar). Mungkin untuk
kasus kamu angka 5 diganti dengan 1. Saya belum coba sama sekali, nih.
Kalo salah maaf ya :)
dari www.swissdelphicenter.com
// Getting a TScrollbar control to Show a proportional thumb:
procedure TForm1.Button1Click(Sender: TObject);
var
info: TScrollInfo;
begin
FillChar(info, SizeOf(info), 0);
with info do
begin
cbsize := SizeOf(info);
fmask := SIF_PAGE;
nPage := ScrollBar1.LargeChange;
end;
SetScrollInfo(ScrollBar1.Handle, SB_CTL, info, True);
end;
// Same for a TStringGrid
procedure TForm1.Button1Click(Sender: TObject);
var
info: TScrollInfo;
begin
FillChar(info, SizeOf(info), 0);
with info do
begin
cbsize := SizeOf(info);
fmask := SIF_ALL;
GetScrollInfo(StringGrid1.Handle, SB_VERT, info);
fmask := fmask or SIF_PAGE;
nPage := 5 * (nmax - nmin) div StringGrid1.RowCount;
// whatever number of cells you consider a "page"
end;
SetScrollInfo(StringGrid1.Handle, SB_VERT, info, True);
end;
--
Best regards,
Irwan
[EMAIL PROTECTED]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Upgrade to 128-Bit SSL Security!
http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
