Developing with Graphics/ko

SelectObject(Canvas.Handle, GetStockObject(DEFAULT_GUI_FONT));

// First calculate the text size then draw it
      TextBox := Rect(0, currentPos.Y, Width, High(Integer));
      DrawText(ACanvas.Handle, PChar(Text), Length(Text),
        TextBox, DT_WORDBREAK or DT_INTERNAL or DT_CALCRECT);
    
      DrawText(ACanvas.Handle, PChar(Text), Length(Text),
        TextBox, DT_WORDBREAK or DT_INTERNAL);

Canvas.Font.Quality:=fqNonAntialiased

procedure PaintAliased(Canvas: TCanvas; x,y: integer; const TheText: string);
    var
      w,h: integer;
      IntfImg: TLazIntfImage;
      Img: TBitmap;
      dy: Integer;
      dx: Integer;
      col: TFPColor;
      FontColor: TColor;
      c: TColor;
    begin
      w:=0;
      h:=0;
      Canvas.GetTextSize(TheText,w,h);
      if (w<=0) or (h<=0) then exit;
      Img:=TBitmap.Create;
      IntfImg:=nil;
      try
        // 비트맵에 텍스트를 그림
        Img.Masked:=true;
        Img.SetSize(w,h);
        Img.Canvas.Brush.Style:=bsSolid;
        Img.Canvas.Brush.Color:=clWhite;
        Img.Canvas.FillRect(0,0,w,h);
        Img.Canvas.Font:=Canvas.Font;
        Img.Canvas.TextOut(0,0,TheText);
        // 메모리 이미지를 얻어온다
        IntfImg:=Img.CreateIntfImage;
        // 회색 픽셀을 치환
        FontColor:=ColorToRGB(Canvas.Font.Color);
        for dy:=0 to h-1 do begin
          for dx:=0 to w-1 do begin
            col:=IntfImg.Colors[dx,dy];
            c:=FPColorToTColor(col);
            if c<>FontColor then
              IntfImg.Colors[dx,dy]:=colTransparent;
          end;
        end;
        // 비트맵 생성
        Img.LoadFromIntfImage(IntfImg);
        // 페인트
        Canvas.Draw(x,y,Img);
      finally
        IntfImg.Free;
        Img.Free;
      end;
    end;

var
      MyBitmap: TBitmap;
    begin
      MyBitmap := TBitmap.Create;
      try
        // Load from disk
        MyBitmap.LoadFromFile(MyEdit.Text);
    
        // Here you can use MyBitmap.Canvas to read/write to/from the image
    
        // Write back to another disk file
        MyBitmap.SaveToFile(MyEdit2.Text);
      finally
        MyBitmap.Free;
      end;
    end;

var
      MyPNG: TPortableNetworkGraphic;
    begin
      MyPNG := TPortableNetworkGraphic.Create;
      try
        // Load from disk
        MyPNG.LoadFromFile(MyEdit.Text);
    
        // Here you can use MyPNG.Canvas to read/write to/from the image
    
        // Write back to another disk file
        MyPNG.SaveToFile(MyEdit2.Text);
      finally
        MyPNG.Free;
      end;
    end;

var
      MyPicture: TPicture;
    begin
      MyPicture := TPicture.Create;
      try
        // Load from disk
        MyPicture.LoadFromFile(MyEdit.Text);
    
        // Here you can use MyPicture.Graphic.Canvas to read/write to/from the image
    
        // Write back to another disk file
        MyPicture.SaveToFile(MyEdit2.Text);
      finally
        MyPicture.Free;
      end;
    end;

procedure MyForm.MyButtonOnClick(Sender: TObject);
    var
      buffer: THandle;
      bmp: TBitmap;
      memstream: TMemoryStream;
    begin
      bmp??:= TBitmap.Create;
    
      buffer??:= Windows.LoadBitmap(hInstance, MAKEINTRESOURCE(ResourceID));
    
      if (buffer = 0) then exit; // 비트맵을 로딩하다가 에러
    
      bmp.Handle??:= buffer;
      memstream??:= TMemoryStream.create;
      try
        bmp.SaveToStream(memstream);
        memstream.position??:= 0;
        bmp.LoadFromStream(memstream);
      finally
        memstream.free;
      end;
    
      bmp.Transparent??:= True;
      bmp.TransparentColor??:= clFuchsia;
    
      MyCanvas.Draw(0, 0, bmp);
    
      bmp.Free; // 할당된 비트맵을 해제한다.
    end;

