::: µ¨ÆÄÀÌ Tip&Trick :::

µ¨ÆÄÀÌ Tip&Trick ¼º°Ý¿¡ ¸ÂÁö ¾Ê´Â ±¤°í,ºñ¹æ,Áú¹®ÀÇ ±ÛÀº Áï½Ã »èÁ¦Çϸç
³»¿ëÀ» º¹»çÇÏ¿© »ç¿ëÇÒ °æ¿ì ¹Ýµå½Ã À̰÷(http://www.howto.pe.kr)À» Ãâó·Î ¸í½ÃÇÏ¿© ÁÖ¼¼¿ä


Category

  ±è¿µ´ë(2003-03-07 09:24:47, Hit : 3259, Vote : 855
 QReport ¸¦ bmp ·Î º¯È¯Çϱâ

The reports' QRPrinter object has a canvas which is a metafile.
I would try saving this metafile and importing it to Word.
A metafile is far better than a bitmap as it is scale-able.

Here's a little utility I wrote to convert a metafile to a bitmap. This
is definately **not** a production app. In fact, I've done very little
graphics programming and don't know much about it. With that being
understood here's the utility...

program Project1;

uses
{
  Forms,
  Unit1 in 'Unit1.pas' {Form1}{,
}
  Windows,
  Graphics,
  SysUtils,
  Dialogs;

//{$R *.RES}

Procedure ConvertAndSave;
Var
  TheBitmap : TBitmap;
  TheMetaFile : TMetaFile;
  TheRect : TRect;
  TheFilePath : String;
  TheFileName : String;
Begin
  TheFilePath := ExtractFilePath(ParamStr(1));
  TheFileName := ExtractFileName(ParamStr(1));
  TheFileName := ChangeFileExt(TheFileName, '.wmf');

  TheBitmap := TBitmap.Create;
  TheBitmap.LoadFromFile(ParamStr(1));

  TheMetaFile := TMetaFile.Create;
  TheMetaFile.Height := 369;
  TheMetaFile.Width := 543;
  With TMetaFileCanvas.Create(TheMetaFile, 0) do
    Begin
      TheRect.Left := 0;
      TheRect.Top := 0;
      TheRect.Right := 543;
      TheRect.Bottom := 369;

      CopyRect(TheRect, TheBitmap.Canvas, TheRect);
      Free;
    End;

  TheMetaFile.SaveToFile(TheFilePath + TheFileName);
  TheMetaFile.Free;
  TheBitmap.Free;
End;

begin
  ConvertAndSave;
{
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
}
end.


Procedure ConvertAndSave;
Var
  TheBitmap : TBitmap;
  TheMetaFile : TMetaFile;
  TheRect : TRect;
  TheFilePath : String;
  TheFileName : String;
Begin
  TheFilePath := ExtractFilePath(ParamStr(1));
  TheFileName := ExtractFileName(ParamStr(1));
  TheFileName := ChangeFileExt(TheFileName, '.wmf');

  TheBitmap := TBitmap.Create;
  TheBitmap.LoadFromFile(ParamStr(1));

  TheMetaFile := TMetaFile.Create;
  TheMetaFile.Height := 369;
  TheMetaFile.Width := 543;
  With TMetaFileCanvas.Create(TheMetaFile, 0) do
    Begin
      TheRect.Left := 0;
      TheRect.Top := 0;
      TheRect.Right := 543;
      TheRect.Bottom := 369;

      CopyRect(TheRect, TheBitmap.Canvas, TheRect);
      Free;
    End;

  TheMetaFile.SaveToFile(TheFilePath + TheFileName);
  TheMetaFile.Free;
  TheBitmap.Free;
End;





571   [À©µµ¿ìÁî API] À©µµ¿ìÁî '½ÃÀÛ' ¸Þ´º Refresh ½ÃŰ±â  ±è¿µ´ë 2003/03/07 4624 1419
570   [À©µµ¿ìÁî API] ´Ù¸¥ ApplicationÀÇ È­¸é¿¡ ±ÛÀÚ,±×¸²À» Ãâ·ÂÇÏ±â  ±è¿µ´ë 2003/03/07 3399 868
569   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] WideString À» String À¸·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4519 1129
568   [À©µµ¿ìÁî API] À©µµ¿ìÁî Ž»ö±âÀÇ ÆÄÀÏ, ÄÄÇ»ÅÍ Ã£±â È­¸é ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 6186 1630
567   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MessageDlg()ÀÇ ÆùÆ®¸¦ ¹Ù²Ù¾î¼­ ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 3890 1070
566   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListView ÀÇ item À» °­Á¦·Î ÆíÁý»óÅ·Π¸¸µé±â  ±è¿µ´ë 2003/03/07 4665 1217
565   [µ¥ÀÌÅͺ£À̽º] µ¿ÀûÀ¸·Î SELECTÀÇ GROUP BY ¹® ¸¸µé±â  ±è¿µ´ë 2003/03/07 4201 946
564   [À©µµ¿ìÁî API] ALT_F4 hot key °¡·Îä±â  ±è¿µ´ë 2003/03/07 5655 1618
563   [À©µµ¿ìÁî API] ·¹Áö½ºÆ®¸® Àüü °Ë»öÇÏ±â  ±è¿µ´ë 2003/03/07 4219 1141
562   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TOpenDialog ÀÇ '¼±ÅÃ','Ãë¼Ò' ¹öư À̸§ ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4375 1334
561   [À©µµ¿ìÁî API] ¸ð¼­¸®°¡ µÕ±Ù(rounded ends) TEdit ¸¸µé±â  ±è¿µ´ë 2003/03/07 4958 1288
560   [½Ã½ºÅÛ] ÇÁ·Î±×·¥ÀÌ µ¿ÀûÀ¸·Î ÇÒ´ç¹ÞÀº ¸Þ¸ð¸® Å©±â ?  ±è¿µ´ë 2003/03/07 4547 1300
559   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] OnActivate À̺¥Æ® ³»¿¡¼­ Æû È®½ÇÈ÷ ´Ý±â  ±è¿µ´ë 2003/03/07 4237 1089
558   [µ¥ÀÌÅͺ£À̽º] QueryÇÑ °á°ú¸¦ ¼öÁ¤Çϱâ...  ±è¿µ´ë 2003/03/07 4948 1195
557   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] StringGridÀÇ CellÀ» °­Á¦·Î ´ÙÁß ¼±ÅÃ/ÇØÁ¦ ½ÃŰ±â  ±è¿µ´ë 2003/03/07 4019 1007
556   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TRichEditÀÇ Çà°£°Ý ¶ç¿ì±â(line spacing)  ±è¿µ´ë 2003/03/07 5498 1496
555   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÇÁ¸°ÅÍ·Î escape ¹®ÀÚ Ãâ·ÂÇϱâ(raw print)  ±è¿µ´ë 2003/03/07 5069 1259
554   [À©µµ¿ìÁî API] keyboard, mouse ¸Þ½ÃÁö ¹«½Ã(skip) ÇÏ±â  ±è¿µ´ë 2003/03/07 4416 1202
553   [À©µµ¿ìÁî API] À©µµ¿ìÁî Ä¿¼­(global cursor) ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 7045 2119
552   [½Ã½ºÅÛ] ÇöÀç ÇÁ¸°ÅÍÀÇ Ãâ·Â°¡´ÉÇÑ ¿ëÁöÁ¾·ù ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 6278 1683
551   [½Ã½ºÅÛ] ÇÁ¸°ÅÍ¿¡ ÀÛ¾÷ÁßÀÎ jobÀÇ ¸®½ºÆ® ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4859 1252
550   [½Ã½ºÅÛ] Clipboard ÈÉÃ帱â(Clipboard hooking)  ±è¿µ´ë 2003/03/07 6993 1592
549   [À©µµ¿ìÁî API] ControlÀÇ repainting ±ÝÁöÇÏ¿© ±ô¹ÚÀÓ ÁÙÀÌ±â  ±è¿µ´ë 2003/03/07 5622 1253
548   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ÀÇ ³¡¿¡¼­ºÎÅÍ °Ë»öÇÏ´Â Pos() ÇÔ¼ö  ±è¿µ´ë 2003/03/07 5150 1182
547   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] µð·ºÅ丮¸í ¹Ù²Ù±â/À̵¿ ÇÏ±â  ±è¿µ´ë 2003/03/07 5295 1581
546   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] µð·ºÅ丮 º¯µ¿»çÇ×À» Ž»ö±â¿¡ ¾Ë¸®±â  ±è¿µ´ë 2003/03/07 5437 1619
545   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Æû ÀμâÇϱâ 2  ±è¿µ´ë 2003/03/07 3798 1027
544   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¿¬¼ÓµÈ Űº¸µåÀÇ Å° ¹ß»ý½ÃŰ±â  ±è¿µ´ë 2003/03/07 4171 1129
543   [½Ã½ºÅÛ] Keyboard Hook  ±è¿µ´ë 2003/03/07 4087 858
542   [À©µµ¿ìÁî API] ·¹Áö½ºÆ®¸®ÀÇ Æ¯Á¤Å°¸¦ ÆÄÀÏ·Î ÀúÀå/º¹¿øÇÏ±â  ±è¿µ´ë 2003/03/07 6621 1495
541   [½Ã½ºÅÛ] PC¿¡ ¼³Ä¡µÈ DirectX ¹öÀü ÀÐ±â  ±è¿µ´ë 2003/03/07 3949 1222
540   [µ¥ÀÌÅͺ£À̽º] CD ¿¡ ÀÖ´Â DB Á¢±ÙÇÏ±â  ±è¿µ´ë 2003/03/07 3900 1118
539   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Á¦¾îÆÇÀÇ applet ¸®½ºÆ® (17°³)  ±è¿µ´ë 2003/03/07 3425 988
538   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Åõ¸íÇÑ Bitmaps ÀÎ¼â  ±è¿µ´ë 2003/03/07 7660 1393
  [ÀϹÝ/ÄÄÆ÷³ÍÆ®] QReport ¸¦ bmp ·Î º¯È¯ÇÏ±â  ±è¿µ´ë 2003/03/07 3259 855
536   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] WMF ¸¦ BMP ·Î º¯È¯ÇÏ±â  ±è¿µ´ë 2003/03/07 4487 1373
535   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MemoÀÇ ÀÔ·ÂÇà¼ö Á¦ÇÑÇÏ±â  ±è¿µ´ë 2003/03/07 4181 1179
534   [½Ã½ºÅÛ] PCÀÇ Àü¿ø»óÅ ¾Ë¾Æº¸±â  ±è¿µ´ë 2003/03/07 5899 1713
533   [À©µµ¿ìÁî API] ÆÄÀÏ¿¡¼­ ¾ÆÀÌÄÜ »©³»±â(32 * 32)  ±è¿µ´ë 2003/03/07 6372 1617
532   [À©µµ¿ìÁî API] ÆÄÀÏ¿¡¼­ ¾ÆÀÌÄÜ »©³»±â(16 * 16)  ±è¿µ´ë 2003/03/07 4729 1255

[ÀÌÀü 10°³] [1].. 11 [12][13][14][15][16][17][18][19][20]..[25] [´ÙÀ½ 10°³]
 

Copyright 1999-2023 Zeroboard / skin by zero