Q&A

  • StringGrid에 관한 문제
//전역변수로 선언

boardName : Array[0..20] of string;

//폼의 onCreate에서 파일을 읽어 boardName을 초기화 시킨다음 스트링 그리드에 그 이미지를 뿌려주는 역활을 하려고 했는데요 다음과 같이 해 주었더니 제 생각에는 영역이 셀하나하나씩 잡힐테니까 배열처럼 생각해서 다음과 같이 해 보았더니 같은 모양이 계속 생겼습니다.

어떻게 하면 될까요?



procedure TCongif_form.AdvStringGrid1DrawCell(Sender: TObject; ACol,

ARow: Integer; Rect: TRect; State: TGridDrawState);

var



ARect : TRect;

i : integer;

begin

for i := 0 to 21 do

begin

ARect := AdvStringGrid1.CellRect (1,i+1);

if boardName[i] = 'cpu' then

AdvStringGrid1.Canvas.StretchDraw (ARect,bcpu)

else if boardName[i] = 'e1' then

AdvStringGrid1.Canvas.StretchDraw (ARect,be1)

else if boardName[i] = 'power' then

AdvStringGrid1.Canvas.StretchDraw (ARect,bpower)

else if boardName[i] = 'empty' then

AdvStringGrid1.Canvas.StretchDraw (ARect,bempty)

else if boardName[i] = 'fan' then

AdvStringGrid1.Canvas.StretchDraw (ARect,bfan)

else if boardName[i] = 'mfdsp' then

AdvStringGrid1.Canvas.StretchDraw (ARect,bmfdsp)

else if boardName[i] = 'ss7' then

AdvStringGrid1.Canvas.StretchDraw (ARect,bss7)

end;

