Add images to listbox

Images size are now 80x100 pixels.

Author: Crayon2000

Main.cpp

@@ -451,7 +451,21 @@ void __fastcall TForm2::ActionRepositories()
                 LListBoxItem->IsChecked = true;
                 LListBoxItem->Text = LSourceRepository.FullName;
                 LListBoxItem->TagString = LSourceJson;
-                LListBoxItem->ImageIndex = -1;
+                if(LSourceRepository.Private == true)
+                {   // Private
+                    LListBoxItem->ImageIndex = 0;
+                }
+                else
+                {
+                    if(LSourceRepository.Fork == false)
+                    {   // Public
+                        LListBoxItem->ImageIndex = 1;
+                    }
+                    else
+                    {   // Fork
+                        LListBoxItem->ImageIndex = 2;
+                    }
+                }
                 if(LSourceRepository.Description.IsEmpty() == false)
                 {
                     LListBoxItem->ItemData->Detail = LSourceRepository.Description;

Main.fmx

@@ -68,13 +68,13 @@ object Form2: TForm2
       object chkSourceTypeOrg: TRadioButton
         Position.X = 136.000000000000000000
         Position.Y = 152.000000000000000000
-        TabOrder = 6
+        TabOrder = 7
         Text = 'Organization'
       end
       object chkSourceTypeUser: TRadioButton
         Position.X = 136.000000000000000000
         Position.Y = 128.000000000000000000
-        TabOrder = 5
+        TabOrder = 6
         Text = 'User (me)'
       end
       object Label1: TLabel
@@ -99,7 +99,7 @@ object Form2: TForm2
       end
       object txtSourceName: TEdit
         Touch.InteractiveGestures = [LongTap, DoubleTap]
-        TabOrder = 7
+        TabOrder = 8
         Position.X = 248.000000000000000000
         Position.Y = 152.000000000000000000
         Size.Width = 233.000000000000000000
@@ -175,6 +175,7 @@ object Form2: TForm2
         Size.PlatformDefault = False
         TabOrder = 2
         DisableFocusEffect = True
+        Images = ImageList1
         DefaultItemStyles.ItemStyle = ''
         DefaultItemStyles.GroupHeaderStyle = ''
         DefaultItemStyles.GroupFooterStyle = ''
@@ -269,13 +270,13 @@ object Form2: TForm2
       object chkDestinationTypeOrg: TRadioButton
         Position.X = 136.000000000000000000
         Position.Y = 152.000000000000000000
-        TabOrder = 6
+        TabOrder = 7
         Text = 'Organization'
       end
       object chkDestinationTypeUser: TRadioButton
         Position.X = 136.000000000000000000
         Position.Y = 128.000000000000000000
-        TabOrder = 5
+        TabOrder = 6
         Text = 'User (me)'
       end
       object Label3: TLabel
@@ -300,7 +301,7 @@ object Form2: TForm2
       end
       object txtDestinationName: TEdit
         Touch.InteractiveGestures = [LongTap, DoubleTap]
-        TabOrder = 7
+        TabOrder = 8
         Position.X = 248.000000000000000000
         Position.Y = 152.000000000000000000
         Size.Width = 233.000000000000000000
@@ -492,4 +493,194 @@ object Form2: TForm2
     Left = 432
     Top = 72
   end
+  object ImageList1: TImageList
+    Source = <
+      item
+        MultiResBitmap = <
+          item
+            Width = 80
+            Height = 100
+            PNG = {
+              89504E470D0A1A0A0000000D494844520000005000000064080600000011FAB7
+              16000004D949444154785EED9DD94BFC3010C7FDD3BD1505EF1715BC509FBCF0
+              164FBCAF07D155111F146FF44105052FCC8F6F615F6CBBCD749236DDDF080BB2
+              9B4C663EF9A699A6695B52227F42400808011E819F9F1F757979A9363737D5F8
+              F8B8EAEDED55EDEDEDAAA5A5C5FBE07F7C373131E1954159D4E1B59AF1DADFDF
+              DFEAE8E8480D0C0CA8AAAA2A555A5A4AFAA00EEAC2066C651C87BEFBEFEFEF6A
+              717151D5D6D6928015020C5BB009DBFA9E64AC2486DCEAEA6A2CB5E9AA13AA44
+              1B4537BC6F6E6E546B6BAB31C545016D6B6B53B7B7B7C5A1C6ADAD2D55515191
+              18BC3C5CB4B9BDBD9D6D88B3B3B38983FBABCEA9A929F5FBFB9B2D9070786868
+              2875787998F0255310A7A7A79D819787881C3213F3EEFAFABA73F0F210373636
+              DC86787D7DADCACBCB9D0508DFAEAEAEDC84F8F5F5A51A1B1BD9F01A1A1AD4C8
+              C8885A5858F066D19D9D1DB5B4B4A4C6C6C6BCD3BAA81426EAF7A6A626055F9D
+              1BCEF3F3F3B18343CA313333A3EEEEEE22037B7A7AF280565757C76E0F672D4E
+              017C7E7E8E3D743143BEBCBC9003C2695BDCC90A1D16A74D6BD0272727C96A28
+              2B2B539870B84E9D9D9DA99A9A1A72FBC80FB96D1BA90F255456569202C0C1FC
+              FCFCDC580018FA5488F0D989C5071CE8A30EDC7F7FDFDBDB33062FAF02740854
+              4DF10513941115718C747474909C1E1D1DB5E63426170AC0CECE4E6BBE68317D
+              7B7B23398C61F3FAFA6ACD692CAC220DA2404C7518E7723992B34875B47A8651
+              0887070AC0E3E363EB3E8586333737477216391C838D56D58F8F0FD2F21962D0
+              326CA310AE49E8F636CE226CF81064B3AFAF4FDBAFC1C1C1C4FCF2F94A39B54A
+              32EFA22C6860A53CA98EF5B5535757A7DDD3269266DD400F0F0FB5FDAAAFAF4F
+              0F2065A9FEE0E02031472F2E2EB4012233D0ED18E3E5748F7F28777A7A9A98A3
+              F7F7F7DA00E19B7130BA0605A02EA990720250007A439D89217E7551607C765E
+              4D0128006508076940D218E6C8108002D0BFDB54CE44025421B37081A182DD4C
+              D8AA81958DFDFDFDC00F05202E7D86D931FD3DF5DA4858FB881D0CC83BBB70A5
+              0DCB3C1440C55C162CB4AEE0B9B6AFCFB54E191E1E2EACC6B5B535515DC4ED16
+              A10BC39F9F9FAC0D3BAEA9C5963FD8D40456BEE9E3E4E444D4A779B34F604A46
+              B91093EFDDE6E66655CC9FB03D3F813B5D979797C90A649E30385FBDA7A72790
+              0958F99C1780FEFE14804C8D0B4001C824C0AC2E0ACC2A406C1C0F4A6FB276F3
+              5F6A0A2435CC5489CDEAA4384CA631A4866D1260DA26C521001DCA03493DC754
+              89CDEAA43844810E2910770F052D93EBDC0B67535154DBA92990EAA8ABE50520
+              B36704A0006412605617056615A0CCC29A1757C23A98247DA64A6C5627C52189
+              B4438934A9E76C4A88699B1487285014C8D49B430065459A390B1B97424A0653
+              3B06A614AFF166052013A90014804C02CCEAA2C0AC0294348699C690A4CF5489
+              CDEAA438E454CEA1331152CFD99410D336290E51A02890A9378700CA923E7316
+              362E85940CA6760C4C295EE3CD0A402652012800990498D5490A5C595921DFEA
+              65FA4E73D7EC85BDC608AC7C7D437D78ABADDB49B360171DED03F8F0F0405660
+              1682B5E1E3E3E363F003CBBABABA0462440EDCDDDD1DFEB43790A53E93DE460F
+              BB6A136C221FE58CF7B19978B18AAB10E2FA0526DAEFAAC31B5FF0988FFEFE7E
+              8597DC15F35DE9856243EC60B0BBBBFB7FBDBF9399FE497521902102FF004CA6
+              7F3EBC65C3C30000000049454E44AE426082}
+          end>
+        Name = 'private'
+      end
+      item
+        MultiResBitmap = <
+          item
+            Width = 80
+            Height = 100
+            PNG = {
+              89504E470D0A1A0A0000000D494844520000005000000064080600000011FAB7
+              160000039D49444154785EEDDDBB8AF2401407F02CF6E253F80EFB7682207662
+              A3ADE853A8858282622568A18285172C45046DBCE4E32CC817CC8C99C999308E
+              FE17D22C39C9CC2F67329718FDF1047FC7E3D11F0C06DE62B1F00E878377BBDD
+              44BB7DFCFF52A99497C964BC6C36EBFDFEFE7AE974FA27B2D2B3D9CC2F140A7E
+              2E97C316302093F97CEEBF045CAFD77E3E9F079C2479C8868C8488F7FBDDAF54
+              2AC08B6879D56A550CB8D96C80A778DBDA6EB761C4E170084045C0D1681406EC
+              76BBDA80CBE5D2FFE48D9AABA83325ABD07DB0D3E968034676E98EEF50ABD584
+              26640540858B0B4005A457BB0010804C0166B8B50C9C4C267EBFDF0F6DABD5EA
+              F554885961D3E1D600B54E6CBAD6068FA7550F93C318AD131BACB0E94369D503
+              80617E0032531280AE02369B4DBF5EAF87B6F1788C5E3838B9665EE0B70FB7D6
+              84DF5E46B18000548492ED064000320598E1C8405701B5AE1CB39249866BD503
+              53394CE58C27233290490A4000320598E1D63270B7DB091FB8EFF77B2C266031
+              21E7E3C1BA62D3B6D68415CBF7F6BB0190798900E82A201EAC2B7ED0D0C84224
+              334B920CB7D684B54E9CA400F3D85AF5C06A0C566398F906C0CF01C48375662F
+              6C3C152C1DD05A2762A9BEC64F0B4026290001C814608623035D05D4BA72CC4A
+              2619AE550F4CE53013319E8CC84026290001C81460865BCB403C58C762C25FEE
+              5ACB4066CB799B7000322F050001C8146086279E81A2B7D23FE97FE57239D9AF
+              3DF9D66F7833F6F1360006EE11715663000840EDAFBBA2A44113569C69C95A98
+              1660B15814BE7D2E7A23FDD3FE477517216A01D25888399C7236DCC8381080E1
+              2FE345062AB60964A022946C3700029029C00CB79681B213C799B9300D58E100
+              64F1195AD28F338C410606A63A00B4300E44062203F51F6BF67A3DE1C439CE62
+              826C121EA717B6B94021AB075985FA277A41304E05BF31663A9D86014FA7137E
+              8C45619D907E94E57C3E8B57A8E805996FCC289D3AB75A2DF9F2DEF57AF54DF6
+              A03A0573615FB221A397E373DA8194F1DB4AFFC77F644126917841596AE7D4B1
+              508FD36EB7B5B652A964EC56A07B6E93FB53DDC9407ACF634E15A5E1266F0349
+              95F1AD8F0B40E6E55101947DEEE4B9336116C5CDF028C046A3E15F2E97BF9FCB
+              88EA7DDD146096FA15E003EF718A28446651DC0C97013EE3A920BA29C02CB508
+              50861785C82C8A9BE1CF805178AF10DD1460963A08A88A27436416C5CDF007A0
+              2E9E08D14D0166A909302EDE3322B3286E86D31C92C679DCD20B3FC4C33DA8E1
+              F87F9ECC4C9EB38627B70000000049454E44AE426082}
+          end>
+        Name = 'public'
+      end
+      item
+        MultiResBitmap = <
+          item
+            Width = 80
+            Height = 100
+            PNG = {
+              89504E470D0A1A0A0000000D494844520000005000000064080600000011FAB7
+              160000075C49444154785EED9D894F143F14C7FDD30539E43E0414E494331150
+              30CA25570025100C21DC04359C82100218E5EE2F5FE2FEB2765E777ACDEC325B
+              934D0CD3BE7EDFA7EDF4B53BF3F6D123F7CF1170041C0147C01170041E30819F
+              3F7FB2999919D6DBDBCBDADBDB59737333EBEAEA624343436C7D7D9D5D5D5DB1
+              B0DDBBBCBCBC6F1B1AA0059AA00D1AA1159AC3D6E4696F717191BD7CF9923D7E
+              FC38E127373797F5F5F5B1D3D3D3C045A38D0F1F3EB09C9C1C5F5DD0BEB4B414
+              B8260FB8939313D6D4D4E42B90070B90B3B3B38109C6C89201C7EB7AF5EA1583
+              4FA18CC8DDDD5D565050A00C2F5EF4DBB76FD9EDEDAD35C1777777ECDDBB7746
+              9AF2F2F2D8F6F6B6354D64671C1C1C68F53035C57B7A7AAC894587F8DD4664AE
+              63861C1E1E5AD3F50FC48B8B0B5656562614FAFCF973363636C6969797D9C6C6
+              06FBF2E5CBFDCD3B3B3B5B58C7C674C6B415C1C17486066881266883466815D5
+              292F2F67F0D5FA741E1C1C241BC57486305183E7E7E7ACB3B393AC8B1EFFF5EB
+              97B658D816DDF3000ED745BAA0393F3F9FD48595DB2A40AC6C4F9E3CF134565A
+              5A2A7DF345CF53BD8E155357ECFBF7EF499B684BC626160EF8C0EBCACACA6267
+              6767523664DA793439394936827BA29481BF85302A78B14F9F3E653737374A76
+              60EEFAFA9AA12E6F0F6DA868820FD4E080CF2A761296ADA9A9F1081D1818506E
+              00538ABA27AEADAD29DB421D1E1E6C279AB62227E10B6F0B3E5B0188D141F5D0
+              D1D1915603D4FD5076CAC53B343A3AEA71BABBBB5B4BD3F1F1B1C7167CD69919
+              1EE858D6F9DE292E2ED6120AE37373731E7BAF5FBF56B6873ABC2EACB6BAA306
+              3EF1F6AC6CF7F6F6F63C866B6B6BB585229CE085628FAAEA785B5B9BC70E6CAB
+              DA8995A7B6A4FBFBFBDAF6FED74101ACAAAAD2368CBD6750001385537E602B2B
+              2B3DBAAC00FCFDFB3779B3C62AE8278ABA4E8533386850B585F087EF88F1F171
+              653BB1151DA10B6FEFCF9F3F5AF63CBE1416167A8CAFACAC6819C7E8E585E2BE
+              A80A10BB18DECE8B172F94EDA05D8C5CDE56515191962DD20F9CA1F10D545757
+              336CE2551CA7A62FECEA04AD08EEA9C05CB563E103B5B5C3E1848A6F09CB7EFD
+              FA95143B3C3C2CDD08A27E6AEBD4D0D0206D831789BA3C446C2D55CE1D455BD4
+              6FDFBE69EB2261D6D5D50921FA8DC41F3F7E905B26388FCED1EDE9CDCD4D5213
+              0E3DFC4E55A05904AFBEBE5E5B93D0979D9D1D969999490AC6BD0753875F5810
+              6CF7F7F7938138E0757474180B4508444D652C0A00842039DE2968C43D8FBA17
+              C30E7CC499A76EA726AC47ED89E3C5632B85700071226EC289CEE04A4A4A1856
+              7853A1B04105C1F16DE33A34411BB5DAC697FDF4E993B1A6843E8D8C8C240423
+              73708955DD6F8AA980C548F78328A30B2356A55DEDB2E8256A7F2C2312117F10
+              DF3FC0A6CC175C9446F8F2F9F3E770E0C5A863619001165F06FB579BDF85F023
+              00B6A93DB29F4ED56339ED91C757F413C65FC7098AB5C60586A8531A3F9D416B
+              12DAF713E600FA748D036838761D4007F07E2134C4A05FDD8D407D76F7351DC0
+              9001E2110CC3267DABEB3CE6E16B34A802AA2310E5AD7FEB1FE79C4E0CF8A0EE
+              8131E04140D48597548078244C6714A28ECD5D89093CF810D40CF5B58B6FAD4C
+              20DA188926F0F0684860677FBEF4FE164826C4070F2F0639191023032F191023
+              072F4C8891851706C4C8C30B1262DAC00B0262DAC18B41C4935D267122C099C0
+              43DBD0201B92A56439D3104777A7931241B2AD1E091B62A4E0D9BA27CA8EC448
+              C20B0B62A4E1050D312DE0050531ADE0D9869896F06C414C6B78A6101DBCB820
+              134FB7CA8629B172AA0F93DB8A6953D20E1EE8560568FD21F094242329CA0194
+              04252AE6003A8086040CABBB11E8001A1230ACEE46A0036848C0B0BA1B810EA0
+              2101C3EAD3D3D3CA3B11D4316CF6E157476246A42A51DDC6C5CAA36E32923BA6
+              047938AE938390878D777B91AD32259C0A53444B4B4BC29187B7DB9156001F51
+              92B018CCD6D6D6F40238353525848797B0B7B6B6FEC9C780B7CBF1375C134DF7
+              D0DFB60C73B4C5B78517A4A9947578595B269F29F2B652F9B7904ACFC60BDCC9
+              E222DD2EF5C27646460653494086B2A8938C9719A51D0DAA203244F28EEBE410
+              A412EF3C7BF62CDAF74224F3E2E121C9834E164BD4A19260E866950B6AC058B5
+              4B65084228A3DB486363A3B58C4ABA1A42AD875C0B36A66F4C34950234D2AB31
+              05F0E3C78FDA2310EF99F01D12698054C2B0376FDE6803A472B2DA48AD1CEAB4
+              54698C3AB632C99246E58AF9FEFDBB7687A8F89294B2C8C747AD9CF8D5055541
+              ABABABE48A6E2DE79FAAA0B0CA537BE08A8A0AA50301641AA7E2C9B4D8138B72
+              082289984C564C9CE2880E224C5280863580ACB4234AD184BF232392A8113C71
+              8FD319EA40C12431AE15A7C2340210A22C6AD8E3E2D76770E28C3D2F3E084DF0
+              9B1FD4FE173061CB4AC2D8302198B6353F3FAF7D12CD8FC0858505E545C8547F
+              4AD4074451524799637E8C489D04B629E1BC2D1188DB12FD4E89082456E148C7
+              7C2A80B1FAE2949AFA690A1E20CA604B28B362AB688844591CDDE3778D262626
+              18B67888EBF0C1FFF1375CF34B781B0910CE0947C01170041C0147C0119020F0
+              1F2988BA194BADEB5E0000000049454E44AE426082}
+          end>
+        Name = 'fork'
+      end>
+    Destination = <
+      item
+        Layers = <
+          item
+            Name = 'private'
+            SourceRect.Right = 80.000000000000000000
+            SourceRect.Bottom = 100.000000000000000000
+          end>
+      end
+      item
+        Layers = <
+          item
+            Name = 'public'
+            SourceRect.Right = 80.000000000000000000
+            SourceRect.Bottom = 100.000000000000000000
+          end>
+      end
+      item
+        Layers = <
+          item
+            Name = 'fork'
+            SourceRect.Right = 80.000000000000000000
+            SourceRect.Bottom = 100.000000000000000000
+          end>
+      end>
+    Left = 333
+    Top = 19
+  end
 end

Main.h

@@ -25,6 +25,8 @@
 #include <FMX.ListBox.hpp>
 #include <FMX.TabControl.hpp>
 #include <FMX.Objects.hpp>
+#include <FMX.ImgList.hpp>
+#include <System.ImageList.hpp>
 //---------------------------------------------------------------------------
 class TGitApplication;
 class TRepository;
@@ -84,6 +86,7 @@ class TForm2 : public TForm
     TEdit *txtDestinationName;
     TEdit *txtDestinationToken;
     TEdit *txtDestinationUrl;
+    TImageList *ImageList1;
     void __fastcall TabControl1Change(TObject *Sender);
     void __fastcall WizardButtonClick(TObject *Sender);
     void __fastcall FormShow(TObject *Sender);