🚀 go-pugleaf

I am using XP and BCB5.
With help from these newsgroups I can increase the StringGrid's scrollbar
width. This works great except that my icons on the taskbar also increase in
size.  When I change the size back the icons do not return to there original
size.  But if I reboot they are back to their original size. I would like to
either prevent the icons from changeing or change them back. Thanks for your
help.
Here is my code:

__fastcall TFormOrderViewer::TFormOrderViewer(TComponent* Owner)
   : TForm(Owner)
{
   NONCLIENTMETRICS gs_info = {0};
   int gs;

   gs_info.cbSize = sizeof(NONCLIENTMETRICS);

   gs = SystemParametersInfo(
        SPI_GETNONCLIENTMETRICS,
        sizeof(NONCLIENTMETRICS),
        &gs_info,
        0);

   if (! gs)
   {
      ShowMessage("can't get system info for Scrollbar.");
   }

   Old_ScrollBar_Size = gs_info.iScrollWidth;
   gs_info.iScrollWidth = 35;

   gs = SystemParametersInfo(
        SPI_SETNONCLIENTMETRICS,
        sizeof(NONCLIENTMETRICS),
        &gs_info,
        0);

   if (gs == false)
   {
     ShowMessage("can't set system info for Scrollbar.");
   }
}

//return the width to the original setting with the following code:

void __fastcall TFormOrderViewer::FormClose(TObject *Sender,
      TCloseAction &Action)
{
   NONCLIENTMETRICS gs_info = {0};
   int gs;

   gs_info.cbSize = sizeof(NONCLIENTMETRICS);

   gs = SystemParametersInfo(
        SPI_GETNONCLIENTMETRICS,
        sizeof(NONCLIENTMETRICS),
        &gs_info,
        0);

   if (! gs)
   {
      ShowMessage("can't get system info for Scrollbar.");
   }

   gs_info.iScrollWidth = Old_ScrollBar_Size;

   gs = SystemParametersInfo(
        SPI_SETNONCLIENTMETRICS,
        sizeof(NONCLIENTMETRICS),
        &gs_info,
        0);

   if (gs == false)
   {
     ShowMessage("can't set system info for Scrollbar.");
   }
}