const ColorArray: array [0..25] of Integer = (COLOR_3DHILIGHT, COLOR_3DLIGHT, COLOR_3DSHADOW, COLOR_3DDKSHADOW, COLOR_3DFACE, COLOR_ACTIVEBORDER, COLOR_ACTIVECAPTION, COLOR_APPWORKSPACE, COLOR_BACKGROUND, COLOR_BTNFACE, COLOR_BTNTEXT, COLOR_CAPTIONTEXT, COLOR_GRAYTEXT, COLOR_HIGHLIGHT, COLOR_HIGHLIGHTTEXT, COLOR_INACTIVEBORDER, COLOR_INACTIVECAPTION, COLOR_INACTIVECAPTIONTEXT, COLOR_INFOBK, COLOR_INFOTEXT, COLOR_MENU, COLOR_MENUTEXT, COLOR_SCROLLBAR, COLOR_WINDOW, COLOR_WINDOWFRAME, COLOR_WINDOWTEXT); procedure TForm1.SetColor(Index: Integer; Value: TColor); var Tmp: Integer; begin Tmp := ColorArray[Index]; SetSysColors(1, Tmp, Value); end; function TForm1.GetColor(Index: Integer): TColor; begin Result := GetSysColor(ColorArray[Index]); end;
Panel1.Color := GetColor(4);
SetColor(4, clWhite);
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question