create d-ActivatePaletteButton procedure