Структуру CHOOSECOLOR надо заполнять перед вызовом функции ChooseColor.
| Код | void __fastcall TForm1::Button1Click(TObject *Sender) { COLORREF cr[16]; // здесь можно задать какие-нибудь особые цвета CHOOSECOLOR cc;
memset(cr, 0, sizeof(cr)); memset(&cc, 0, sizeof(cc));
cc.lStructSize = sizeof(cc); cc.hwndOwner = Handle; // дескриптор главного окна cc.rgbResult = RGB(255, 0, 0); // значение цвета по умолчанию. // после вызова функции ChooseColor здесь будет результат cc.lpCustColors = cr; cc.Flags = CC_RGBINIT;
if(ChooseColor(&cc)) { // пользователь нажал кнопку OK ShowMessage(IntToHex((int)cc.rgbResult, 8)); } else { // пользователь нажал кнопку Отмена } } |
|