//=============================================================================
//  Keyによって操作　　A 2012/07/31
//=============================================================================
procedure TplPrevForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F10 then
  begin
    if PrintBtn.Enabled = True then
      PrintBtnClick( Sender );
  end;
  if Key = VK_F9 then
    if CloseBtn.Enabled = True then
      CloseBtnClick( Sender );
  if Key = VK_HOME then
    if FirstPageBtn.Enabled = True then
      FirstPageBtnClick( Sender );
  if Key = VK_END then
    if LastPageBtn.Enabled = True then
      LastPageBtnClick( Sender );
  if Key = VK_PRIOR then
    if PriorPageBtn.Enabled = True then
      PriorPageBtnClick( Sender );
  if Key = VK_NEXT then
    if NextPageBtn.Enabled = True then
      NextPageBtnClick( Sender );
end;

procedure TplSetPrinter.ChangeCurrentPrinter;
begin
  FPrinterNumber := GetPrinterIndexFromString(FPrinterName);
  if (0 <= FPrinterNumber) 
      and (FPrinterNumber < Printer.Printers.Count) then begin
    Printer.PrinterIndex := FPrinterNumber;
  end else begin  
    Printer.PrinterIndex := -1;
  end;

//=============================================================================
//  seizoさんのバーコード表示コンポーネント TBarImageを使用する例
//
//  CODE39では左右にナロースペース(細い空白)の10倍以上のスペースが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  BarImage1   : TBarImage;
  LRect       : TRect;
  LTextHeight : Integer;
begin
  plPrev1.BeginDoc;
  BarImage1 := TBarImage.Create(Self);
  try
    BarImage1.BarEnabled    := False;           //表示を一時的に禁止
    BarImage1.BarType       := cbarCODE39;      //CODE39を選択
    BarImage1.Scale         := 3;               //倍率指定
    BarImage1.SymbolDisp    := False;           //シンボル文字列は非表示
    BarImage1.Match         := True;            //バーコードのサイズに合わせて表示
    BarImage1.BarPicture    := picEMF;          //メタファイル(EMF)表示を選択
    BarImage1.BarColor      := clBlack;         //バーコードの色を黒色に指定
    BarImage1.BackColor     := clWhite;         //背景色指定
    BarImage1.BarHeight     := 105;             //高さ指定
    BarImage1.BarLeft       := 0;               //表示位置指定(X座標)
    BarImage1.BarTop        := 0;               //表示位置指定(Y座標)
    BarImage1.BarSpaceUp    := 10;              //上方向の余白のサイズを指定
    BarImage1.BarSpaceDown  := 0;               //下方向の余白のサイズを指定
    BarImage1.BarSpaceLeft  := 10;              //左方向の余白のサイズを指定
    BarImage1.BarSpaceRight := 10;              //右方向の余白のサイズを指定
    BarImage1.Code          := '0123456789ABC'; //Codeプロパティ
    BarImage1.BarEnabled    := True;            //この時点でバーコードが描画される

    LRect.Left   := 100;
    LRect.Top    := 100;
    LRect.Right  := LRect.Left + BarImage1.BarWidth;
    LRect.Bottom := LRect.Top + BarImage1.BarHeight;

    //バーコードを描画
    //plPrev1.Canvas.Draw(LRect.Left, LRect.Top, BarImage1.Picture.Metafile);
    //でも描画可能であるが、StretchDrawMetaFileならサイズ調整が可能なので
    plPrev1.StretchDrawMetaFile(LRect, BarImage1.Picture.Metafile);

    //バーコードにした文字列を描画
    plPrev1.FontSize(10.5);
    plPrev1.FontName('ＭＳ Ｐゴシック');
    LTextHeight  := plPrev1.Canvas.TextHeight(BarImage1.Code);
    plPrev1.TextRectCT(LRect.Left,
                       LRect.Right,
                       LRect.Bottom,
                       LRect.Bottom + LTextHeight,
                       BarImage1.Code);
  finally
    FreeAndNil(BarImage1);
    plPrev1.EndDoc;
  end;
  plPrev1.ShowModal;
end;