이 게시물을
1  COMMENTS
  • Profile
    배불뚝 • 2000.03.18 02:14
    hee wrote:

    > //전역변수로 선언

    > boardName : Array[0..20] of string;

    > //폼의 onCreate에서 파일을 읽어 boardName을 초기화 시킨다음 스트링 그리드에 그 이미지를 뿌려주는 역활을 하려고 했는데요 다음과 같이 해 주었더니 제 생각에는 영역이 셀하나하나씩 잡힐테니까 배열처럼 생각해서 다음과 같이 해 보았더니 같은 모양이 계속 생겼습니다.

    > 어떻게 하면 될까요?

    >

    > procedure TCongif_form.AdvStringGrid1DrawCell(Sender: TObject; ACol,

    > ARow: Integer; Rect: TRect; State: TGridDrawState);

    > var

    >

    > ARect : TRect;

    > i : integer;

    > begin

    > for i := 0 to 21 do

    > begin

    > ARect := AdvStringGrid1.CellRect (1,i+1);

    > if boardName[i] = 'cpu' then

    > AdvStringGrid1.Canvas.StretchDraw (ARect,bcpu)

    > else if boardName[i] = 'e1' then

    > AdvStringGrid1.Canvas.StretchDraw (ARect,be1)

    > else if boardName[i] = 'power' then

    > AdvStringGrid1.Canvas.StretchDraw (ARect,bpower)

    > else if boardName[i] = 'empty' then

    > AdvStringGrid1.Canvas.StretchDraw (ARect,bempty)

    > else if boardName[i] = 'fan' then

    > AdvStringGrid1.Canvas.StretchDraw (ARect,bfan)

    > else if boardName[i] = 'mfdsp' then

    > AdvStringGrid1.Canvas.StretchDraw (ARect,bmfdsp)

    > else if boardName[i] = 'ss7' then

    > AdvStringGrid1.Canvas.StretchDraw (ARect,bss7)

    > end;



    drawcell procedure 의 parameter를 활용하면,



    procedure TCongif_form.AdvStringGrid1DrawCell(Sender: TObject; ACol,

    ARow: Integer; Rect: TRect; State: TGridDrawState);

    var

    i : integer;

    begin

    if ACol = 1 then //그림 그릴 컬럼을 지정

    for i := 0 to 21 do

    begin

    if ARow = ( i+1 ) then //그림 그릴 행을 지정

    if boardName[i] = 'cpu' then

    AdvStringGrid1.Canvas.StretchDraw (Rect,bcpu)

    else if boardName[i] = 'e1' then

    AdvStringGrid1.Canvas.StretchDraw (Rect,be1)

    else if boardName[i] = 'power' then

    AdvStringGrid1.Canvas.StretchDraw (Rect,bpower)

    else if boardName[i] = 'empty' then

    AdvStringGrid1.Canvas.StretchDraw (Rect,bempty)

    else if boardName[i] = 'fan' then

    AdvStringGrid1.Canvas.StretchDraw (Rect,bfan)

    else if boardName[i] = 'mfdsp' then

    AdvStringGrid1.Canvas.StretchDraw (Rect,bmfdsp)

    else if boardName[i] = 'ss7' then

    AdvStringGrid1.Canvas.StretchDraw (Rect,bss7)

    end;



    테스트는 못했습니다..-_-;;;



    잘되기를 빕니다. 좋은 주말 계획하세요.
    • 박기웅
    • •
    • 2000.03.17 20:49
    • 2 COMMENTS
    • /
    • 0 LIKES
    dbgrid상에서 특정 셀로 포커스 이동
    • blueSky
      •
      2000.03.17 21:02
      박기웅 wrote: > > 버턴 하나를 누르면 dbgrid상에 포커스가 가게 하는데 default는 dbgrid의 첫 번째 ...
    • 조규춘
      •
      2000.03.18 02:21
      안냐세요! 초보가 답변해도 이해를... 푸하하하 해당되는 아무 셀이나 팍팍 이동하려고 하시려면(예를 ...
    • 이준희
    • •
    • 2000.03.17 20:12
    • 1 COMMENTS
    • /
    • 0 LIKES
    저도 RS232 serial communication질문이요..
    • 최용일
      •
      2000.03.18 04:17
      조준래님 홈페이지( http://members.xoom.com/jounlai/ )에 있는 TComm을 한번 사용해 보세요. 예제도 있...
    • 이진배
    • •
    • 2000.03.17 20:10
    • 1 COMMENTS
    • /
    • 0 LIKES
    vcl40.bpl error 좀 잡아주세요 ~~급함
    • 성더기
      •
      2000.03.29 20:31
      각 PC에 프린터 드라이브가 한개씩은 존재하야합니다 반드시 로칼프린터 드라이브로... 네트웍으로 땡겨...
    • 초보
    • 2000.03.17 19:43
    • 0 COMMENTS
    • /
    • 0 LIKES
    한수 부탁..(DCOM에서..)
  • notepad 실행하려면...
    • 최용일
      •
      2000.03.18 03:08
      Window 메인 디렉토리에 있습니다. 윈도우 디렉토리는 GetWindowsDirectory함수를 이용하여 구할 수 있습...
    • blueSky
      •
      2000.03.17 20:48
      castle road wrote: > 윈도우에 노트패드가 거의 기본으로 인스톨되어 있을것입니다. > 이 노트패드의 화...
    • hee
    • •
    • 2000.03.17 19:06
    • 1 COMMENTS
    • /
    • 0 LIKES
    StringGrid에 관한 문제
    //전역변수로 선언 boardName : Array[0..20] of string; //폼의 onCreate에서 파일을 읽어 boardName을 초기화 시킨다음 스트링 그리드에 그 이미지를 뿌려주는 역활을 하려고 했는데요 다음과 같이 해 주었더니 제 생각에는 영역이 셀하...
    • 배불뚝
      •
      2000.03.18 02:14
      hee wrote: > //전역변수로 선언 > boardName : Array[0..20] of string; > //폼의 onCreate에서 파일...
    • 이윤환
    • •
    • 2000.03.17 18:53
    • 1 COMMENTS
    • /
    • 0 LIKES
    memo에 대해..
    • blueSky
      •
      2000.03.17 20:41
      이윤환 wrote: > memo1에 나온 자료들을 edlt에 찾을 숫자를 입력하고 > 찾기 버튼을 이용해서 하나의 ...
    • 류운
    • 2000.03.17 18:31
    • 0 COMMENTS
    • /
    • 0 LIKES
    Win(Delphi) - Linux(MySQL)
    • 박용일
    • •
    • 2000.03.17 18:25
    • 2 COMMENTS
    • /
    • 0 LIKES
    퀵레포트 좀 가르켜 주세요
    • blueSky
      •
      2000.03.17 20:29
      박용일 wrote: > query를 써서 아래와 같은 결과값을 얻었습니다 > > 결과) > 차수 일자 금액 ...
    • 박용일
      •
      2000.03.17 21:11
      blueSky 님 고맙습니다 몇칠동안 고생을 했는데 덕분에 해결이.. 줄거운 하루되세요
    • 류한규
    • •
    • 2000.03.17 16:47
    • 1 COMMENTS
    • /
    • 0 LIKES
    왼98에서 DB공유시 서버...
    • 유솔로몬
      •
      2000.03.17 20:16
      초보인 제가 답변을 드려 죄송합니다. 가격이 비싸지만 stand alone이 아닌 다 사용자 DB를 사용하...
    • 노희영
    • •
    • 2000.03.17 10:07
    • 1 COMMENTS
    • /
    • 0 LIKES
    타이머 이벤트 초당100번 거는 방법?
    • 최용일
      •
      2000.03.17 10:44
      TTimer의 Interval을 10으로 잡으세요. 그래도 다른 작업에 많은 시간을 빼았긴다면 100번이 안잡힙니다. ...
    • 델파인
    • •
    • 2000.03.17 09:40
    • 1 COMMENTS
    • /
    • 0 LIKES
    폼을 출력할때 회전이 가능한가요?
    • 최용일
      •
      2000.03.18 02:33
      TPrinter를 사용하시거나(인쇄품질이 않좋음) 직접 Windows API사용하세요 90'회전, 크기조절도 가능합니...
    • 델피
    • 2000.03.17 07:41
    • 0 COMMENTS
    • /
    • 0 LIKES
    폼밖에서 마우스 제어하기..
    • 청계산
    • •
    • 2000.03.17 07:25
    • 3 COMMENTS
    • /
    • 0 LIKES
    Debugging 에서의 메시지...
    • 최용일
      •
      2000.03.18 02:48
      델파이의 코드 최적화때문에 그러는 것입니다. 파스칼과는 달리 더이상 참조되지 않는 값들은 델파이가 바...
    • 청계산
      •
      2000.03.18 05:39
      답변 정말 고맙습니다. 근데요 얼마전에는 잘 나왔는데 환경을 일부 손댄 뒤부터 그래요 그건 왜 그러는...
    • 최용일
      •
      2000.03.18 06:49
      글쎄요. 환경설정을 바꾸었다고 해서 나올게 안 나올리가 없는데요. 코드를 바꾸었다면 안나올 수도 있지...
  • table merge는 어떻게?
    • Go100
    • •
    • 2000.03.17 06:31
    • 1 COMMENTS
    • /
    • 0 LIKES
    DBGrid에서 필드마지막 row에 sum 값구하기
    • 유레카
      •
      2000.03.17 18:46
      Go100 wrote: > 또 질문이 있습니다. 어엽쁘게 봐주세요. > > DBGrid에서 필드마지막 row에 sum 값구...
    • Paddy
    • •
    • 2000.03.17 06:30
    • 1 COMMENTS
    • /
    • 0 LIKES
    간단한 Mouse Event에 대해서
    • 최용일
      •
      2000.03.17 06:54
      TButton 대신에 TSpeenButton을 사용하시면 간단하게 구현하실 수 있습니다. 스피드버튼의 Flat속성을 Tru...
    • 하명훈
    • •
    • 2000.03.17 06:04
    • 2 COMMENTS
    • /
    • 0 LIKES
    인터베이스 사용중에...의문점, 질문있음다....
    • 류운
      •
      2000.03.19 01:13
      하명훈 wrote: > 현재 제 방에 컴이 2대 있습니다(1번 컴, 2번 컴). 둘 다 윈98이 깔려있구여. > 둘 다 ...
    • 오현수
      •
      2000.03.21 13:19
      류운 wrote: > 하명훈 wrote: > > 현재 제 방에 컴이 2대 있습니다(1번 컴, 2번 컴). 둘 다 윈98이 깔려...
    • 박대규
    • •
    • 2000.03.17 05:49
    • 1 COMMENTS
    • /
    • 0 LIKES
    서버소켓에 동시 접속할수있는 클라이언트 소켓의 수?
    • 류종택
      •
      2000.03.17 08:32
      저는 300개 까지는 해본적은 있습니다.. 하지만 그것이 한계는 아닙니다.. 시스템의 리소스가 바쳐주는 ...
    • sun
    • •
    • 2000.03.17 05:42
    • 1 COMMENTS
    • /
    • 0 LIKES
    콤퍼넌트와의 비교 (아래 구문 좀 봐주세요)
    • 류종택
      •
      2000.03.17 08:35
      아래를 참고하세요.. From 류.. --------- Query.SQL.Text:= 'Select * From TableName Where A...
←First Page
2585 2586 2587 2588 2589 2590 2591 2592 2593 2594
Last Page→
한델 로그인 하기