وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٢
{***********************************************************************
 Listbox with horizontal scrollbar
 MaxWidth < 0 : adapt automatically to largest item
 MaxWidth >= 0: use value of MaxWidth for width of scrollable area
 ***********************************************************************}
procedure HorScrollBar (ListBox: TListBox; MaxWidth: integer);
var i, w: integer;
begin
  if MaxWidth >= 0 then
    SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0)
  else begin
    { get largest item }
    for i := 0 to ListBox.Items.Count - 1 do with ListBox do begin
      w := Canvas.TextWidth (Items [i]);
      if w > MaxWidth then
        MaxWidth := w;
     end;
    SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT,
      MaxWidth + GetSystemMetrics (SM_CXFRAME), 0);
  end;
end;
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :