Boa tarde !
Estou usando o objeto FWMsPrinter para fazer uma impressão que vai para a gráfica em formato PDF.
Para dar cor ao fundo das páginas estou usando o objeto TBrush.
O TBrush usa as cores no padrão RGB, mas a gráfica me mandou as cores que tenho que usar no padrão CMYK.
Existe alguma forma de imprimir cores no padrão CMYK ou converter para o padrão RGB ?
Muito obrigado !
Boa Tarde Rodrigo,
É possível converter sim, existe uma formula:
CMYK to RGB conversion formula The R,G,B values are given in the range of 0..255.
The red (R) color is calculated from the cyan (C) and black (K) colors:
R = 255 × (1-C) × (1-K)
The green color (G) is calculated from the magenta (M) and black (K) colors:
G = 255 × (1-M) × (1-K)
The blue color (B) is calculated from the yellow (Y) and black (K) colors:
B = 255 × (1-Y) × (1-K)
Referência: https://www.rapidtables.com/convert/color/cmyk-to-rgb.html
Atenciosamente,
Bom dia Douglas ! Muito obrigado pela resposta. Ajudou muito. Apenas tive que fazer dois ajustes: incluir divisão por 100 e arredondar o resultado. Por exemplo: nR := Round( 255 ( 1 - ( C / 100 ) ( 1 - ( K / 100 ) ), 0 ). Funcionou perfeitamente.
— Rodrigo M. Spindola 12 de Aug de 2020A quem possa interessar seguem as função para conversão de cores nos padrões Hexadecimal e CMYK para RGB:
// Função para conversão do padrão Hexadecimal para RGB. //
Static Function fHexToRGB( pHex )
Local cHex := AllTrim( StrTran( pHex, "#", "" ) )
Local nR := 0
Local nG := 0
Local nB := 0
Local aRet := Array( 3 )
If Len( cHex ) == 3
nR := __HexToDec( SubStr( cHex, 1, 2 ) + SubStr( cHex, 1, 2 ) )
nG := __HexToDec( SubStr( cHex, 3, 2 ) + SubStr( cHex, 3, 2 ) )
nB := __HexToDec( SubStr( cHex, 5, 2 ) + SubStr( cHex, 5, 2 ) )
Else
nR := __HexToDec( SubStr( cHex, 1, 2 ) )
nG := __HexToDec( SubStr( cHex, 3, 2 ) )
nB := __HexToDec( SubStr( cHex, 5, 2 ) )
EndIf
aRet[1] := nR
aRet[2] := nG
aRet[3] := nB
Return( aRet )
// Função para conversão do padrão CMYK para RGB. //
Static Function fCMYKToRGB( pC, pM, pY, pK )
Local nR := 255 * ( 1 - ( pC / 100 ) ) * ( 1 - ( pK / 100 ) )
Local nG := 255 * ( 1 - ( pM / 100 ) ) * ( 1 - ( pK / 100 ) )
Local nB := 255 * ( 1 - ( pY / 100 ) ) * ( 1 - ( pK / 100 ) )
Local aRet := Array( 3 )
aRet[1] := Round( nR, 0 )
aRet[2] := Round( nG, 0 )
aRet[3] := Round( nB, 0 )
Return( aRet )