PLTPenColor example for C++ Builder

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   L_UINT uPen;
   L_UINT uWidth;
   COLORREF crColor;

   for ( uPen= 0; uPen < 8; uPen++)
   {
      uWidth= ceil(uPen/2) + 1;
      switch ( uWidth )
      {
         case 1:
         {
            crColor= RGB ( 255, 0, 0 );
         }
         break;
         case 2:
         {
            crColor= RGB ( 0, 255, 0 );
         }
         break;
         case 3:
         {
            crColor= RGB ( 0, 0, 255 );
         }
         break;
         case 4:
         {
            crColor= RGB ( 255, 255, 0 );
         }
         break;
         default:
         {
            crColor= RGB ( 255, 0, 255 );
         }
         break;
      }

      /* Change Pen width */
      LEADImage1->PLTPenWidth[uPen]= uWidth;

      /* Change Pen color */
      LEADImage1->PLTPenColor[uPen]= crColor;
   }
   /* Now load the PLT file */
   LEADImage1->Load( "c:\\image1.plt", 0, 0, 1 );
}