Q&A
- [답변대로 했는데도 안됩니다.] stringgrid에서 이미지 교체....
stringgrid에서 이미지를 삽입하고, 다시 로그할때 다른것으로 바꾸는 건데,
마우스로 클릭해야만 바뀌는 현상입니다.
별짓을 다 해봐도 안되는군요,
소스는 아래와 같습니다.
procedure TfrmMain.gridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var LeftPos,i: Integer;
dRect: TRect;
begin
if (ACol = 2) then begin
Rect := (Sender as TStringGrid).CellRect(ACol, ARow); //답변해주신 부분
dRect := Classes.Rect(0,0, (Rect.Right-Rect.Left), rect.Bottom-rect.Top);
if (조건) then begin
(Sender as TStringGrid).Canvas.BrushCopy(Rect,
bmpFalse, dRect,clBtnFace); //bmpFalse 는 Bitmap 이미지
end
else (Sender as TStringGrid).Canvas.BrushCopy(Rect, bmpTrue,
dRect,clBtnFace);
end;
end;
위 소스에서 처음에 bmpTrue를 화면에 보입니다. 그러다 조건에 거리면 bmpFalse로
바뀌어야 하는데, 정말 정말 안됩니다.
제발 도와 주십시요.
마우스로 클릭해야만 바뀌는 현상입니다.
별짓을 다 해봐도 안되는군요,
소스는 아래와 같습니다.
procedure TfrmMain.gridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var LeftPos,i: Integer;
dRect: TRect;
begin
if (ACol = 2) then begin
Rect := (Sender as TStringGrid).CellRect(ACol, ARow); //답변해주신 부분
dRect := Classes.Rect(0,0, (Rect.Right-Rect.Left), rect.Bottom-rect.Top);
if (조건) then begin
(Sender as TStringGrid).Canvas.BrushCopy(Rect,
bmpFalse, dRect,clBtnFace); //bmpFalse 는 Bitmap 이미지
end
else (Sender as TStringGrid).Canvas.BrushCopy(Rect, bmpTrue,
dRect,clBtnFace);
end;
end;
위 소스에서 처음에 bmpTrue를 화면에 보입니다. 그러다 조건에 거리면 bmpFalse로
바뀌어야 하는데, 정말 정말 안됩니다.
제발 도와 주십시요.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보나라.....
- 2000.12.20 05:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁구미
- •
- 2000.12.20 04:27
- 1 COMMENTS
- /
- 0 LIKES
-
김영길•2000.12.20 04:34혹시 델파이의 TPrinter 로 구현했나요? 보니까 TPrint 라고 되어있는데 그건 델파이에 기본적으로 없는 ...
-
- delhpilove
- •
- 2000.12.20 04:25
- 4 COMMENTS
- /
- 0 LIKES
-
프지초보•2000.12.20 12:25delhpilove wrote: > procedure > var > flist : string; > begin > for k:=0 to filelistbox...
-
이성훈•2000.12.20 04:42에러메세지가 어떻게 나지요... 일단 구문에는 에러가 없는데.... delhpilove wrote: > procedure ...
-
delhpilove•2000.12.20 05:08이성훈 wrote: > 에러메세지가 어떻게 나지요... > 일단 구문에는 에러가 없는데.... > > > delhpil...
-
왕초보.....•2000.12.20 05:24저두 잘 모르지만 제 예상에..... 틀리더라도 이해바랍니다 query2.sql.Add('insert into data...
-
- paradox
- •
- 2000.12.20 04:18
- 1 COMMENTS
- /
- 0 LIKES
-
김영길•2000.12.20 04:40그 이유는 변환중에 다른 메시지를 처리할 수 없기 때문입니다. 그러니까 for 루프에서 for i:=1 to 10...
-
- 윤돌
- •
- 2000.12.20 03:41
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.12.20 19:13각각의 폼 생성시 마다 데이터 모듈을 생성하시면 데이터모듈을 사용하실 이유가 없잖아요.. 그냥 젤 처...
-
- 초보입니다.
- 2000.12.20 03:29
- 0 COMMENTS
- /
- 0 LIKES
-
- Demian
- •
- 2000.12.20 03:11
- 2 COMMENTS
- /
- 0 LIKES
-
이성훈•2000.12.20 04:45Demian wrote: > 엑셀 파일을 디비로 만드는 방법에 대해서,, 알고 싶은데요.. > 많은 고수님의 관심 부...
-
이상봉•2001.08.01 20:18이성훈 wrote: > Demian wrote: > > 엑셀 파일을 디비로 만드는 방법에 대해서,, 알고 싶은데요.. > > ...
-
- 정상배
- 2000.12.20 03:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 박혜윤
- •
- 2000.12.20 02:52
- 1 COMMENTS
- /
- 0 LIKES
-
김영석•2000.12.20 03:17파일을 열었으면 파일을 닫아야 합니다. FileClose 함수를 쓰세요.. 소스에서 보면.. FileHandle :=...
-
- 박일용
- •
- 2000.12.20 02:01
- 1 COMMENTS
- /
- 0 LIKES
-
김영석•2000.12.20 04:32일단 페이지 콘트롤의 속성중에 OwnerDraw 를 True 로 해놓으시고.. 페이지 콘트롤의 OnDrawTab 이벤트에...
-
-
김광섭•2000.12.20 23:13미남 wrote: > 디비그리드에 조회한내용이 있나없나 얼케 체크하져..? > 알려주세여 조회를 했다면 쿼리...
-
바람개비•2000.12.20 23:10dbgrid.recordcount를 체크하십시오. 바라미~~ 미남 wrote: > 디비그리드에 조회한내용이 있나없나 ...
-
-
- 질문멘
- •
- 2000.12.20 01:52
- 1 COMMENTS
- /
- 0 LIKES
-
배인철•2000.12.20 02:22질문멘 wrote: > OS : windows2000 > Tool : delphi 5.0 > TreeView 에 프로퍼티에 보면 RightClickSe...
-
- 전수완
- 2000.12.20 02:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 진현주
- •
- 2000.12.20 01:37
- 1 COMMENTS
- /
- 0 LIKES
stringgrid에서 이미지를 삽입하고, 다시 로그할때 다른것으로 바꾸는 건데, 마우스로 클릭해야만 바뀌는 현상입니다. 별짓을 다 해봐도 안되는군요, 소스는 아래와 같습니다. procedure TfrmMain.gridDrawCell(Sender: TObject; ACol, AR...-
김영석•2000.12.20 02:06그걸 조건에 걸리는 곳에다 넣고 다시 그리기를 하세요. GridDrawCell 안에서 REct 를 구하지 말고.. 조...
-
- 초보여요.
- 2000.12.20 01:37
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 델파이맨
- •
- 2000.12.20 01:31
- 1 COMMENTS
- /
- 0 LIKES
-
오태양•2000.12.20 16:57안냐세염.. 델초보에영. ㅜ.ㅜ 이거 ftp관련댄게 데모에 이뜨라구여. 그래서 일케 쓰는데 분석은 못하구여...
-
- 질문멘
- 2000.12.20 01:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 곰푸
- •
- 2000.12.20 01:13
- 2 COMMENTS
- /
- 0 LIKES
-
송민철•2000.12.21 19:39minimize 할때 마다 ShowWindow(Application.Handle, SW_HIDE) 를 불러주세요.. minimize 말고도 태스크...
-
곰푸•2000.12.22 01:36음...해보다 안건데... 처음에 프로그램의 메인 폼이 보이도록 한 상태에서 트레이 아이콘을 넣고 하면...
-
- 치토스
- •
- 2000.12.20 00:41
- 2 COMMENTS
- /
- 0 LIKES
-
김영석•2000.12.20 02:08일단 기본적인 소스는 아래와 같습니다. 그런데 PRGBTripleArray 타입선언된곳을 찾지를 못하네요. Graph...
-
치토스•2000.12.28 21:25아래 소스는 단순비교네요! 저는 동영상에서 비슷한것과 아닌것 차이를 알려고하는 건데!! 제가 알고 있...
GridDrawCell 안에서 REct 를 구하지 말고..
조건이 걸리는 때 있죠?
if (조건) then
begin
Rect := StringGrid1.CellRect(ACol, ARow); //답변해주신 부분
StringGrid1.Canvas.BrushCopy(Rect,
bmpFalse, dRect,clBtnFace); //bmpFalse 는 Bitmap 이미지
end;
GridDrawCell 안에 다시 그리는 걸 넣어면 아무 소용이 없어요.
조건이 걸릴때 if 문 안에서 넣어주면 됩니다..
마우스 클릭하면 DrawCell 메시지를 주니까 그때 다시 그린겁니다.
마우스 클릭안해도 되게 하려면 OnDrawCell 은 필요없고 그림바뀌는 조건있죠?
그때 바로 해줘야 되요..
진현주 wrote:
> stringgrid에서 이미지를 삽입하고, 다시 로그할때 다른것으로 바꾸는 건데,
> 마우스로 클릭해야만 바뀌는 현상입니다.
> 별짓을 다 해봐도 안되는군요,
> 소스는 아래와 같습니다.
>
> procedure TfrmMain.gridDrawCell(Sender: TObject; ACol, ARow: Integer;
> Rect: TRect; State: TGridDrawState);
> var LeftPos,i: Integer;
> dRect: TRect;
> begin
> if (ACol = 2) then begin
>
> Rect := (Sender as TStringGrid).CellRect(ACol, ARow); //답변해주신 부분
> dRect := Classes.Rect(0,0, (Rect.Right-Rect.Left), rect.Bottom-rect.Top);
>
> if (조건) then begin
> (Sender as TStringGrid).Canvas.BrushCopy(Rect,
> bmpFalse, dRect,clBtnFace); //bmpFalse 는 Bitmap 이미지
> end
> else (Sender as TStringGrid).Canvas.BrushCopy(Rect, bmpTrue,
> dRect,clBtnFace);
> end;
> end;
>
> 위 소스에서 처음에 bmpTrue를 화면에 보입니다. 그러다 조건에 거리면 bmpFalse로
> 바뀌어야 하는데, 정말 정말 안됩니다.
> 제발 도와 주십시요.
>