2016-08-21 7 views
1

Color 속성에 어두운 색으로 TRichMemo을 사용하고 있습니다. 글꼴 색상을 흰색으로 바꿀 수는 있지만 깜박이는 캐럿 색상을 더 눈에 띄게 변경하는 방법을 찾지 못하는 것 같습니다 (스크린 샷 참조). 캐럿은 Hello에서 2 "l"사이에 있습니다. 어두운 회색이지만 흰색은 아닙니다).TRichMemo (Lazarus lcl)에서 캐럿 색상을 변경하는 방법

TRichMemo의 캐럿 색상을 설정하는 간단한 방법이 있습니까? enter image description here

고마워요!

답변

2

Easy? 일종의.

필자는 몇 년 전에 비슷한 문제가 있었지만 그 때 사용한 대답은 사용자 지정 커서였습니다.

이 솔루션은 Delphi에서 작동하며 이론상 Lazarus에서 작동해야하지만 (어쨌든 http://forum.lazarus.freepascal.org/index.php?topic=32861.0 참조) 어쨌든 최종 해결책을 찾는 데 도움이 될 수 있습니다.

한마디의 프로세스는 다음과 같습니다 당신이 mycursor.cur을 커서 파일이 필요

1). 당신은 그물에있는 하나를 찾을 수 있습니다, 거기에 델파이 영역에서/당신이 하나를 만들 수있는 유틸리티입니다.

2) mycursor.rc와 같은 텍스트 파일을 만듭니다 (rc는 컴파일되지 않은 리소스 파일 임).

3)이 예제에서는 한 줄로 표시됩니다. myCUR CURSOR "mycursor.cur"모든 파일은 프로그램의 주 폴더에 있어야합니다.

4)이 파일은 .res (mycursor.res) 파일로 컴파일해야합니다 (http://wiki.freepascal.org/Lazarus_Resources 참조).이 파일은 Delphi에서/brcc32.exe입니다. 위의 링크는 나사로의 과정을 설명합니다. 아직 테스트하지 않았습니다. (미리 컴파일 된 리소스 파일)

{$;

{$의 R의 mycursor.res} 델파이 스타일 :

5) 당신은 다음 코드에서 줄을 추가 할 필요가 기본 폼은 다음과 같이, 괜찮습니다 R mycursor.rc} lazarus 스타일 (당신을 위해 컴파일 될 것입니다.) 거의 끝났어.

6) 지금 formcreate 넣어서 :

(델파이 screen.cursors : [1] = loadcursor (HINSTANCE, PChar는 ('myCUR')); (당신이 rc 파일에서 지정한 이름을 사용하십시오. idx 1에서 32000까지의 커서는 사용자가 정의 할 수 있습니다.하지만 여기에서는 Lazarus를 다뤄야합니다.

7) 마지막으로 커서를 컨트롤에 할당합니다. Richedit1.Cursor : = 1;

HTH.