Q&A
- 이미지의 색을 바꾸는 방법
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i, j : integer;
begin
for i := 0 to Image1.Height do begin
for j := 0 to Image1.Width do begin
if Image1.Canvas.Pixels[j,i] = RGB(222, 223, 247) then
Image1.Canvas.Pixels[j,i] := RGB(255, 0, 0);
end;
end;
end;
이렇게 했는데 특정한 색을 변경할 수가 없네요.
색을 바꾸는 방벙을 자세히 알려주셨으면 감사합니다..
아니면 제가 잘못한 부분이라도 알려주시면 감사하겠습니다.
var
i, j : integer;
begin
for i := 0 to Image1.Height do begin
for j := 0 to Image1.Width do begin
if Image1.Canvas.Pixels[j,i] = RGB(222, 223, 247) then
Image1.Canvas.Pixels[j,i] := RGB(255, 0, 0);
end;
end;
end;
이렇게 했는데 특정한 색을 변경할 수가 없네요.
색을 바꾸는 방벙을 자세히 알려주셨으면 감사합니다..
아니면 제가 잘못한 부분이라도 알려주시면 감사하겠습니다.
3
COMMENTS
-
-
포토샵에서 색을 골라서 하니까 되네요.
전에는 색뽑아내는 프로그램으로 했는데 이건 값이 제대로 안나왔었나봅니다.
근데 속도가 좀 느린거 같은데 빠르게 할 방법은 없는지요..
-
잘되는데.. 어느부분이 않된다는것인지요??
아마도 if문의 생상의 값이 잘못된거같습니다.
RGB값을 체크해보시고 다시 해보세요..~
참고로 TImage에 Bitmap이미지를 불러왔을때만 처리가 가능합니다.
(NOTICE) You must be logged in to comment on this post.
-
- 유창원
- •
- 2002.12.23 20:54
- 1 COMMENTS
- /
- 0 LIKES
-
유창원•2002.12.30 21:19구석구석 찾아보니 답이 있군요. 연말을 뜻있게 보내시기 바랍니다. ^^
-
- 박재용
- 2002.12.23 20:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 이치영
- •
- 2002.12.23 20:14
- 2 COMMENTS
- /
- 0 LIKES
-
이훈•2002.12.23 20:37!000-9000-0000;1;_ 아마 이것을 묻는것 같은데요 0 인것을 9로 바꾸면 입력 안해도 됩니...
-
열심히•2002.12.23 21:30핸드폰번호를 분류하자면.. xxx-xxxx-xxxx, xxx-xxx-xxxx, 이렇게 두가지가 나올수 있죠.. 이걸 물어...
-
- 박한수
- •
- 2002.12.23 20:07
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•2003.01.16 22:22인터베이스의 단점중의 하나는 함수가 빈약하다는 겁니다. substr도 기본내장이 아니라 Udf로 등록해서 ...
-
- 도니
- •
- 2002.12.23 19:33
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.23 20:11안녕하세요. 최용일입니다. 전송데이터가 텍스트면 기본소켓에서 보낼때 문자열끝에 전부 캐리지리턴(#1...
-
도니•2002.12.23 21:19답변감사합니다.. 덕분에 실마리를 풀어서 어느 정도 진전이 있었습니다.. 그리고 추가 질문이 뭐냐면...
-
최용일•2002.12.23 21:50안녕하세요. 최용일입니다. 중계서버가 어떤방식으로 말단서버로 연결을 하는지에 따라서 방법이 달라지...
-
- 델사랑
- •
- 2002.12.23 18:35
- •
- 1 COMMENTS
- /
- 0 LIKES
-
LuckyBoy•2002.12.23 21:14질문을 보고 일반 디비그리드를 사용해서 테스트를 해보았는데.. 결과는 아무이상없이 출력이 되거든요.. ...
-
- 권영재
- •
- 2002.12.23 18:18
- 3 COMMENTS
- /
- 0 LIKES
-
콤보•2002.12.23 22:30만약 프로그램에서 DB(오라클, ms-SQL)을 사용하신다면 쿼리문을 이용하여 넘겨 받는 방법이 있을 것 같습...
-
LuckyBoy•2002.12.23 21:06트리를 이용하여 연산을 하는 방법도 있지만.. 예전에 연산자와 피연산자를 Stack에 넣고 연산을 처리했...
-
최용일•2002.12.23 20:15안녕하세요. 최용일입니다. 트리로 만들어서 계산하세요... &n...
-
- 세라핌
- •
- 2002.12.23 08:47
- 3 COMMENTS
- /
- 0 LIKES
procedure TForm1.BitBtn1Click(Sender: TObject); var i, j : integer; begin for i := 0 to Image1.Height do begin for j := 0 to Image1.Width do begin if Image1.Canvas.Pixels[j,i] = RGB(222, 223, 247) then Image1.Canvas.Pixel...-
김수경•2002.12.23 22:18테스트 해 보니 잘 되는 군요 ㅡㅡ; 비교하는 RGB 값이 올바른지 확인해 보세요. 참고로 그림내 특정 ...
-
세라핌•2002.12.23 22:27포토샵에서 색을 골라서 하니까 되네요. 전에는 색뽑아내는 프로그램으로 했는데 이건 값이 제대로 안나왔...
-
곽효근•2002.12.23 22:05잘되는데.. 어느부분이 않된다는것인지요?? 아마도 if문의 생상의 값이 잘못된거같습니다. RGB값을 ...
-
- 최진안
- 2002.12.23 07:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 홀로서기
- •
- 2002.12.22 03:36
- 5 COMMENTS
- /
- 0 LIKES
-
석•2002.12.23 08:12DBGrid가 그려질때 호출되는 OnDrawColumnCell이라는 이벤트를 이용해보세요. 이 이벤트의 파라미터를 ...
-
DelChoBo•2002.12.22 07:46흠냐.. 그런건 디비 그리드에서 바꾸는게 아니구.. 테이블이나 쿼리 컴포에서 찾아 보시면 계산된 필드 란...
-
홀로서기•2002.12.23 05:35감사합니다... 근데요... 어떻게 구현하는지.... 델 초보라서 너무 막막하네요...ㅠㅠ;; calculate fie...
-
DelChoBo•2002.12.23 19:50질문을 늦게 봤네요.. 덕분에 답도.. ^^ calculate field를 만드셨다니까 쉬우실텐데.. table1에 sung...
-
홀로서기•2002.12.23 21:06감사,,, 감사 ^^;; 됩니다... DelchoBo님의 글들은 많이 읽고 도움 받았습니다.. 많은 도움이...
-
- 하병준
- •
- 2002.12.22 03:15
- 1 COMMENTS
- /
- 0 LIKES
-
DelChoBo•2002.12.22 07:52쿼리 컴포를 쓰신다면 request live 속성이 False 인지.. 쿼리문에 join이나 order 문 등이 사용되는지 보...
-
- 성난호랑이
- •
- 2002.12.21 22:58
- •
- 2 COMMENTS
- /
- 0 LIKES
-
양용성•2002.12.22 04:00//Memo1 내용 select * from :tbname Memo1 의 쿼리 부분에 :tbname 옆에 텝이 없도록 조심하십시오. :tb...
-
지라기•2002.12.22 03:57Memo1 내용 select * from :tbname Query1.ParamByName('tbname').AsString:= ...
-
- 도니
- •
- 2002.12.21 22:38
- 1 COMMENTS
- /
- 0 LIKES
-
도니•2002.12.24 21:36날라오는데이터에 종료표시(엔터)가 없으면 계속 받더군여.. 종료표시 넣음으로써 해결했습니다.
-
- 이슬비
- 2002.12.21 20:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 새벽공기
- 2002.12.21 20:33
- 0 COMMENTS
- /
- 0 LIKES
-
- NiceSky
- •
- 2002.12.21 19:45
- 8 COMMENTS
- /
- 0 LIKES
-
김지엽•2002.12.21 19:58
-
NiceSky•2002.12.21 21:00
-
김지엽•2002.12.22 03:28
-
김지엽•2002.12.22 13:39
-
NiceSky•2002.12.23 19:03
-
김지엽•2002.12.24 00:30
-
NiceSky•2002.12.24 00:52
- • • •
-
- 이정은
- •
- 2002.12.21 19:28
- 1 COMMENTS
- /
- 0 LIKES
-
김지엽•2002.12.21 20:08TObject라는 것은 모든 '객체'의 조상입니다. 버튼의 조상이기도 하고, 폼의 조상이기도 하죠. 그러니깐, ...
-
- 정상언
- 2002.12.21 12:26
- 0 COMMENTS
- /
- 0 LIKES
-
- DevYang
- 2002.12.21 10:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 강의식
- •
- 2002.12.21 09:19
- 3 COMMENTS
- /
- 0 LIKES
-
김봉식•2002.12.21 22:55테이블은 열리는데 자료가 안나오는것인지 아니면 열리질 않는것인지 연결은 어떤방법으로 한것인지.. ...
-
강의식•2002.12.21 23:03서버 : 윈도우 2000 어드벤스 서버 데이터베이스 : ms-sql 2000 server 델파이 5.0 사용 클라이언트에서...
-
열심히•2002.12.23 22:01근데 정말로 등록된게 맞습니까?? 그것부터 확인을 하심이..좀 한심한 답변이기는 하지만 등록은 됐는데...
비교하는 RGB 값이 올바른지 확인해 보세요.
참고로 그림내 특정 점의 RGB 값을 확인 하려면
1. 페인트 프로그램을 실행
2. 그림 읽기(프로그램에서 사용되는 그림)
3. 보기 메뉴의 확대/축소 선택(점 선택을 용이하게 하기 위해 사용)
4. 좌 상단의 "색 골라내기" Button(스포이드 모양의 Buttom) Click
5. 색상을 읽을 위치(point)를 Click
6. 색/색 편집 메뉴 선택
7. 색 편집 Dialog가 나타나면 "사용자 정의 색 만들기" Button Click
8. 우 하단의 R, G, B 값이 님이 원하는 RGB 값임.
9. 이 값을 프로그램에 대입
즐푸하세요 ^^;