home *** CD-ROM | disk | FTP | other *** search
/ DOKAN 17 / DOKAN17.iso / Progs / Pjv03dde.zip / PJV03DDE / SRCCODE / SAMPLE1 / SAMPLE1U.PAS < prev   
Pascal/Delphi Source File  |  1999-08-14  |  2KB  |  82 lines
  1. unit sample1u;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, StdCtrls, Printers, Nihongo;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     procedure Button1Click(Sender: TObject);
  14.     procedure FormCreate(Sender: TObject);
  15.     procedure Button2Click(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21.  
  22. const
  23.   ERR00 = 'Error while initializing Nihongo Engine!'+#10+
  24.           '(Remerber: ' + jJAPFNT + ' and ' + jASCFNT + ' must be in program''s folder!)';
  25.   EUCSRC = '╞ⁿ╦▄╕∞í┌ñ╦ñ█ñ≤ñ┤í█';
  26.  
  27. var
  28.   Form1 : TForm1;
  29.   EUC   : String;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. // --------------------------------------------------------------------------
  36.  
  37. procedure TForm1.FormCreate(Sender: TObject);
  38.  
  39. begin
  40.   if jInitialize = false then
  41.     begin
  42.       ShowMessage(ERR00);
  43.       halt;
  44.     end;
  45.   EUC := EUCSRC;
  46. end;
  47.  
  48. // --------------------------------------------------------------------------
  49.  
  50. procedure DrawIt(_dest: HDC; _size: byte);
  51.  
  52. begin
  53.   Form1.Canvas.Brush.Color := clWhite;
  54.   Form1.Canvas.MoveTo(0, 0);
  55.   jWriteSJS(100, 10, _size, _size,
  56.             'SJS - ô·û{îΩüyé╔é┘é±é▓üz', false, false, _dest);
  57.   jWriteEUC(100, 12 + _size, _size, _size,
  58.             'EUC - ' + EUC, false, true, _dest);
  59. end;
  60.  
  61. // --------------------------------------------------------------------------
  62.  
  63. procedure TForm1.Button1Click(Sender: TObject);
  64.  
  65. begin
  66.   DrawIt(Form1.Canvas.Handle, 16);
  67. end;
  68.  
  69. // --------------------------------------------------------------------------
  70.  
  71. procedure TForm1.Button2Click(Sender: TObject);
  72.  
  73. begin
  74.   Printer.BeginDoc;
  75.   DrawIt(Printer.Canvas.Handle, (Printer.PageWidth * 16) div 640);
  76.   Printer.EndDoc;
  77. end;
  78.  
  79. // --------------------------------------------------------------------------
  80.  
  81. end.
  82.