[Lazarus] Switch off curser in TListBox

[William Oliveira Ferreira]

I wanna make a suggestion:

procedure ListboxSelectionRemove(AListBox: TListbox);
var
 i: Integer;
begin
 i:=0;
 AListBox.BeginUpdateBounds;;
 while i<AListBox.Count do begin
    AListBox.Selected[i]:=false;
    inc(i);
 end;
 AListBox.EndUpdateBounds;
end;

I think it'll gain some performance...
________________________________
William de Oliveira Ferreira
Bacharel em Sistemas de Informação


2011/3/6 u-boot <myabos at t-online.de>

> whether you find an event that is thrown at the right time following
> procedure works:
>
> procedure ListboxSelectionRemove(AListBox: TListbox);
> var
>  i: Integer;
> begin
>  i:=0;
>  while i<AListBox.Count do begin
>     AListBox.Selected[i]:=false;
>     inc(i);
>  end;
> end;
> Jürgen Hestermann schrieb:
>
>  Is it possible to switch off the visible cursor in a TListBox? I didn't
>> find an option for that.
>> I wanted the TListBox to act as a log window that shows current (and
>> recent) activity.
>> But the selection color makes the cursor line quite unreadable and it also
>> makes no
>> sense to make one line special to the others.
>>
>> --
>> _______________________________________________
>> Lazarus mailing list
>> Lazarus at lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>>
>
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20110308/c0450a35/attachment-0003.html>