-
Постов
14 -
Зарегистрирован
-
Посещение
Активность репутации
-
Котэ получил реакцию от Ingalime в Цвет поля TTextObjectAppearance
Блин пока создам вопрос, найду ответ.
Код надо поправить было.
function TfrmM.ColorToAlphaColor(Value: TColor): TAlphaColor; var CRec: TColorRec; ARec: TAlphaColorRec; begin CRec.Color := Value; ARec.A := FF; ARec.B := CRec.B; ARec.G := CRec.G; ARec.R := CRec.R; Result := ARec.Color; end;
-