새로운 글
새로운 덧글

델파이 프로그래머 분들  안녕하세요  !

 

이번 세션에서는 우리가 지난 3번 세션에서 다운받은 프로젝트 기반으로  다음 작업을 하고자 합니다.

             A  바둑판 배경색(황금색) 을 입히기

    B.  바둑판의 가로 세로 19개의 선을 긋기

    C.  바둑판의 포석점을 그리기

 

    1.  바둑판 배경색(황금색) 을 입히기를 작업을 하기 위해서 FormCreate 이벤트에서  ResetBoard 로

        선언된 프로시져를 호출합니다.       

procedure TMainForm.FormCreate(Sender: TObject);
begin
      ResetBoard;
end;   

   

     2.  이 ResetBoard 프로시져에서는 새 게임 버튼을 클릭하면 언제든 호출하기 위해서 별도로 선언하였습니다.

       

procedure TMainForm.ResetBoard;
var
 I, J : SmallInt;
begin
 //  바둑판을 노란색으로 체우는 과정

  for I := 0 to 19  do
    for J := 0 to 19 do
      begin
        TTTBoard.Canvas.Draw(18 * I, 18 * J, img_board.Picture.Graphic);
      end;

end;

 

여기서  TTTBoard 라로 명명된  Image 컴포넌트의  Canvas.Draw 를 통해 각각의 넓이18 x 높이18

의 위치에  img_board 컴포넌트의 Picture 를 사용하여 바둑판을 그림니다.

  

    3 물론  procedure  TMainForm.ResetBoard; 호출하기위해선  Class 안에 다음처럼 선언을 해주셔야 하겠죠!

  TMainForm = class(TForm)

    ...

  private
    procedure ResetBoard;

   ...     

 

그리고 이제 실행 해보시면 다음의 결과를 보십니다.

badukGold.png

 

     

    4 이제  바둑판 위에 가로 세로 19개의 선을 긋기 위해서 ResetBoard 프로시쳐 안에 다음을 추가합니다.

procedure TMainForm.ResetBoard;
begin

    ...

 //바둑판에 가로 세로 19개씩의 라인을 그리는 과정

  for I :=  1 to 20  do
    begin
      TTTBoard.Canvas.Pen.Width := 1;                            // 선의 굵기
      TTTBoard.Canvas.Pen.Color := clBlack;                      // 선의 색깔
      TTTBoard.Canvas.MoveTo(18, 18 * I);                       // 가로선의 시작점 지정
      TTTBoard.Canvas.LineTo(TTTBoard.Width-18, 18 * I);   // 가로선 긋기 , TTTBoard.Width 은 18x20개=360 입니다
      TTTBoard.Canvas.MoveTo(18 * I, 18);                      // 세로선의 시작점 지정
      TTTBoard.Canvas.LineTo(18 * I, TTTBoard.Width-18);   //세로선 긋기
    end;
end;

    

   여기서 실행하면 다음의 상태가 됩니다.

 

badukGoldLine.png

 

    

    5  이제 마지막으로  바둑판의 포석점을 그리기 위해서 ResetBoard 프로시쳐 안에 다음을 추가합니다.

         여기서 Canvas.Ellipse 이벤트를 사용하는데  4픽셀 크기의 8개의 포석점을 놓았습니다.

 

procedure TMainForm.ResetBoard;
begin

    ...

    //바둑판에 점을 그리는 과정

    TTTBoard.Canvas.Ellipse((18*4)-2 ,(18*4)-2,(18*4)+2,(18*4)+2);
    TTTBoard.Canvas.Ellipse((18*10)-2 ,(18*4)-2,(18*10)+2,(18*4)+2);
    TTTBoard.Canvas.Ellipse((18*16)-2 ,(18*4)-2,(18*16)+2,(18*4)+2);

    TTTBoard.Canvas.Ellipse((18*4)-2 ,(18*10)-2,(18*4)+2,(18*10)+2);
    TTTBoard.Canvas.Ellipse((18*10)-2 ,(18*10)-2,(18*10)+2,(18*10)+2);
    TTTBoard.Canvas.Ellipse((18*16)-2 ,(18*10)-2,(18*16)+2,(18*10)+2);

    TTTBoard.Canvas.Ellipse((18*4)-2 ,(18*16)-2,(18*4)+2,(18*16)+2);
    TTTBoard.Canvas.Ellipse((18*10)-2 ,(18*16)-2,(18*10)+2,(18*16)+2);
    TTTBoard.Canvas.Ellipse((18*16)-2 ,(18*16)-2,(18*16)+2,(18*16)+2);

end;

 

 

그럼 실행해보시면 이제 바둑판이 완성되었죠!   다음 세션에서는 바둑알을 놓아보도록 하겠습니다.

그럼 좋은 하루보내십시요.

 

ps. 오늘 세션 내용은 첨부파일 main.pas. 에서 확인 해보실수 있습니다.

번호 제목 글쓴이 날짜 조회 수
공지 [10.3 리오][업데이트 3] What's NEW! 신기능 자세히 보기 관리자 2019.11.22 2362
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 4618
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 7237
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 3516
공지 [프로그래밍 강의] 2020.1~2020.6 관리자 2015.01.22 10574
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 관리자 2015.06.30 16914
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2019년 11월 업데이트 됨) 험프리 2014.01.16 154454
929 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 15. TMemo 콘트롤 (계속) file 관리자 2019.03.29 231
928 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 14. TMemo 콘트롤 file 관리자 2019.03.29 228
927 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 13. 문자열과 숫자 타입을 서로 변환하기 file 관리자 2019.03.29 242
926 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 12. String(문자열)들 [1] file 관리자 2019.03.29 248
925 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 11. 반복들 file 관리자 2019.03.29 232
924 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 10. 그래픽들 file 관리자 2019.03.29 573
923 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 9. 함수들 file 관리자 2019.03.29 297
922 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 8. 프로시저들 file 관리자 2019.03.29 253
921 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 7. 중접된 If...Then...Else 문. 작업 해결 실습하기 file 관리자 2019.03.29 282
920 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 6. 프로그램에서 조건에 따라 실행. If...Then...Else 문 file 관리자 2019.03.29 382
919 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 5. 논리 표현들. Boolean 타입 변수들. 논리 연산들 file 관리자 2019.03.29 242
918 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 4. 표준 수학 함수들 file 관리자 2019.03.29 281
917 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 3. 변수들, 변수의 타입들, 타입 변환하기 file 관리자 2019.03.29 274
916 [도서/PDF/소스코드] 시작하는 사람들을 위한 델파이 프로그래밍-모듈 2. 버튼 누름, 이벤트 다루기 file 관리자 2019.03.29 366
915 이 달의 기술자료 - 2019년 04월 file 험프리 2019.03.28 527
914 [엠바카데로 Feature Friday]10.3.1에서의 iPhone X, iPad Pro 해상도 지원 관리자 2019.03.21 148
913 이 달의 기술자료 - 2019년 03월 file 험프리 2019.02.27 313
912 [10.3 리오][업데이트1] 재설계한 RAD서버 콘솔 UI : API 분석 용이 & Ext JS로의 마이그레이션 지원 관리자 2019.02.22 257
911 [10.3 리오][업데이트1] VCL, FMX용 새로운 스타일 15종 지원 관리자 2019.02.22 1004
910 [10.3 리오][업데이트1] iOS 12, iPhone X 시리즈 디바이스들 지원 관리자 2019.02.22 202


광고 모듈이 설치되어 있지 않아 실행을 중단합니다..