Как перетащить целую колонку из Stringgrid в Listbox?

Delphi , Компоненты и Классы , Списки

После того, как поместите TListBox на форму, необходимо изменить свойство Style в TListBox на lbOwnerDrawFixed. Если не изменить свойство Style, то событие OnDrawItem никогда не вызовется. Теперь поместите следующий код в обработчик события OnDrawItem Вашего TListBox:

Code:

procedure TForm1.ListBox1DrawItem

        (Control: TWinControl; Index: Integer;

        Rect:  TRect; State: TOwnerDrawState);

        var

            myColor: TColor;

            myBrush: TBrush;      

        begin

        myBrush  := TBrush.Create;  

        with (Control as TListBox).Canvas do

        begin

            if not Odd(Index) then

              myColor := clSilver

            else

              myColor := clYellow;

         

            myBrush.Style := bsSolid; 

            myBrush.Color := myColor; 

            Windows.FillRect(handle, Rect, myBrush.Handle); 

            Brush.Style := bsClear;  

            TextOut(Rect.Left, Rect.Top, 

                   (Control as TListBox).Items[Index]);  

            MyBrush.Free;

        end;

        end;

Взято из http://forum.sources.ru

Для переноса целой колонки из Stringgrid в Listbox необходимо поместить TListBox на форму, изменить свойство Style на lbOwnerDrawFixed и добавить обработчик события OnDrawItem для рисования элементов списка.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Списки ::

Время компиляции файла: 2024-12-22 17:14:06
2025-11-04 18:58:05/0.0092220306396484/0