Delphi. Трюки и эффекты

Окно выбора цвета

function ShowChooseColor(lastColor: COLORREF = 0):COLORREF;

var

choose: TChooseColor;

begin

ZeroMemory(Addr(choose), SizeOf(choose));

//Заполнение структуры для диалогового окна

choose.lStructSize := SizeOf(choose);

choose.hWndOwner := hParentWnd;

choose.hInstance := hAppInst;

choose.rgbResult := lastColor;

choose.lpCustColors := Addr(colors);

choose.Flags := CC_RGBINIT or CC_ANYCOLOR or CC_FULLOPEN;

//Отображение окна диалога и обработка результата

if (ChooseColor(choose) = True) then ShowChooseColor :=

choose.rgbResult

else ShowChooseColor := lastColor;

end;