Получить и установить системные цвета |
Previous Top Next |
Code: |
var
OldColor: TColor; Element: TColor = COLOR_BTNFACE;
{....}
{ Set the color for a system element. SetSysColors function changes the current Windows session only. The new colors are not saved when Windows terminates. For a list of color elements see Win32 API Help - Function GetSysColor
Open the ColorDialog - and set the new color systemwide }
procedure TForm1.Button1Click(Sender: TObject); begin if ColorDialog1.Execute then begin SetSysColors(1, Element, ColorDialog1.Color); end; end;
{ Save the old color value of the element COLOR_BTNFACE to restore on Button2 click }
procedure TForm1.FormShow(Sender: TObject); begin OldColor := GetSysColor(COLOR_BTNFACE); end;
{ Restore the old color value Stellt den alten Farbwert wieder her }
procedure TForm1.Button2Click(Sender: TObject); begin SetSysColors(1, Element, OldColor); end; |
©Drkb::03706
Взято с http://delphiworld.narod.ru