도사님들! 답 좀 주세여~~~~어~~~
저도 언젠가는 초보 운전 딱지를 떼고 다른 분들에게 도움을 줄 수 있는 날이 오겠지요.
에디트의 바뀐 화면색과 글자색을 저장할 수 없나요? 다음에 다시 실행을 시켜도 바뀐 색깔이 적용하게 하고 싶은데 잘 안되는군요. 제 실력껏 한 것이 아래 것들입니다.
화면색 바꾸는 코드ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
if ColorDialog1.Execute then
RichEdit1.Color :=ColorDialog1.Color;
end;
글자색 바꾸는 코드ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
if ColorDialog1.Execute then
RichEdit1.Font.Charset :=162;
RichEdit1.Font.Name :='Verdana';
RichEdit1.Font.Color :=ColorDialog1.Color;
end;
그리고 답이 안된 질문 ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
리치 에디터에서 블럭을 잡은 뒤 글자의 속성을 변경하려고 버튼을 누르면 마치 불럭이 해제된 것 처럼 블럭이 벗겨지는군요. 그래도 속성을 변경하라고 명령을 하면 바뀌긴 하지만 영 안좋군요.
블럭을 잡은 뒤 키 입력 이벤트가 일어나도 블럭이 끄덕도 안하고 있게 할 수는 없나요?
이상입니다. 도사님들 부탁해요.
> 도사님들! 답 좀 주세여~~~~어~~~
>
> 저도 언젠가는 초보 운전 딱지를 떼고 다른 분들에게 도움을 줄 수 있는 날이 오겠지요.
>
> 에디트의 바뀐 화면색과 글자색을 저장할 수 없나요? 다음에 다시 실행을 시켜도 바뀐 색깔이 적용하게 하고 싶은데 잘 안되는군요. 제 실력껏 한 것이 아래 것들입니다.
>
> 화면색 바꾸는 코드ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
> procedure TForm1.SpeedButton8Click(Sender: TObject);
> begin
> if ColorDialog1.Execute then
> RichEdit1.Color :=ColorDialog1.Color;
> end;
>
> 글자색 바꾸는 코드ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
> procedure TForm1.SpeedButton9Click(Sender: TObject);
> begin
> if ColorDialog1.Execute then
> RichEdit1.Font.Charset :=162;
> RichEdit1.Font.Name :='Verdana';
> RichEdit1.Font.Color :=ColorDialog1.Color;
> end;
>
> 그리고 답이 안된 질문 ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
>
> 리치 에디터에서 블럭을 잡은 뒤 글자의 속성을 변경하려고 버튼을 누르면 마치 불럭이 해제된 것 처럼 블럭이 벗겨지는군요. 그래도 속성을 변경하라고 명령을 하면 바뀌긴 하지만 영 안좋군요.
>
> 블럭을 잡은 뒤 키 입력 이벤트가 일어나도 블럭이 끄덕도 안하고 있게 할 수는 없나요?
>
> 이상입니다. 도사님들 부탁해요.
변경된 색상을 그대로 적용하려면 바뀐 색상을 어딘가에 저장을 해 놓아야 합니다.
예로 프로그램을 종료하기 직전에 현재 폼의 색상과 폰트의 색상을 INI파일에 기록을
한다든가 레지스트리에 기록을 하는 식으로 말이죠.
이때 주의할 점은 색상을 저장할때는 문자열로 바꾸어서 저장하고(ColorToString)
저장된 색상을 불러올때는 문자열을 다시 색상으로(StringToColor) 바꾸어 주어야 한다는 점입니다.
제 생각에는 INI 사용이 간단한 것 같습니다.
그럼 좋은 나날 되세요...