Corel FORUM

[F-Głowy]

Na załączonym obrazku widać jak Corel pokazuje mi "kolor" opisany w sposobie zwanym HEX.
Spotkałem się też z podanymi kolorami w HEXie w różnych księgach znaku itp. MOje pytanie jest jak mogę wpisać wartości HEX w Corelu?
Na obrazku pokazuje mi te wartości ale brak pola do ich wpisania. Nawet niżej (gdzie czerwona pozioma linia - nie da się tego wpisać).

[chezare]

To jest F fragment kodu tej strony, w której określono jakieś kolory, pewnie odnośników, nie zagłębiałem się. Na Twoim obrazku jest tak samo, to szesnastkowy zapis koloru w RGB. Mósisz przeliczyć.
22201E to będzie R(22)=34 G(20)=32 B(1E)=30
Jak znam życie, to będzie się znacznie różniło od tego CMYKA

[Sponsi]

Nie wiem czy wprowadzono heksy w późniejszych wersjach Corela, ale ja radziłem sobie dodatkiem w X4.
Nazywa się to to DrawColorHelperX4 i choć upierdliwe, to pozwala operować heksami.
http://www.antipoetics.co...orhelperx4.html

O tym, co to są heksadecymalne definicje kolorów to możesz sobie wyguglować ; )

[Stawe]

Zapis Hex dotyczy 3 składowych koloru w modelu RGB. 22 20 1E można zapisać jako 34 32 30 jako kolejne wartości dla red, green, blue.
Zapis heksadecymalny można tłumaczyć na dziesiętny np. tak:
2x16+2 =34, 2x16+0=32, 1x16+14=30
Na przesłanym obrazku mamy model CMYK czyli 4 składowe: cyan, magenta, yellow, black.
A to co innego - nie "światła" tylko "farba".
Wpisać wartości hexadecymalne można w tym samym okienku jeżeli przestawimy model na RGB. Pojawią się 3 okienka kolorów i wtedy zapis Hex pasuje.

Dokument w Corelu powinien być w jednolitym modelu barw - albo RGB, albo CMYK. Jeżeli zamierzamy drukować to model RGB można zamienić na CMYK w programie albo przy eksporcie do EPS, PDF itp...

[tegraf]

[Stawe]

[chezare]

Ludzie, czy wy uważacie, że F nie wie co to jest system szesnastkowy?

[tegraf]

[Stawe]

[restauro]

[chezare]

Wątpliwości mieć można, ale trzeba wierzyć w człowieka

Kod:

Sub hex_to_dec() Dim s As String Dim R, G, B As Byte Dim kw As Shape s = InputBox("Wpisz wartość szesnastkową (bez #," + Chr(13) + "musi być 6 znaków, np. 22201E)", "16 -> 10", "000000") If Len(s) <> 6 Then     MsgBox "6!!! Ma być sześć cyfr z zakresu 1,2,3,4,5,6,7,8,9,A,B,C,D,E,F"     GoTo koniec End If R = (H_to_D(Mid(s, 1, 1)) * 16) + (H_to_D(Mid(s, 2, 1))) G = (H_to_D(Mid(s, 3, 1)) * 16) + (H_to_D(Mid(s, 4, 1))) B = (H_to_D(Mid(s, 5, 1)) * 16) + (H_to_D(Mid(s, 6, 1))) Set kw = ActiveLayer.CreateRectangle(0, 0, 5, 5) kw.AlignToPageCenter cdrAlignHCenter + cdrAlignVCenter, cdrTextAlignBoundingBox kw.Fill.UniformColor.RGBAssign R, G, B koniec: End Sub Function H_to_D(ss As String) As Byte Dim L As Byte Select Case Mid(ss, 1, 1)     Case "1", "2", "3", "4", "5", "6", "7", "8", "9"     L = Val(Mid(ss, 1, 1))     Case "A", "a"     L = 10     Case "B", "b"     L = 11     Case "C", "c"     L = 12     Case "D", "d"     L = 13     Case "E", "e"     L = 14     Case "F", "f"     L = 15     Case Else     L = 0 End Select H_to_D = L End Function