poniższa procedura aktywuje poziomy pasek przewijania gdy
klasa TAHCustomListBox jest pochodną TListBox. Gdy jednak uczyniłem ją 'dzieckiem' TTntListBox, wszystko przestało działać. (oczywiście ta procedura tylko inicjuje scrollbara, mniejsza odetale, myślę że jak coś nie działa to właśnie to)
procedure TAHCustomListBox.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ws_HScroll;
end;
ewentualnie to :/
procedure TAHCustomListBox.SetScrollLength(S: String);
var
Extent: Word;
begin
Extent := Canvas.TextWidth(S)+40;
if Extent > FLongestString then
begin
FLongestString := Extent;
Perform(lb_SetHorizontalExtent, Extent, 0);
end;
end;
ma ktoś pomysł co jest nie tak ? a może ktoś ma swoje działające źródła dla TTntListBox ?
aha, Tnt jest najświerzsze, 3.0...
dzięki z góry za pomoc...