uses LCLIntf, LCLType;
    
      ...
    
    var
      MyBitmap: TBitmap;
      ScreenDC: HDC;
    begin
      MyBitmap??:= TBitmap.Create;
      ScreenDC??:= GetDC(0);
      MyBitmap.LoadFromDevice(ScreenDC);
      ReleaseDC(ScreenDC);
    
      ...

type
      PRGBTripleArray = ^TRGBTripleArray;
      TRGBTripleArray = array[0..32767] of TRGBTriple;
    
    procedure TForm1.FadeIn(aBitMap: TBitMap);
    var
      Bitmap, BaseBitmap: TBitmap;
      Row, BaseRow: PRGBTripleArray;
      x, y, step: integer;
    begin
      Bitmap??:= TBitmap.Create;
      try
        Bitmap.PixelFormat??:= pf32bit;  //  pf24bit
        Bitmap.Assign(aBitMap);
        BaseBitmap??:= TBitmap.Create;
        try
          BaseBitmap.PixelFormat??:= pf32bit;
          BaseBitmap.Assign(Bitmap);
          for step??:= 0 to 32 do begin
            for y??:= 0 to (Bitmap.Height - 1) do begin
              BaseRow??:= BaseBitmap.Scanline[y];
              Row??:= Bitmap.Scanline[y];
              for x??:= 0 to (Bitmap.Width - 1) do begin
                Row[x].rgbtRed??:= (step * BaseRow[x].rgbtRed) shr 5;
                Row[x].rgbtGreen??:= (step * BaseRow[x].rgbtGreen) shr 5; // Fading
                Row[x].rgbtBlue??:= (step * BaseRow[x].rgbtBlue) shr 5;
              end;
            end;
            Form1.Canvas.Draw(0, 0, Bitmap);
            InvalidateRect(Form1.Handle, nil, False);
            RedrawWindow(Form1.Handle, nil, 0, RDW_UPDATENOW);
          end;
        finally
          BaseBitmap.Free;
        end;
      finally
        Bitmap.Free;
      end;
    end;

`` ?????????????????? ??? ????????? ????????? ?????? ????????????:

??? ???????????? ???????????? ????????? $LazarusPath/examples/lazintfimage/fadein1.lpi ?????????????????? ????????? ?????????. ???????????? ?????? ????????? ????????? ??? ????????? ????????? ?????? ????????? ?????????????????? ????????????. 

### TLazIntfImage??? Canvas??? ?????????

ScanLines ?????? ??????????????? TBitmap?????? ?????? ????????? ?????????, Bitmap scanline ???????????? ???????????? ?????? ????????? ????????? TLazIntfImage??? ???????????? ?????????. ????????? TBitmap?????? TLazIntfImage ??? ???????????? ????????? ?????? ?????? Canvas??? TLazIntfImage??? ????????? ????????? ?????? ?????????.

procedure TForm1.Button4Click(Sender: TObject);
var
  b: TBitmap;
  t: TLazIntfImage;
  bmp, old: HBitmap;
  msk: HBitmap;
  tmpDC: HDC;
begin
  b??:= TBitmap.Create;
  try
    b.LoadFromFile('test.bmp');
    t??:= b.CreateIntfImage;
    t.CreateBitmaps(bmp, msk, false);

tmpDC??:= CreateCompatibleDC(Canvas.Handle);
old??:= SelectObject(tmpDC, bmp);
BitBlt(Canvas.Handle, 0, 0, t.Width, t.Height, tmpDC, 0, 0, SRCCOPY);
DeleteObject(SelectObject(tmpDC, old));
DeleteObject(msk);
DeleteDC(tmpDC);

finally
  t.Free;
  b.Free;
end;

end;

## Working with TLazIntfImage, TRawImage and TLazCanvas

