Colored Rows in Listbox: Now with Multiple Boxes per Listbox Row

[Boleeman]

Please go down to last replies for multi-boxed version. Yay. I achieved it.

I was investigating how to make, load and save colored rows to a normal TListbox.

Got the idea from https://forum.lazarus.freepascal.org/index.php?topic=48660.0

Can also change the colored row order.

How can we make the colored part only a partial rectangle of that row, and not the full row size?

and have the text appear after the colored rectangular bit.

[wp]

In the OnDrawItem event, first fill the entire rectangle given as parameter with the background color (your first two lines)

Define a temporary rectangle (R) equal to ARect. Set R.Right := ARect.Left + w, where w is the requested width of the color box. Maybe, to get a square, select w := ARect.Height. Shrink the size of R by a few pixels to avoid the color boxes of the lines touching themselves (InflateRect(R, -2, -2). Fill that smaller R with the requested color.

In order center the text vertically, calculated the text height: h := Listbox.Canvas.TextHeight('Tg'). Then calculate the vertical text position: y := (ARect.Top + ARect.Bottom - h) div 2. Finally draw the text: Listbox.Canvas.TextOut(R.Right + (some distance), y, Listbox.Items[Index])

[Boleeman]

Kinda got there.

[Boleeman]

Some progress made. A bit different to WP method.

A bit clunky on the loading but works.

Would be nice to make a Tcomponent out of it. Not really sure exactly how though.

Anyhow, still playing around and experimenting.


Forget to mention I added:

An edit listbox row.
(by double clicking a listbox row, changing the TColorbutton color and TEdit text and clicking enter button)

To Add a new value, click into the TEdit and press Escape. This will unfocus the focus rectangle on the TListbox
 

[Boleeman]

Ah, got the multi-boxed version happening. Hooooreeeey

Creates listbox rows of squares.

Saves listbox contents.

BUT Loading is not working correctly yet.

[Boleeman]

And finally I have the multiple boxed version working.

The main bits seem to be working.

Set number of boxes.
Select colors of boxes and insert them and the TEdit text into a listbox row.
Move rows up/down.
Edit rows by double clicking, changing and then press Enter button.
Add new items by clicking in TEdit and press escape. Then add new items.
Save listbox items to txt.
Load listbox items from txt.

I assume if I create 5 boxed rows then the save and open txt will work for that amount that was set.

I had the Lazarus IDE debugger seize for some reason, so perhaps some memory somewhere is not being freed. Not sure?
I am using 32-bit Windows Lazarus Compiler on this code.

Apologies for a previous upload.
I had some labels misplaced.

Hopefully someone can add some more features onto the program or perhaps make it work more efficiently.

See you all for now. Cheers.