Q&A

  • 반전된 색을 얻는 방법...
안녕하세요...



오랜만에 질문하나 하겠습니다...



델파이 내에서 $00AA112A 이런식으로 표현되는 색 정보를

HTML 색상 코드로 바꿔서 쓰는 간단하게 만들려고 하는데...

브라우저에서 해보면 반전된 색으로 나오더라구요...

제가 잘못한건가봐요... 뒤에 6자를 빼서



HTMLColorCode := '#'+Copy(ColorToString(Panel.Color), 4, 6);



이런 식으로 했는데....

다른 변환 방법을 가르쳐주시거나 반전 시키는 방법을 알려주세요...



안녕히~



2  COMMENTS
  • Profile
    김영대 2000.01.03 20:45
    이미누 wrote:

    > 안녕하세요...

    >

    > 오랜만에 질문하나 하겠습니다...

    >

    > 델파이 내에서 $00AA112A 이런식으로 표현되는 색 정보를

    > HTML 색상 코드로 바꿔서 쓰는 간단하게 만들려고 하는데...

    > 브라우저에서 해보면 반전된 색으로 나오더라구요...

    > 제가 잘못한건가봐요... 뒤에 6자를 빼서

    >

    > HTMLColorCode := '#'+Copy(ColorToString(Panel.Color), 4, 6);

    >

    > 이런 식으로 했는데....

    > 다른 변환 방법을 가르쳐주시거나 반전 시키는 방법을 알려주세요...

    >

    > 안녕히~



    델파이의 Color는 TColor 형태로 저장되어 사용되는데

    HTML 문서의 Color는 6문자의 16진수 문자열로 표현됩니다

    아래 TColor를 16진수 문자열로 바꾸는 함수입니다



    function GetColorHexStr(Color: TColor): string;

    begin

    Result :=

    IntToHex(GetRValue(Color), 2) +

    IntToHex(GetGValue(Color), 2) +

    IntToHex(GetBValue(Color), 2);

    end;





  • Profile
    이미누 2000.01.04 06:48
    김영대님 팁모아페이지에서 본적은 있습니다

    가르쳐주신게 잘못된 것 같습니다



    Result := IntToHex(ColorToString(Color), 2)

    //근데 문제는 요게 반전 색이 나온다는 거죠...~_~;



    이렇게 해야 맞는거 아닌가해서요 (-_-;) (아~ 아니다~이것도 안된다!!!)

    가르쳐 주신대로 해보면 완전 엉뚱한 색이 나옵니다...

    해보시고 다른 방법 좀 가르쳐 주세요...

    그리고 반전하는 방법도 가르쳐 주세요~~~

    안녕히계세요... 감사합니다



    김영대 wrote:

    > 이미누 wrote:

    > > 안녕하세요...

    > >

    > > 오랜만에 질문하나 하겠습니다...

    > >

    > > 델파이 내에서 $00AA112A 이런식으로 표현되는 색 정보를

    > > HTML 색상 코드로 바꿔서 쓰는 간단하게 만들려고 하는데...

    > > 브라우저에서 해보면 반전된 색으로 나오더라구요...

    > > 제가 잘못한건가봐요... 뒤에 6자를 빼서

    > >

    > > HTMLColorCode := '#'+Copy(ColorToString(Panel.Color), 4, 6);

    > >

    > > 이런 식으로 했는데....

    > > 다른 변환 방법을 가르쳐주시거나 반전 시키는 방법을 알려주세요...

    > >

    > > 안녕히~

    >

    > 델파이의 Color는 TColor 형태로 저장되어 사용되는데

    > HTML 문서의 Color는 6문자의 16진수 문자열로 표현됩니다

    > 아래 TColor를 16진수 문자열로 바꾸는 함수입니다

    >

    > function GetColorHexStr(Color: TColor): string;

    > begin

    > Result :=

    > IntToHex(GetRValue(Color), 2) +

    > IntToHex(GetGValue(Color), 2) +

    > IntToHex(GetBValue(Color), 2);

    > end;

    >

    >