제가 한소스를 올립니다.
뭐가 잘못된건지
이미지가 깨지고 너무 느리네요..
모니터 해상도는 16비트이구여.....그림이미지 해상도고 16비트입니다.
소스 올립니다. 그리고 명도(명암)는 어떻게 하는지 좀 알려주세요.

류종택 님이 쓰신 글 :
: 아래 두 함수를 참고하세요..
: 웨이트(가중치)는 0-100까지..
:
: Function  BrightColor(Color:TColor; Weight:Integer):TColor;
: Var
:    iR, iG, iB : Integer;
: Begin
:   iR:= (GetRValue(Color)*(100+Weight)) div 100;
:   iG:= (GetGValue(Color)*(100+Weight)) div 100;
:   iB:= (GetBValue(Color)*(100+Weight)) div 100;
:   Result:= RGB(iR, iG, iB);
: End;
:
: Function  DarkColor(Color:TColor; Weight:Integer):TColor;
: Var
:    iR, iG, iB : Integer;
: Begin
:   iR:= (GetRValue(Color)*(100-Weight)) div 100;
:   iG:= (GetGValue(Color)*(100-Weight)) div 100;
:   iB:= (GetBValue(Color)*(100-Weight)) div 100;
:   Result:= RGB(iR, iG, iB);
: End;
:
:
: 블루 님이 쓰신 글 :
: : 안녕하세요...
: : 지금 이거때문에 고생하구 있는데요..
: : 이쪽에 워낙 지식이 없어서...
: : 24비트일때는 fasdib를 이용하여 처리 했는데요...
: : 16비트일때는 꺠져버려서 도저히 모르겠네요....
: : rgb값을 변환해서 하라구 하시는데...
: : 정말 모르겠습니다.
: : 자세히좀 제발 설명해주세요...
: :
: :