Q&A
- ㅠ.ㅠ 도와주세요.. 오랜만에 느끼는 답답함이네요...(디비그리드)
제 기억으론 델파이 4를 쓸때에
if (gdfocused in state) then
with (Sender as TDBGrid).Canvas do
begin
Brush.Color := DBGRID_FOCUS_COLOR;
FillRect(Rect);
Font.Color := clblack;
TextOut(Rect.Left+2,Rect.Top+2,Field.AsString);
end;
(Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);
이런 식으로 적으면 포커스가 있는 그행 전체가 색이 칠해 졌던걸로
기억하는데요..기억이 틀린거 같기도 하고..
암튼 포커스가 간 한행을 다 칠해야 하는데..안되네요../
포커스가 간 행을 다 색칠하고 싶은데..
어떻게 해야 할까요...아참 델파이 6입니다.
if (gdfocused in state) then
with (Sender as TDBGrid).Canvas do
begin
Brush.Color := DBGRID_FOCUS_COLOR;
FillRect(Rect);
Font.Color := clblack;
TextOut(Rect.Left+2,Rect.Top+2,Field.AsString);
end;
(Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);
이런 식으로 적으면 포커스가 있는 그행 전체가 색이 칠해 졌던걸로
기억하는데요..기억이 틀린거 같기도 하고..
암튼 포커스가 간 한행을 다 칠해야 하는데..안되네요../
포커스가 간 행을 다 색칠하고 싶은데..
어떻게 해야 할까요...아참 델파이 6입니다.
4
COMMENTS
-
-
-
근데 전 맨날 좀 의야한게
포커스란게 Grid에서 보면 셀렉트 된거랑 같잖아요.. ^^
그래서 그냥
if (gdfocused in state) or (gdselected in state) then
와 같이 해서 처리 하면 될거 같은데요.. ^^
의도 하시는 게 아닐 꺼 같네요.. ㅠ_ㅠ
-
(NOTICE) You must be logged in to comment on this post.
-
- 배정은
- •
- 2004.11.13 04:52
- 1 COMMENTS
- /
- 0 LIKES
-
착한천사•2004.11.25 02:05착한천사 김경록입니다.. 흠.. 일단 질문 내용을 보면, 빠져 있는게 있어서.. 그 내용이 궁금하군요... ...
-
- 노명환
- 2004.11.13 03:06
- •
- 0 COMMENTS
- /
- 0 LIKES
-
- 이진우
- 2004.11.13 02:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 송기원
- 2004.11.13 00:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 모영철
- •
- 2004.11.13 00:28
- 4 COMMENTS
- /
- 0 LIKES
제 기억으론 델파이 4를 쓸때에 if (gdfocused in state) then with (Sender as TDBGrid).Canvas do begin Brush.Color := DBGRID_FOCUS_COLOR; FillRect(Rect); Font.Color := clblack; TextOut(Rect.Left+2,Rect.Top+2,Field.AsString);...-
나그네•2004.11.13 20:10이거 선언해 주시고요 type TCustomDBGridCracker = class(TCustomDBGrid); DBGrid1DrawC...
-
모영철•2004.11.15 18:29
-
석주현•2004.11.13 02:24근데 전 맨날 좀 의야한게 포커스란게 Grid에서 보면 셀렉트 된거랑 같잖아요.. ^^ 그래서 그냥 if (...
-
모영철•2004.11.13 03:33
-
- 델피언
- •
- 2004.11.13 00:19
- 2 COMMENTS
- /
- 0 LIKES
-
석주현•2004.11.13 02:37음 버젼이 틀려서 좀 그런데요.. PrepareReport 를 해주고 프린트 해야지 되는걸로 알고 있습니다. ^^
-
델피언•2004.11.13 17:51frxreport1.preparereport(true); frxreport1.print; 하니 되네요 감사합니다.
-
- 김원일
- •
- 2004.11.12 23:42
- 1 COMMENTS
- /
- 0 LIKES
-
석주현•2004.11.13 03:01이렇게 해보니 잘되네요.. ^^ ////////////////////////////// procedure TForm1.QRPreview1MouseWheel...
-
- 노명환
- •
- 2004.11.12 22:53
- •
- 2 COMMENTS
- /
- 0 LIKES
-
서기원•2004.11.12 23:40퀵리포트 컴포넌트 중에 QRPreview라고 있던데 그거 사용하시면 되지 않을까요? 즐푸하세요~
-
노명환•2004.11.12 23:50당연히 프리뷰컴퍼넌트를 사용해서 했습니다. 그런데 제가 하니까 Priview폼이 떠 버려서 그런건데요.. ...
-
- 하영호
- •
- 2004.11.12 22:53
- 1 COMMENTS
- /
- 0 LIKES
-
정정봉•2004.11.12 23:32DBGridEh 컴포넌트를 쓰시면 해결될것 같네요. 예전에 자료실에서 다운받았는데 지금도 있는지는....
-
- 김준연
- •
- 2004.11.12 22:37
- 1 COMMENTS
- /
- 0 LIKES
-
오병주•2004.11.12 23:34그러면 레코드를 이용하세요... TYPE TTag= Record id &nb...
-
- 박찬
- •
- 2004.11.12 18:46
- 6 COMMENTS
- /
- 0 LIKES
-
손광현•2004.11.12 19:13
-
박찬•2004.11.12 19:22
-
손광현•2004.11.12 19:44
-
박찬•2004.11.12 19:49
-
손광현•2004.11.12 19:51
-
박찬•2004.11.12 21:34
-
- 황하성
- •
- 2004.11.12 18:41
- 3 COMMENTS
- /
- 0 LIKES
-
석주현•2004.11.12 19:13뭐 이런 식으로하면 됩니다.. ^^ ///////////// procedure TForm2.Button1Click(Sender: TObject); ...
-
㉳㉥ㅗ㉣ㅐ㉧ㅛ•2004.11.12 18:54작성 하신 대로 해서 버그를 잡으면요 for i := MIN to MAX - 1 do .... 하면 ...
-
황하성•2004.11.12 19:00while not Table.Eof도 써봤는데... ^^; 그것도 무한루프로 빠지는지 동작을 안하더라구요.
-
- 박원용
- •
- 2004.11.12 17:43
- 3 COMMENTS
- /
- 0 LIKES
-
오익환•2004.11.12 19:07TObjectPrinter설치에 무슨 문제가 있는지 알려주시면 도와드릴 수 있을 것 같은데요.
-
박원용•2004.11.12 19:34objectprinterv7.pas 파일이 없다면서 에러가 납니다. ----------------
-
오익환•2004.11.12 22:24Component는 File속에 있는 RegOPrinter.exe로 설치 하여야 합니다. 설치후 TObjectPrinter자료실에 ...
-
- 장영진
- •
- 2004.11.12 09:41
- 1 COMMENTS
- /
- 0 LIKES
-
모영철•2004.11.12 19:50네 할수 있습니다. 포인터를 쓰시는것도 괜찮을거 같은데요.. 전에 작업하다 이리저리 걸리는게 많아...
-
- 가우나라
- 2004.11.12 03:09
- 0 COMMENTS
- /
- 0 LIKES
-
- yskwon
- 2004.11.12 02:32
- 0 COMMENTS
- /
- 0 LIKES
-
- ㉳㉥ㅗ㉣ㅐ㉧ㅛ
- •
- 2004.11.12 02:00
- 4 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2004.11.12 02:36안녕하세요 하얀까마귀입니다. 어찌 답변을 하라시는건지. ㅠㅠ 난감하군요. ^^ 일단 안되니까. 그...
-
㉳㉥ㅗ㉣ㅐ㉧ㅛ•2004.11.15 20:03코딩에 이상이 없습니다...로직상으로는 근데 QuickReport 자체가 생성이 안되여... 왜 그런지... ...
-
하얀까마귀•2004.11.17 11:07안녕하세요 하얀까마귀 입니다. ㅠㅠ 그냥 퀵이 생성이 안되다고만 하시면 원인을 알수가 없...
-
석주현•2004.11.17 17:45퀵리포트는 다른 폼처럼 보여지는게 아니라 디자인 타임에는 보이다가 런타임시에는 프린트나 아니면 ...
-
- 강신구
- •
- 2004.11.12 01:14
- 3 COMMENTS
- /
- 0 LIKES
-
뚜까•2004.11.12 01:41예전에 받아논건데 적당한거 골라서 쓰세요.... 엑셀 사용시 셀들을 복잡하게 제어해야할 때 필요한...
-
강신구•2004.11.12 02:06답변에 감사드립니다.. 그런데.. 셀형식을 텍스트로 지정하는 방법에 대해서는 없군요.. 아쉽습니다..
-
작은호롱•2004.11.12 02:26소스중에서 다음부분이 텍스트형식으로 지정하는 부분합니다. ===> Format := '@'; 즐프하세요...
-
- 김성현
- •
- 2004.11.11 22:44
- 1 COMMENTS
- /
- 0 LIKES
-
송기원•2004.11.11 23:34ISAPI로 제작하시면 가능하고도 남습니다. DB연결은 ADO로 처리하시면 별도의 세션문제걱정은 안 하셔도 ...
-
- 김종곤
- 2004.11.11 22:30
- 0 COMMENTS
- /
- 0 LIKES
type
TCustomDBGridCracker = class(TCustomDBGrid);
DBGrid1DrawColumnCell이벤트에 다음과 같이 해보세요..
바탕과 셀 색깔은 임의로 바꾸시면됩니다..
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
With TCustomDBGridCracker(Sender) do begin
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clMoneyGreen
else Canvas.Brush.Color := clInfoBk;
TCustomDBGridCracker(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
참고로 옵션에 RowSelect 속성은 해제해서 쓰면 더 좋을겁니다.