Q&A
- 스트링그리드의 글자가..
스트링그리드에 색을 넣고 싶어서 ..
아래와 같이 DrawCell에 코딩을 하였습니다..
with strgrd_qa.canvas do
begin
if (ACol <> 0 ) and (ARow <> 0) then
begin
if strgrd_qa.Cells[8,ARow+1] = strgrd_qa.Cells[8,ARow] then
begin
Brush.Color := clwhite;
FillRect(Rect);
end else if strgrd_qa.Cells[8,ARow+1] <> strgrd_qa.Cells[8,ARow] then
begin
Brush.Color := clyellow;
FillRect(Rect);
end;
end;
end;
그런데, 이렇게 코딩을 했는데 원하는 색은 나왔는데 글자가 안보이는군여
알려주세여...
아래와 같이 DrawCell에 코딩을 하였습니다..
with strgrd_qa.canvas do
begin
if (ACol <> 0 ) and (ARow <> 0) then
begin
if strgrd_qa.Cells[8,ARow+1] = strgrd_qa.Cells[8,ARow] then
begin
Brush.Color := clwhite;
FillRect(Rect);
end else if strgrd_qa.Cells[8,ARow+1] <> strgrd_qa.Cells[8,ARow] then
begin
Brush.Color := clyellow;
FillRect(Rect);
end;
end;
end;
그런데, 이렇게 코딩을 했는데 원하는 색은 나왔는데 글자가 안보이는군여
알려주세여...
(NOTICE) You must be logged in to comment on this post.
-
- 궁금이..
- 2001.01.17 06:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 전기봉
- 2001.01.17 04:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성은
- •
- 2001.01.17 04:01
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2001.01.17 04:41일반소켓으로는 안해봐서 모르겠으나 아마도 이상이 없을듯 합니다.... 소켓. 잘 됩니다. 소스를 확인해보...
-
- 김재완
- •
- 2001.01.17 03:34
- 1 COMMENTS
- /
- 0 LIKES
-
JDHwang•2001.02.02 21:12김재완 wrote: > > 웹에서 넘겨주는 변수들(Get,Post나 Object 태그에서 쓰는 param태그)로 넘긴 변수의...
-
- 궁금이
- 2001.01.17 03:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 박치곤
- •
- 2001.01.17 03:24
- 2 COMMENTS
- /
- 0 LIKES
-
MIDAS•2001.01.17 03:45Too many actual parameters 란 말은 함수의 인자값이 너무 많다는 말입니다. AZvSetAppMode 가 어떤 함수...
-
^^•2001.01.17 05:07AZvSetAppMode에대한 함수또는 프로시져 선언문좀 볼 수 있을까여? MIDAS wrote: > Too many actual pa...
-
- 박치곤
- 2001.01.17 03:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 남자
- •
- 2001.01.17 03:18
- 2 COMMENTS
- /
- 0 LIKES
스트링그리드에 색을 넣고 싶어서 .. 아래와 같이 DrawCell에 코딩을 하였습니다.. with strgrd_qa.canvas do begin if (ACol 0 ) and (ARow 0) then begin if strgrd_qa.Cells[8,ARow+1] = strgrd_qa.Cells[8,ARow] then begin Brush.Col...-
조덕진•2001.01.17 03:37남자 wrote: > 스트링그리드에 색을 넣고 싶어서 .. > 아래와 같이 DrawCell에 코딩을 하였습니다.. > ...
-
허덕이는이•2001.01.27 02:27내용없다니깐요
-
-
김상호•2001.01.17 04:47var Device, Name, Port: array[0..100] of char; DevMode : THandle; Begin ListBox1.Items :...
-
아이스티•2001.01.17 19:01김상호 wrote: > var > Device, Name, Port: array[0..100] of char; > DevMode : THandle; > Begi...
-
-
- 초보
- 2001.01.17 02:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성은
- 2001.01.17 02:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 푸른새
- •
- 2001.01.17 02:29
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.01.17 09:21푸른새 wrote: > 테이블이나 쿼리를 오픈할때 동적으로 하는 방법에 대해 알고 싶습니다. > > table1의...
-
- 해소슬
- •
- 2001.01.17 02:28
- 2 COMMENTS
- /
- 0 LIKES
-
jung hyun jin•2001.01.17 18:26해소슬 wrote: > procedure TWindow.ButtonOutputClick(Sender: TObject); > var > n : integer; > ...
-
MIDAS•2001.01.17 03:21피보 나열을 찾아보니 웬 수학적 용어만 잔뜩 써 있더군요. 모르시는 분을 위한 참고 : 피보나열 수치 ...
-
- 미남
- •
- 2001.01.17 02:22
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.01.17 02:36미남 wrote: > 스트링그리드의 임의의 row에 색을 넣고 싶은데 맘대루 안대네여 > 찾아봐두 확실히 나와...
-
- 박대규
- •
- 2001.01.17 01:54
- 2 COMMENTS
- /
- 0 LIKES
-
MIDAS•2001.01.17 02:19저 또한 에러가 나는데 이렇게 하니까 안나오는군요. procedure TForm1.Button2Click(Sender: TObject);...
-
Umpro•2001.01.17 02:00> > procedure TForm1.Button2Click(Sender: TObject); > var > SpaceNum: float; > begin > ...
-
- ^^
- •
- 2001.01.17 01:40
- 1 COMMENTS
- /
- 0 LIKES
-
브끄럼•2001.01.17 02:37^^ wrote: > query를 실행하고 나서..각각의 row의 데이타를 얻어 오는 과정에서.. > 스트링으로 변환한 ...
-
- 박치곤
- 2001.01.17 01:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 부탁맨
- 2001.01.17 01:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 박치곤
- •
- 2001.01.17 00:32
- 1 COMMENTS
- /
- 0 LIKES
-
병부잡이•2001.01.17 00:35컴포넌트의 패스가 안되있어서 그럽니다 도구-> 환경옵션에서 library에서 컴포넌트 소스나 DCU의...
-
- 조덕진
- •
- 2001.01.16 23:56
- 5 COMMENTS
- /
- 0 LIKES
-
^^•2001.01.17 03:24그 에러멧세지는 혹 스프래쉬 화면 을 감춘 후 커서의 위치가 갈곳이 없다는 그런 에러 아닐까요...또는 ...
-
지영일•2001.01.17 00:16우선 menu에서 project Option에서 auto-create forms과 available forms을 구별하셨나 확인하구요... >...
-
조덕진•2001.01.17 02:53지영일 wrote: > 우선 menu에서 project Option에서 > auto-create forms과 available forms을 구별하셨...
-
지영일•2001.01.17 03:20cannot focus a disable or invisible windows 이런 에러가 나온다구요.. 혹시 스플래쉬 폼이나 메인폼 C...
-
조덕진•2001.01.17 03:34정말 감사드립니다. 덕분에 쉽게 해결이 되었네요. > > > > Application.CreateForm(TFrmKPBPOST, Frm...
> 스트링그리드에 색을 넣고 싶어서 ..
> 아래와 같이 DrawCell에 코딩을 하였습니다..
> with strgrd_qa.canvas do
> begin
> if (ACol <> 0 ) and (ARow <> 0) then
> begin
> if strgrd_qa.Cells[8,ARow+1] = strgrd_qa.Cells[8,ARow] then
> begin
> Brush.Color := clwhite;
> FillRect(Rect);
> end else if strgrd_qa.Cells[8,ARow+1] <> strgrd_qa.Cells[8,ARow] then
> begin
> Brush.Color := clyellow;
> FillRect(Rect);
> end;
> end;
> end;
> 그런데, 이렇게 코딩을 했는데 원하는 색은 나왔는데 글자가 안보이는군여
> 알려주세여...
안녕하세요. 델초보 조덕진입니다.
글자를 새로이 출력하는 부분이 빠졌네요. (맞나?)
TextOut(Rect.Left, Rect.Top, strgrd_qa.Cells[8, AROW]; <<-- 요걸 추가하시면
될 것 같네요. FillRect(Rect); 다음에 넣어주세요.
그럼... 즐코되세요...