한국 델파이 개발자 모임 - image위에서의 포커스 사이즈는 바꿀수없나요?

image위에서의 포커스 사이즈는 바꿀수없나요?

이미지를 scrollbox에 놓고 불러와

포커스를 이동하는 등의 소스의 일부분입니다

여지서 DrawFocusRect란걸 썼는데 이것에대해 좀더 자세히 알고싶구요

또 이때의 포커스의 크기나 색깔지정은 어떻게 하는지 궁금합니다

여러분들이 많이 도와주세요

제발이요...

정초부터 나온질문이 좀 두서없구 그렇죠?

암튼 부탁드립니다~~

해결좀해주세요오오오오~~~

procedure Tfrmkep1901e.e_scroll_controlKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (Shift = ([ssShift])) then

begin

if Key = vk_down then

begin

Image1.Canvas.Brush.Color := clBackGround;

Image1.Canvas.DrawFocusRect(d_rect);

d_rect.Top := d_rect.Top + 1;

d_rect.Bottom:= d_rect.Bottom + 1;

Image1.Canvas.DrawFocusRect(d_rect);

end

else if Key = vk_up then

begin

Image1.Canvas.Brush.Color := clBackGround;

Image1.Canvas.DrawFocusRect(d_rect);

d_rect.Top := d_rect.Top - 1;

d_rect.Bottom:= d_rect.Bottom - 1;

Image1.Canvas.DrawFocusRect(d_rect);

end

else if Key = vk_right then

...

...

...

...

...

이 게시물을

4 COMMENTS

