아래처럼 하면 이미지가 어두워 집니다.

뒤에 0.5라는 숫자를 바꾸면 RGB값을 바꿀 수 있으므로 밝기조정이 가능해 지겠죠?

고혜정님께서 답변을 하신것이 있어서 저도 열심히 답변하고 있는 중입니다.

여기에 있는 질문들을 읽어보시고 아시는것 있으면 답변도 해주시고, 자유게시판과 지역게시판에도 놀러오세요.

그럼..



type

TRGBColor = record

case integer of

1: (Color : TColor;);

2: (R: byte;

G: byte;

B: byte)

end;

var

x,y : Integer;

rc,gc,bc: Real;

C : TRGBColor;

begin

for x:=0 to Img.Width-1 do

begin

for y:= 0 to Img.Height-1 do

begin

c.color:=Img.Canvas.Pixels[x,y];

Img.Canvas.pixels[x,y]:= RGB( round(c.r*0.5), round(c.g*0.5), round(c.b*0.5));

end;

end;

end;





고혜정 wrote:

> 안녕하세요...

> 저는 고혜정이라고 합니다. 화요일부터 저희 졸업작품행사가 있습니다.

> 저기에 나가기 위해 전자앨범을 만들었는데, 이미지가 어두울 경우 밝게 조절할 수 있는지요.

> 자세한 내용 부탁합니다. 초보라서요...

>

> 그리고 어떤 폴더에 파일이 몇개 있는지 알수는 없을까요.

> 함수를 잘 몰라서요