Q&A
- 꼭 14 번째 줄의 색깔만 안바뀌는데 한번 봐주세요..
안녕하세요.. 죄송합니다.. 너무 많이 질문해서.. ^^"
그래도 궁금한걸 물어볼데가 없어서.. 이뿌게 봐주세여.. *^^*
제목과 그대로.. RichEdit에 적히는 글들 중에.. 콤보박스에서 바꿔준 색상이
14번째 줄에만 가면 어떤색이 설정되어 있든지 검은색으로 나옵니다..
소스를 올리오니 한번 봐 주시와요..
---------------------------------------------------------
procedure TchatForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not(Edit1.text = '')) and (Key = #13) then
begin
// 13줄이 되면 스크롤 바를 생기게 한다.
if RichEdit1.Lines.Count > 12 then
begin
RichEdit1.SelAttributes.Color := Edit1.Font.Color;
RichEdit1.ScrollBars := ssVertical;
end;
// 150줄 넘으면 맨처음에 올라온 글을 지운다.
if RichEdit1.Lines.Count >= 150 then
begin
RichEdit1.Lines.Delete(0);
end;
// RichEdit 에 쓸때 색깔 적용시키는 부분..
RichEdit1.SelAttributes.Color := Edit1.Font.Color;
RichEdit1.Lines.Add(Edit1.Text);
Edit1.text := '';
// 마지막줄이 보이기 함..
RichEdit1.SelLength := 0;
RichEdit1.SelStart := RichEdit1.GetTextLen; // caret의 마지막위치
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
end;
end;
// 글자색 변경 선택 시
procedure TchatForm.ComboBox1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then Edit1.Font.Color := clBlack
else if ComboBox1.ItemIndex = 1 then Edit1.Font.Color := clBlue
else if ComboBox1.ItemIndex = 2 then Edit1.Font.Color := clRed
else if ComboBox1.ItemIndex = 3 then Edit1.Font.Color := clPurple
else if ComboBox1.ItemIndex = 4 then Edit1.Font.Color := clTeal
else if ComboBox1.ItemIndex = 5 then Edit1.Font.Color := clGreen;
end;
---------------------------------------------------
그래도 궁금한걸 물어볼데가 없어서.. 이뿌게 봐주세여.. *^^*
제목과 그대로.. RichEdit에 적히는 글들 중에.. 콤보박스에서 바꿔준 색상이
14번째 줄에만 가면 어떤색이 설정되어 있든지 검은색으로 나옵니다..
소스를 올리오니 한번 봐 주시와요..
---------------------------------------------------------
procedure TchatForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not(Edit1.text = '')) and (Key = #13) then
begin
// 13줄이 되면 스크롤 바를 생기게 한다.
if RichEdit1.Lines.Count > 12 then
begin
RichEdit1.SelAttributes.Color := Edit1.Font.Color;
RichEdit1.ScrollBars := ssVertical;
end;
// 150줄 넘으면 맨처음에 올라온 글을 지운다.
if RichEdit1.Lines.Count >= 150 then
begin
RichEdit1.Lines.Delete(0);
end;
// RichEdit 에 쓸때 색깔 적용시키는 부분..
RichEdit1.SelAttributes.Color := Edit1.Font.Color;
RichEdit1.Lines.Add(Edit1.Text);
Edit1.text := '';
// 마지막줄이 보이기 함..
RichEdit1.SelLength := 0;
RichEdit1.SelStart := RichEdit1.GetTextLen; // caret의 마지막위치
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
end;
end;
// 글자색 변경 선택 시
procedure TchatForm.ComboBox1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then Edit1.Font.Color := clBlack
else if ComboBox1.ItemIndex = 1 then Edit1.Font.Color := clBlue
else if ComboBox1.ItemIndex = 2 then Edit1.Font.Color := clRed
else if ComboBox1.ItemIndex = 3 then Edit1.Font.Color := clPurple
else if ComboBox1.ItemIndex = 4 then Edit1.Font.Color := clTeal
else if ComboBox1.ItemIndex = 5 then Edit1.Font.Color := clGreen;
end;
---------------------------------------------------
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델파이
- •
- 2000.03.24 16:31
- 1 COMMENTS
- /
- 0 LIKES
-
이현신•2000.03.24 22:57델파이 wrote: > 어떤 프로그램에서 > 인터넷에 연결되어있으면 > 서버에 새로운정보같은게 있으면 받아...
-
- 까마귀
- •
- 2000.03.24 13:00
- 5 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.24 22:05안녕하세요 하얀까마귀 입니다.. 음... 동족을 만나니.. 기쁘네요.. 하하... 우선 Master Detail 관...
-
까마귀•2000.03.24 23:12하얀까마귀 wrote: > 안녕하세요 하얀까마귀 입니다.. > > 음... 동족을 만나니.. 기쁘네요.. 하하... ...
-
이재식•2000.03.24 18:21이재식 Wrote : 안녕하세요? 아마 M/S관계를 설정하시고, 그리드 자체에서 수정을 하는 것 같습니다. ...
-
까마귀•2000.03.24 23:21이재식 wrote: > 이재식 Wrote : > 안녕하세요? > > 아마 M/S관계를 설정하시고, 그리드 자체에서 수...
-
이재식•2000.03.25 02:09이재식 Wrote : 안녕하세요? 메인은 디비에디트이고 나머지 서브는 그리드상에서 수정을 한다고 하셨습...
-
- 이치형
- 2000.03.24 11:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤진석
- •
- 2000.03.24 11:01
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.03.24 18:23윤진석 wrote: > setrange를 사용하여 > 테이블을 검색하려 하는데요.. > 헬프보면 단일조건은 있는데 ...
-
- 전수정
- •
- 2000.03.24 10:26
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.03.24 19:01전수정 wrote: > 질문있습니다.! > 마우스로 StringGrid의 cell을 마음껏 잡아서 그 선택한 범위안에 들...
-
- sensemin
- 2000.03.24 10:23
- 0 COMMENTS
- /
- 0 LIKES
-
- hee
- 2000.03.24 08:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 박종삼
- 2000.03.26 16:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 심원상
- 2000.03.24 06:51
- 0 COMMENTS
- /
- 0 LIKES
-
- skjang
- 2000.03.24 06:25
- 0 COMMENTS
- /
- 0 LIKES
-
- pink
- 2000.03.24 05:25
- 0 COMMENTS
- /
- 0 LIKES
-
-
최석기•2000.03.24 06:24황현 wrote: > 소프트메신저 또는 마이챗 과 같은 실시간 메신저를 만들려면 어떻게 > 해야 합니까??? >...
-
-
- 김영숙
- •
- 2000.03.24 04:44
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.03.24 05:46김영숙 wrote: > 한/영 Key 의 ASCII 값 알려 주세요!!~~ > > 더 가능하다면... 키보드의 모든 키의 AS...
-
- 백록화
- •
- 2000.03.24 03:52
- 2 COMMENTS
- /
- 0 LIKES
-
화랑•2000.03.24 19:38화랑입니다.. 그 부분은 굳이 ISAPI로 작업하실 필요는 없는것 같은데요.. 그냥 자바 스크립트를 쓰시...
-
홍세비•2000.03.24 09:02백록화 wrote: > yo~ ^^*^~ > > 헤헤! 또다시 질문을 올리게 되는군요! ^^;; > > 음...저런것들 많...
-
- 이수정
- •
- 2000.03.24 03:34
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요.. 죄송합니다.. 너무 많이 질문해서.. ^^" 그래도 궁금한걸 물어볼데가 없어서.. 이뿌게 봐주세여.. *^^* 제목과 그대로.. RichEdit에 적히는 글들 중에.. 콤보박스에서 바꿔준 색상이 14번째 줄에만 가면 어떤색이 설정되어 ...-
최용일•2000.03.24 19:42위치를 바꾸어 보세요... 왜그런지 그 이유는 잘 모르겠군요... > if (not(Edit1.text = ''...
-
- 손금영
- 2000.03.24 03:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 정
- •
- 2000.03.24 03:19
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.03.24 03:59정 wrote: > 두기간사이의 날짜를 계산하려고 합니다. > 일자계산이 아닌 실제 날자로요.(윤년계산까지 ...
-
- 김초보
- 2000.03.24 02:58
- 0 COMMENTS
- /
- 0 LIKES
-
- exos
- •
- 2000.03.24 02:57
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.24 03:53말씀을 들어보니 페이지컨트롤의 폰드를 바꾼게 아니라 페이지 컨트롤 내의 탭시트의 폰트를 바꾸신것같은...
-
- GyuPal
- 2000.03.24 02:03
- 0 COMMENTS
- /
- 0 LIKES
왜그런지 그 이유는 잘 모르겠군요...
> if (not(Edit1.text = '')) and (Key = #13) then
> begin
>>>>>>>>> // 150줄 넘으면 맨처음에 올라온 글을 지운다.
> if RichEdit1.Lines.Count >= 150 then
> RichEdit1.Lines.Delete(0);
>
> // RichEdit 에 쓸때 색깔 적용시키는 부분..
> RichEdit1.SelAttributes.Color := Edit1.Font.Color;
> RichEdit1.Lines.Add(Edit1.Text);
> Edit1.text := '';
>
>>>>>>>>> // 13줄이 되면 스크롤 바를 생기게 한다.
> if RichEdit1.Lines.Count > 12 then
> RichEdit1.ScrollBars := ssVertical;
>
이수정 wrote:
> 안녕하세요.. 죄송합니다.. 너무 많이 질문해서.. ^^"
> 그래도 궁금한걸 물어볼데가 없어서.. 이뿌게 봐주세여.. *^^*
>
> 제목과 그대로.. RichEdit에 적히는 글들 중에.. 콤보박스에서 바꿔준 색상이
> 14번째 줄에만 가면 어떤색이 설정되어 있든지 검은색으로 나옵니다..
>
> 소스를 올리오니 한번 봐 주시와요..
>
> ---------------------------------------------------------
> procedure TchatForm.Edit1KeyPress(Sender: TObject; var Key: Char);
> begin
>
> if (not(Edit1.text = '')) and (Key = #13) then
> begin
> // 13줄이 되면 스크롤 바를 생기게 한다.
> if RichEdit1.Lines.Count > 12 then
> begin
> RichEdit1.SelAttributes.Color := Edit1.Font.Color;
> RichEdit1.ScrollBars := ssVertical;
> end;
>
> // 150줄 넘으면 맨처음에 올라온 글을 지운다.
> if RichEdit1.Lines.Count >= 150 then
> begin
> RichEdit1.Lines.Delete(0);
> end;
>
> // RichEdit 에 쓸때 색깔 적용시키는 부분..
> RichEdit1.SelAttributes.Color := Edit1.Font.Color;
> RichEdit1.Lines.Add(Edit1.Text);
> Edit1.text := '';
>
> // 마지막줄이 보이기 함..
> RichEdit1.SelLength := 0;
> RichEdit1.SelStart := RichEdit1.GetTextLen; // caret의 마지막위치
> RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
> end;
> end;
>
>
> // 글자색 변경 선택 시
> procedure TchatForm.ComboBox1Click(Sender: TObject);
> begin
> if ComboBox1.ItemIndex = 0 then Edit1.Font.Color := clBlack
> else if ComboBox1.ItemIndex = 1 then Edit1.Font.Color := clBlue
> else if ComboBox1.ItemIndex = 2 then Edit1.Font.Color := clRed
> else if ComboBox1.ItemIndex = 3 then Edit1.Font.Color := clPurple
> else if ComboBox1.ItemIndex = 4 then Edit1.Font.Color := clTeal
> else if ComboBox1.ItemIndex = 5 then Edit1.Font.Color := clGreen;
> end;
>
> ---------------------------------------------------
>
>