Black}{ole • 2001.01.03 04:40

쌩초보 wrote:

> 이미지를 scrollbox에 놓고 불러와

> 포커스를 이동하는 등의 소스의 일부분입니다

> 여지서 DrawFocusRect란걸 썼는데 이것에대해 좀더 자세히 알고싶구요

> 또 이때의 포커스의 크기나 색깔지정은 어떻게 하는지 궁금합니다

> 여러분들이 많이 도와주세요

> 제발이요...

> 정초부터 나온질문이 좀 두서없구 그렇죠?

> 암튼 부탁드립니다~~

> 해결좀해주세요오오오오~~~

>

>

> procedure Tfrmkep1901e.e_scroll_controlKeyDown(Sender: TObject; var Key: Word;

> Shift: TShiftState);

> begin

> if (Shift = ([ssShift])) then

> begin

> if Key = vk_down then

> begin

> Image1.Canvas.Brush.Color := clBackGround;

> Image1.Canvas.DrawFocusRect(d_rect);

> d_rect.Top := d_rect.Top + 1;

> d_rect.Bottom:= d_rect.Bottom + 1;

> Image1.Canvas.DrawFocusRect(d_rect);

> end

> else if Key = vk_up then

> begin

> Image1.Canvas.Brush.Color := clBackGround;

> Image1.Canvas.DrawFocusRect(d_rect);

> d_rect.Top := d_rect.Top - 1;

> d_rect.Bottom:= d_rect.Bottom - 1;

> Image1.Canvas.DrawFocusRect(d_rect);

> end

> else if Key = vk_right then

> ...

> ...

> ...

> ...

> ...

>

안녕하세요. ^^

소스에. d_rect값을 바꿈.. 포커스 사이즈가 바뀔것 같은뎅? 아닌감? ^^

그리고,. DrawFocusRect로 그린 포커스는 색깔못봐꿉니다.

걍.. Canvas.Rectangle함수를 이용해 직접 그려 주면 될것 같네여..

자세한건 도움말 참고하세요.

그럼..20000.
- 0
- 0
- 삭제
- 수정
- 댓글
쌩초보 • 2001.01.03 20:56

Black}{ole wrote:

> 쌩초보 wrote:

> > 이미지를 scrollbox에 놓고 불러와

> > 포커스를 이동하는 등의 소스의 일부분입니다

> > 여지서 DrawFocusRect란걸 썼는데 이것에대해 좀더 자세히 알고싶구요

> > 또 이때의 포커스의 크기나 색깔지정은 어떻게 하는지 궁금합니다

> > 여러분들이 많이 도와주세요

> > 제발이요...

> > 정초부터 나온질문이 좀 두서없구 그렇죠?

> > 암튼 부탁드립니다~~

> > 해결좀해주세요오오오오~~~

> >

> >

> > procedure Tfrmkep1901e.e_scroll_controlKeyDown(Sender: TObject; var Key: Word;

> > Shift: TShiftState);

> > begin

> > if (Shift = ([ssShift])) then

> > begin

> > if Key = vk_down then

> > begin

> > Image1.Canvas.Brush.Color := clBackGround;

> > Image1.Canvas.DrawFocusRect(d_rect);

> > d_rect.Top := d_rect.Top + 1;

> > d_rect.Bottom:= d_rect.Bottom + 1;

> > Image1.Canvas.DrawFocusRect(d_rect);

> > end

> > else if Key = vk_up then

> > begin

> > Image1.Canvas.Brush.Color := clBackGround;

> > Image1.Canvas.DrawFocusRect(d_rect);

> > d_rect.Top := d_rect.Top - 1;

> > d_rect.Bottom:= d_rect.Bottom - 1;

> > Image1.Canvas.DrawFocusRect(d_rect);

> > end

> > else if Key = vk_right then

> > ...

> > ...

> > ...

> > ...

> > ...

> >

>

> 안녕하세요. ^^

>

> 소스에. d_rect값을 바꿈.. 포커스 사이즈가 바뀔것 같은뎅? 아닌감? ^^

> 그리고,. DrawFocusRect로 그린 포커스는 색깔못봐꿉니다.

> 걍.. Canvas.Rectangle함수를 이용해 직접 그려 주면 될것 같네여..

> 자세한건 도움말 참고하세요.

>

> 그럼..20000.

>

d_rect으로는 위치밖엔 안되는듯....아닌가요? 제가 아는게 없어서리...-.-;;

글구 Canvas.Rectangle함수를 이용하는 거 자세히 설명해주실순 없나요?

너무 쉬운질문인지...

부탁드려요 히히 ^^(에구 민망....)
- 0
- 0
- 삭제
- 수정
- 댓글
Black}{ole • 2001.01.04 18:17

d_rect에 d_rect.Right와 d_rect.Bottom에 위치를 설정해 크기를 바꿀수 있습니다.

그리구,.. 팁으로 특정콘트롤에 클라이언트 크기를 구하고 싶을때 API중에

GetClientRect가 있습니다. 이걸 이용해서 크기를 구해서.. 이용하면 더 좋을것 같네여.

Windows.GetClientRect(Image1.Handle, R);

그리구..

Canvas.Brush.Color := clRed; //채움색

Canvas.Pen.Color := clWhite; //선색.

Canvas.Rectangle(10, 10, 100, 200);

이런식으로 하면될것 같네여..

그럼..20000.
- 0
- 0
- 삭제
- 수정
- 댓글
쌩초보 • 2001.01.05 18:59

블랙홀님 감사해여~
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 한재운
- •
- 2001.01.03 05:35
- 1 COMMENTS
- /
- 0 LIKES
treeview에서 위아래 간격...
- 고길동
  
  •
  
  2001.01.03 12:57
  
  아마도 방법이 없지 않을듯 싶습니다. 마치 메모 콤포넌트에서 줄간격 조절하는 거 같은데.. 그것도 방법...
- 짝돌이
- •
- 2001.01.03 05:06
- 3 COMMENTS
- /
- 0 LIKES
오라클에서 순서를 붙여서 조회하는 방법좀.....
- 분당
  
  •
  
  2001.01.03 18:23
  
  oracle에서는 select되는 순서가 있습니다. rownum이란 이름의 comumn이 저절로 붙습니다. select se...
- 뿌요
  
  •
  
  2001.01.03 18:16
  
  안녕하세요.. ==> select rumnum as sss, group_code from dddd 오라클에서는 rumnum이란 함수가 있어서 ...
- 짝돌이
  
  •
  
  2001.01.04 06:46
  
  저의 질문에 대해 답변해주시 두분 정말 감사 드립니다.
- 이광인
- 2001.01.03 04:43
- 0 COMMENTS
- /
- 0 LIKES
delphi5.0과 explorer5.5 충돌
- 델파이
- 2001.01.03 04:09
- 0 COMMENTS
- /
- 0 LIKES
TMNSMTP 컴포넌트에 관한질문
- 초보
- •
- 2001.01.03 04:03
- 1 COMMENTS
- /
- 0 LIKES
FTP인데요..서버날짜를 불러 오는거 좀 도와주세요
- 이석형
  
  •
  
  2001.01.03 21:57
  
  초보 wrote: > 안녕하세요..이제 델파이 한지 2달된 초보입니다.. > 지금 자동 업그레이드 프로그램을 만...
- 이수정
- 2001.01.03 03:48
- 0 COMMENTS
- /
- 0 LIKES
Terminal Services API를 구현한 분 안계세요?
- 초보
- •
- 2001.01.03 03:44
- 1 COMMENTS
- /
- 0 LIKES
기존 Table에 Column추가를 할수있나요?
- 김대빵
  
  •
  
  2001.01.03 03:51
  
  초보 wrote: > Coding으로 Table에 Column을 추가하고 싶은데 고수님들의 조언이절실합니다. > ALTER...
- hee
- •
- 2001.01.03 03:35
- 1 COMMENTS
- /
- 0 LIKES
테이블명을 바꾸고 싶을때
- parkisu
  
  •
  
  2001.01.03 12:02
  
  hee wrote: > select * from db_table이잖아요. > 근데 db_table의 이름이 바뀌어서 from 이하의 테이블 ...
- 피터팬
- 2001.01.03 03:18
- 0 COMMENTS
- /
- 0 LIKES
chart 에서 Paging 을 8로 했는데...쩝...조언부탁합니다...
- 쌩초보
- •
- 2001.01.03 03:13
- 4 COMMENTS
- /
- 0 LIKES
image위에서의 포커스 사이즈는 바꿀수없나요?

이미지를 scrollbox에 놓고 불러와 포커스를 이동하는 등의 소스의 일부분입니다 여지서 DrawFocusRect란걸 썼는데 이것에대해 좀더 자세히 알고싶구요 또 이때의 포커스의 크기나 색깔지정은 어떻게 하는지 궁금합니다 여러분들이 많이 ...
- Black}{ole
  
  •
  
  2001.01.03 04:40
  
  쌩초보 wrote: > 이미지를 scrollbox에 놓고 불러와 > 포커스를 이동하는 등의 소스의 일부분입니다 > ...
- 쌩초보
  
  •
  
  2001.01.03 20:56
  
  Black}{ole wrote: > 쌩초보 wrote: > > 이미지를 scrollbox에 놓고 불러와 > > 포커스를 이동하는 등의...
- Black}{ole
  
  •
  
  2001.01.04 18:17
  
  d_rect에 d_rect.Right와 d_rect.Bottom에 위치를 설정해 크기를 바꿀수 있습니다. 그리구,.. 팁으로 특정...
- 쌩초보
  
  •
  
  2001.01.05 18:59
  
  블랙홀님 감사해여~
- kimwonbae
- •
- 2001.01.03 03:09
- 1 COMMENTS
- /
- 0 LIKES
이거점 갈쳐주세여
- 컴맹...
  
  •
  
  2001.01.03 03:13
  
  if RecordCount > 0 then begin for I := 1 TO RecordCount do begin ...
- 안장근
- 2001.01.03 03:01
- 0 COMMENTS
- /
- 0 LIKES
조합형 한글을 완성형 한글로 바꿀려면 ?
- 아보가드로
- •
- 2001.01.03 02:37
- 2 COMMENTS
- /
- 0 LIKES
메일 서버 프로그램에 관한 자료를 구합니다.
- 권영길
  
  •
  
  2001.01.03 04:59
  
  winshoe를 참고하세요. indy로 짜면 좋을 것 같은데 아직 서버콤포넌트가 안나왔습니다. 능력이 되시면 i...
- 아보가드로
  
  •
  
  2001.01.04 00:22
  
  답변 감사드립니다. 그런데 제가 winshoe랑 indy를 많이 써보진 않아서 잘 모르겠네요. 콤포넌트가 POP3 ...
- 윤똘
- 2001.01.03 02:05
- 0 COMMENTS
- /
- 0 LIKES
여러개의 ActiveForm을 하나의 OCX 파일로???
- 서영택
- •
- 2001.01.03 01:05
- 1 COMMENTS
- /
- 0 LIKES
김영석님 봐주세요 소스를 올립니다...
- 고길동
  
  •
  
  2001.01.03 13:02
  
  아래 보니까 일단 AssignFile(FromF,... ) 가 빠졌네요. 실수라 빠뜨린 건지.. 그리고 파일이 계속 써...
- 이주연
- •
- 2001.01.03 00:44
- 2 COMMENTS
- /
- 0 LIKES
Delphi3.0에서 ftp쓸때 문제점이거든요.... [help!!]
- 강성찬
  
  •
  
  2001.01.03 02:44
  
  다른 FTP프로그램으로 테스트를 한번 해보셨어여?? NMFTP는 버그가 넘만아 않되어여.. 자료실에 보니까 i...
- 이주연
  
  •
  
  2001.01.03 03:46
  
  답변 주셔서 고맙습니다. 답변 주신김에 염치없이 다시 질문드릴께요. 안그래도 저도 글 올려놓고, 마냥 ...
- 초보자
- 2001.01.03 00:43
- 0 COMMENTS
- /
- 0 LIKES
폴더를 동적으로 공유폴더로 만드는 방법을..
- 델파이초보
- •
- 2001.01.03 00:28
- 1 COMMENTS
- /
- 0 LIKES
정적,동적에 대해서
- 김종언
  
  •
  
  2001.01.03 02:24
  
  정적... 동적에 관해서.. 간단히.. 큰 프로젝트의 경우... 폼이 만약.. 400 개라고 가정... 정적인...
- 이진우
- 2001.01.02 23:41
- 0 COMMENTS
- /
- 0 LIKES
Device가 존재하는지 하지 않는지 검사하고 싶습니다
- ^_^
- •
- 2001.01.02 23:39
- 1 COMMENTS
- /
- 0 LIKES
텍스트파일의 특정라인 지우기!
- Black}{ole
  
  •
  
  2001.01.03 04:17
  
  안녕하세요. ^^ 텍스트 파일인경우.. TStringList객체를 이용해서 하면 쉽게 할수 있을것 같네여.. ...

쌩초보
2001/01/03 03:13
Views214

Likes0

Comments4

Reports0
Tag List
수정
삭제
목록으로

←First Page

2029 2030 2031 2032 2033 2034 2035 2036 2037 2038

Last Page→