Q&A

  • 폼에 이미지를 바둑판 형태로 뿌릴 수 있나요?
한신대학교 전자계산소에 근무하는 진요한이라고 합니다.



MDI Parent 폼에 이미지 뿌리는 예제는 석봉현 님의 [Dephi Programming Bible]에 나와있는데



SDI나 MDI Child 폼에 이미지를 바둑판으로 뿌리는 예제는 찾지를 못했습니다.



아시는 분은 답변 부탁드립니다....

이 게시물을
1  COMMENTS
  • Profile
    김영대 • 1999.09.21 01:43
    // Image1.Picture.Bitmap 에 비트맵이 있다고 가정하면

    // 아래 예제는 폼에 title 로 그리게 됩니다



    procedure TForm1.FormPaint(Sender: TObject);

    var

    X, Y, W, H: LongInt;

    begin

    with Image1.Picture.Bitmap do

    begin

    W := Width;

    H := Height;

    end;



    Y := 0;

    while Y < Height do // 그림이 폼보다 작으면 tile 로 그린다

    begin

    X := 0;

    while X < Width do

    begin

    Canvas.Draw(X, Y, Image1.Picture.Bitmap);

    Inc(X, W);

    end;

    Inc(Y, H);

    end;

    end;
←First Page
2802 2803 2804 2805 2806 2807 2808 2809 2810 2811
Last Page→
한델 로그인 하기