TLazIntfImage is a non-native equivalent of TRasterImage (more commonly utilized in the form of it's descendent TBitmap). The first thing to be aware about this class is that unlike TBitmap it will not automatically allocate a memory area for the bitmap, one should first initialize a memory area and then give it to the TLazIntfImage. Right after creating a TLazIntfImage one should either connect it to a TRawImage or load it from a TBitmap. 

TRawImage is of the type object and therefore does not need to be created nor freed. It can either allocate the image memory itself when one calls TRawImage.CreateData or one can pass a memory block allocated for examply by a 3rd party library such as the Windows API of the Cocoa Framework from Mac OS X and pass the information of the image in TRawImage.Description, TRawImage.Data and TRawImage.DataSize. Instead of attaching it to a RawImage one could also load it from a TBitmap which will copy the data from the TBitmap and won't be syncronized with it afterwards. The TLazCanvas cannot exist alone and must always be attached to a TLazIntfImage. 

The example below shows how to choose a format for the data and ask the TRawImage to create it for us and then we attach it to a TLazIntfImage and then attach a TLazCanvas to it:

var
  AImage: TLazIntfImage;
  ACanvas: TLazCanvas;
  lRawImage: TRawImage;
begin
    lRawImage.Init;
    lRawImage.Description.Init_BPP32_A8R8G8B8_BIO_TTB(AWidth, AHeight);
    lRawImage.CreateData(True);
    AImage := TLazIntfImage.Create(0,0);
    AImage.SetRawImage(lRawImage);
    ACanvas := TLazCanvas.Create(AImage);

### Initializing a TLazIntfImage

One cannot simply create an instance of TLazIntfImage and start using it. It needs to add a storage to it. There are 3 ways to do this: 

1\. Attach it to a TRawImage 

2\. Load it from a TBitmap. Note that it will copy the memory of the TBitmap so it won't remain connected to it.

3\. Load it from a raw image description, like this:

The 0 device in **GetDescriptionFromDevice(0)** uses the current screen format. 

### TLazIntfImage.LoadFromFile

Here is an example how to load an image directly into a TLazIntfImage. It initializes the TLazIntfImage to a 32bit RGBA format. Keep in mind that this is probably not the native format of your screen.

### Loading a TLazIntfImage into a TImage

The pixel data of a **TImage** is the **TImage.Picture** property, which is of type _TPicture_. **TPicture** is a multi format container containing one of several common image formats like Bitmap, Icon, Jpeg or PNG . Usually you will use the _TPicture.Bitmap_ to load a **TLazIntfImage** :

**Notes:**

  * To load a **transparent** TLazIntfImage you have to set the **Image1.Transparent** to true.
  * TImage uses the screen format. If the TLazIntfImage has a different format then the pixels will be converted. Hint: You can use **IntfImg.DataDescription:=GetDescriptionFromDevice(0);** to initialize the TLazIntfImage with the screen format.

### ????????? ???????????? ??????

TLazIntfImage??? ????????? ????????? ???????????? ??????

### Image format specific example

If you know that the TBitmap is using blue 8bit, green 8bit, red 8bit you can directly access the bytes, which is somewhat faster:

procedure TForm1.FadeIn2(aBitMap: TBitMap);
 var
   IntfImg1, IntfImg2: TLazIntfImage;
   ImgHandle,ImgMaskHandle: HBitmap;
   FadeStep: Integer;
   px, py: Integer;
   CurColor: TFPColor;
   TempBitmap: TBitmap;
   Row1, Row2: PRGBTripleArray;
 begin
   IntfImg1:=TLazIntfImage.Create(0,0);
   IntfImg1.LoadFromBitmap(aBitmap.Handle,aBitmap.MaskHandle);

IntfImg2:=TLazIntfImage.Create(0,0);
IntfImg2.LoadFromBitmap(aBitmap.Handle,aBitmap.MaskHandle);

TempBitmap:=TBitmap.Create;

//with Scanline-like
for FadeStep:=1 to 32 do begin
  for py:=0 to IntfImg1.Height-1 do begin
    Row1 := IntfImg1.GetDataLineStart(py); //like Delphi TBitMap.ScanLine
    Row2 := IntfImg2.GetDataLineStart(py); //like Delphi TBitMap.ScanLine
    for px:=0 to IntfImg1.Width-1 do begin
      Row2^[px].rgbtRed:= (FadeStep * Row1^[px].rgbtRed) shr 5;
      Row2^[px].rgbtGreen := (FadeStep * Row1^[px].rgbtGreen) shr 5; // Fading
      Row2^[px].rgbtBlue := (FadeStep * Row1^[px].rgbtBlue) shr 5;
    end;
  end;
  IntfImg2.CreateBitmaps(ImgHandle,ImgMaskHandle,false);

TempBitmap.Handle:=ImgHandle;
TempBitmap.MaskHandle:=ImgMaskHandle;
Canvas.Draw(0,0,TempBitmap);

end;

IntfImg1.Free;
IntfImg2.Free;
TempBitmap.Free;

end;

### Conversion between TLazIntfImage and TBitmap

Since Lazarus has no TBitmap.ScanLines property, the best way to access the pixels of an image in a fast way for both reading and writing is by using TLazIntfImage. The TBitmap can be converted to a TLazIntfImage by using TBitmap.CreateIntfImage() and after modifying the pixels it can be converted back to a TBitmap by using TBitmap.LoadFromIntfImage(); Here's the sample on how to create TLazIntfImage from TBitmap, modify it and then go back to the TBitmap.

procedure TForm1.Button4Click(Sender: TObject);
var
  b: TBitmap;
  t: TLazIntfImage;
begin
  b := TBitmap.Create;
  try
    b.LoadFromFile('test.bmp');
    t := b.CreateIntfImage;

// Read and/or write to the pixels
t.Colors[10,20] := colGreen;

b.LoadFromIntfImage(t);

finally
  t.Free;
  b.Free;
end;

end;

### Using the non-native StretchDraw from LazCanvas

Just like TCanvas.StretchDraw there is TLazCanvas.StretchDraw but you need to specify the interpolation which you desire to use. The interpolation which provides a Windows-like StretchDraw with a very sharp result (the opposite of anti-aliased) can be added with: TLazCanvas.Interpolation := TFPSharpInterpolation.Create; 

There are other interpolations available in the unit fpcanvas.

procedure TForm1.StretchDrawBitmapToBitmap(SourceBitmap, DestBitmap: TBitmap; DestWidth, DestHeight: integer);
var
  DestIntfImage, SourceIntfImage: TLazIntfImage;
  DestCanvas: TLazCanvas;
begin
  // Prepare the destination

DestIntfImage := TLazIntfImage.Create(0, 0);
DestIntfImage.LoadFromBitmap(DestBitmap.Handle, 0);

DestCanvas := TLazCanvas.Create(DestIntfImage);

//Prepare the source
SourceIntfImage := TLazIntfImage.Create(0, 0);
SourceIntfImage.LoadFromBitmap(SourceBitmap.Handle, 0);

// Execute the stretch draw via TFPSharpInterpolation
DestCanvas.Interpolation := TFPSharpInterpolation.Create;
DestCanvas.StretchDraw(0, 0, DestWidth, DestHeight, SourceIntfImage);

// Reload the image into the TBitmap
DestBitmap.LoadFromIntfImage(DestIntfImage);

SourceIntfImage.Free;
DestCanvas.Interpolation.Free;  
DestCanvas.Free;
DestIntfImage.Free;

end;

procedure TForm1.FormPaint(Sender: TObject);
var
  Bmp, DestBitmap: TBitmap;
begin
  // Prepare the destination
  DestBitmap := TBitmap.Create;
  DestBitmap.Width := 100;
  DestBitmap.Height := 100;

Bmp := TBitmap.Create;
Bmp.Width := 10;
Bmp.Height := 10;
Bmp.Canvas.Pen.Color := clYellow;
Bmp.Canvas.Brush.Color := clYellow;
Bmp.Canvas.Rectangle(0, 0, 10, 10);
StretchDrawBitmapToBitmap(Bmp, DestBitmap, 100, 100);
Canvas.Draw(0, 0, Bmp);
Canvas.Draw(100, 100, DestBitmap);

end;

## ?????? ????????? - ??????????????? ????????? ??????

?????? ??????????????? 2D ???????????? GUI??? ???????????? ?????????. ??? ???????????? ?????? ??????????????? ????????? ??? ????????? ????????? ?????????: ????????? ???????????? ???????????? ?????? ???????????? ???????????? ??????. ????????? ????????? ?????? ?????? ???????????? ????????? ????????? ??????????????? ????????? ??? ????????????. ?????? ????????? ????????? ????????? ???????????? ????????? ???????????? ?????????. 

????????? ???????????? ????????? ????????? ????????? ????????? ????????? ?????? ??? ?????????? ?????? OpenGL??? ????????? ???????????? ?????? ????????? ????????? ??? ?????????, ????????? ???????????? ?????? ???????????? ?????? ?????? ?????????????????? ??? ????????? ????????? ????????? ??????. OpenGL??? ????????? ???????????? ??????????????? ???????????? ????????? ???????????? ??????. ?????? A.J. Venter??? gamepack??? ????????? ??? ?????????, ?????? ?????? ???????????? ??????????????? ??????????????? ????????????. 

Canvas??? ????????? ???????????? ???????????? ?????? ?????? ?????? ????????? ??? ?????????: 

  * TImage??? ?????????
  * ???, TPaintBox ?????? ?????? ???????????? OnPaint??? ?????????
  * ??????????????? ?????? ??? ?????? ????????? ????????? ????????????
  * A.J. Venter??? ????????? ????????????

### TImage??? ?????????

TImage??? ?????? ????????? ????????????. TGraphic, ?????? TBitmap,??? ???????????? ????????? ????????? ????????? ????????? OnPaint ????????? ?????? ????????????. TImage??? ????????? ????????? bitmap??? ????????? ????????? **?????????**. ?????????(?????? ?????????)??? Image1.Picture.Graphic (?????? Image1.Picture.Bitmap)??? ?????? ????????? ??? ??????. ???????????? Image1.Picture.Bitmap.Canvas??????. TImage??? ????????? ????????? ???????????? Image1.Canvas??? ?????? Image1.OnPaint ???????????? ?????? ??? ??? ??????. 

**??????** : TImage??? graphic/bitmap??? ????????? ?????? Image1 ???????????? OnPaint??? ???????????? ?????????. TImage??? graphic??? ????????? ?????? ?????????, ????????? ?????? ?????? ?????? ?????? ??????????????? ???????????? ????????? ???????????? ?????? ??????. ????????? ?????? ?????? ?????? ???????????? ???????????? ???????????? ??? ?????????. ?????? ?????? ?????? ????????? ???????????? ??????. TImage??? ????????? ?????? ?????? ??????????????? ???????????? ????????????. 

#### TImage??? ???????????? ?????? ??????

Note: OnPaint?????? ????????? ???????????? ??????.

#### TImage??? ???????????? ???????????????

Note: OnPaint?????? ????????? ???????????? ??????.

Note: Image1.OnPaint??? ???????????? Image1.Canvas??? volatile visible ????????? ????????????. Image1.OnPaint??? ??????????????? Image1.Canvas??? Image1.Picture.Bitmap.Canvas??? ????????????. 

?????? ???: 

` `

`

// 사각형 그리기
MyImage.Canvas.Pen.Color??:= clBlack;
for x??:= 1 to 8 do
 for y??:= 1 to 8 do
  MyImage.Canvas.Rectangle(Round((x - 1) * Image.Width / 8), Round((y - 1) * Image.Height / 8),
     Round(x * Image.Width / 8), Round(y * Image.Height / 8));

end;

procedure TForm.Image1Paint(Sender: TObject);
     begin
       with Image1.Canvas do begin
         // 선을 페인트한다.
         Pen.Color:=clRed;
         Line(0,0,Width,Height);
       end;
     end;

uses
     Classes, SysUtils, Controls, Graphics, LCLType;
    
    type
      TMyDrawingControl = class(TCustomControl)
      public
        procedure EraseBackground(DC: HDC); override;
        procedure Paint; override;
      end;
    
    implementation
    
    procedure TMyDrawingControl.EraseBackground(DC: HDC);
    begin
      // 디폴트 배경 지우기를 가능하게 하려면 다음의 코멘트를 지워라
      //inherited EraseBackground(DC);
    end; 
    
    procedure TMyDrawingControl.Paint;
    var
      x, y: Integer;
      Bitmap: TBitmap;
    begin
      Bitmap??:= TBitmap.Create;
      try
        // Bitmap 크기 초기화
        Bitmap.Height??:= Height;
        Bitmap.Width??:= Width;
     
        // 배경 그리기
        Bitmap.Canvas.Pen.Color??:= clWhite;
        Bitmap.Canvas.Rectangle(0, 0, Width, Height);
    
        // 사각형 그리기
        Bitmap.Canvas.Pen.Color??:= clBlack;
        for x??:= 1 to 8 do
         for y??:= 1 to 8 do
          Bitmap.Canvas.Rectangle(Round((x - 1) * Width / 8), Round((y - 1) * Height / 8),
           Round(x * Width / 8), Round(y * Height / 8));
          
        Canvas.Draw(0, 0, Bitmap);
      finally
        Bitmap.Free;
      end;
    
      inherited Paint;
    end;

``

????????? ????????? ????????? ???????????? ????????????: 

` `

`

procedure TMyForm.FormDestroy(Sender: TObject);
    begin
      MyDrawingControl.Free;
    end;

``

????????? ?????? ????????? ?????? ?????????, Top??? Left??? 0?????? ????????? ????????? ?????????, ???????????? ?????? ?????? ???????????? ???????????? ????????? ?????? ??????. 

"MyDrawingControl.Parent := Self;" ??? ?????? ??????????????? ????????? ?????? ???????????? ???????????? ??? ??? ?????? ?????????. 

"MyDrawingControl.DoubleBuffered := True;"??? ??????????????? ???????????? ???????????? ????????????. gtk????????? ???????????? ?????????. 

### A.J. Venter??? ????????? ????????????

????????? ???????????? ????????? ?????? ????????? ???????????? ?????? ?????? ????????? ?????????, ?????????, ???????????? ???????????? ???????????? ??????. ????????? ?????? ?????? ????????? ???????????????, ?????? ?????? ?????????????????? ?????? ???????????? ????????? ???????????? ????????? ???????????? ????????? ????????? ??????. ????????? ???????????? ???????????????,A.J. Venter??? gamepack??? ????????? ?????? ?????????. ?????? ?????????????????? ????????? ????????? ??? ?????? ?????? ?????????????????? ??????????????? ????????????????????? ????????? ??????-?????? ??????????????? ????????? ????????? ?????? ?????? ?????? ??? ??????????????? ????????? ?????????. ???????????? subversion:  
??? ?????? ?????? ??? ??????. 

` svn co <svn://silentcoder.co.za/lazarus/gamepack> ` 추가적인 정보와 문서 그리고 다운로드는 [홈페이지](<http://outkastsolutions.co.za/outkast/index.php?option=com_openwiki&Itemid=&id=gamepack>)에서 구할 수 있다. 

## ????????? ??????

??? ????????? ????????? ???????????? ?????? ????????? ???????????? ???????????? ?????? ??????. 

??????  | ????????? ?????????  | ??????   
---|---|---  
??????(cur) | TCursor | Graphics   
?????????(bmp) | TBitmap | Graphics   
???????????? ????????? (ico) | TIcon | Graphics   
Mac OS X ?????????(icns) | TicnsIcon | Graphics   
Pixmap (xpm) | TPixmap | Graphics   
Portable Network Graphic (png) | TPortableNetworkGraphic | Graphics   
JPEG (jpg, jpeg) | TJpegImage | Graphics   
PNM (pnm) | TPortableAnyMapGraphic | Graphics   
  
[[fcl-image|fcl-image ?????? ??????]] ???????????? ?????????. 

### ?????? ??????

?????? ????????? ????????? ?????? ???????????? ???????????? ??? ?????? ??????. ????????? ????????? ???????????? ?????? ???????????? ?????? ??? TBitmap?????? ???????????? ?????????. ???????????? ????????? TBitmap?????? ???????????? ??? ??????. 

Bitmap??? PNG??? ???????????? ????????? ???????????? ???:

## ?????? ??????

### TColor

LCL?????? TColor??? ?????? ?????? ?????? ????????? XXBBGGRR ???????????? ???????????? ???????????? ????????? ???????????? AARRGGBB??? ???????????? ???????????? ?????? ????????????????????? ????????????. XX ????????? ????????? fixed ???????????? ??????????????? ???????????? ????????? XX??? 00????????? ??????, ????????? ????????? ??????????????? ????????????. ?????? ????????? ?????? ????????? ?????????????????? ?????????. 

????????? RGB ????????? TColor??? ???????????? ???????????? ????????? ????????????:

TColor??? ????????? ????????? ???????????? ????????? Red, Green ??? Blue ????????? ????????????:

### TFPColor

TFPColor??? ???????????? ?????????????????? ???????????? AARRGGBB ????????? ????????????. 

## LCL ?????? ?????????

LCL ?????? ?????? ??? ??????. ?????? ?????? ??????????????? ???????????? ??????????????? ?????? ???????????? ????????? ????????? ?????????????????? ????????? ???????????? ??????. ?????? ?????? FPImage(????????? fcl-image)??? ????????? ??? ??????, ?????? ???????????? ????????? ?????? ???????????? ??????????????? ????????? ?????????????????????. ?????? LCL??? ?????? FPImage??? ???????????? ?????????(winapi, gtk, carbon, ...)??? ????????? ?????? ????????? ????????? ????????????. 

????????? 200x100 ???????????? ???????????? ???????????? ????????? ????????? ?????? ???????????? ?????? .png??? ???????????? ????????? ?????? ?????? ??????:

{$mode objfpc}{$H+}

uses
  Classes, SysUtils, FPimage, FPImgCanv, ftfont, FPWritePNG, FPCanvas;

procedure TestFPImgFont;
var
  Img: TFPMemoryImage;
  Writer: TFPWriterPNG;
  ms: TMemoryStream;
  ImgCanvas: TFPImageCanvas;
  fs: TFileStream;
  AFont: TFreeTypeFont;
begin
  Img:=nil;
  ImgCanvas:=nil;
  Writer:=nil;
  ms:=nil;
  fs:=nil;
  AFont:=nil;
  try
    // 프리타입 폰트 매니저 초기화
    ftfont.InitEngine;
    FontMgr.SearchPath:='/usr/share/fonts/truetype/ttf-dejavu/';
    AFont:=TFreeTypeFont.Create;

// 폭 200, 높이 100의 이미지 생성
Img:=TFPMemoryImage.Create(200,100);
Img.UsePalette:=false;
// 드로잉 동작을 통해 캔버스 생성
ImgCanvas:=TFPImageCanvas.create(Img);

// 하얀 배경 칠함
ImgCanvas.Brush.FPColor:=colWhite;
ImgCanvas.Brush.Style:=bsSolid;
ImgCanvas.Rectangle(0,0,Img.Width,Img.Height);

// 텍스트 그리기
ImgCanvas.Font:=AFont;
ImgCanvas.Font.Name:='DejaVuSans';
ImgCanvas.Font.Size:=20;
ImgCanvas.TextOut(10,30,'Test');

// 메모리 스트림에 png로 이미지 쓰기
Writer:=TFPWriterPNG.create;
ms:=TMemoryStream.Create;
writer.ImageWrite(ms,Img);
// 메모리 스트림을 파일에 쓰기
ms.Position:=0;
fs:=TFileStream.Create('testfont.png',fmCreate);
fs.CopyFrom(ms,ms.Size);

finally
  AFont.Free;
  ms.Free;
  Writer.Free;
  ImgCanvas.Free;
  Img.Free;
  fs.Free;
end;

end;

begin
  TestFPImgFont;
end.

  * [[Free Pascal Tutorial|????????? ????????????]] \- [Tao Yue's](<http://www.taoyue.com/>) [Pascal Tutorial](<http://www.taoyue.com/tutorials/pascal/>)
  * [[Free Pascal videos|Free Pascal video tutorials]]

---
*From the Free Pascal wiki, page "Developing with Graphics/ko", as the Internet Archive kept it on 2025-02-19, last changed on 2020-02-09. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*