Lazarus まとめサイトにて、PowerPdf の修正版を公開

Lazarus まとめサイトをボチボチ作ろうと思い
以下のサイトを公開してみました～

https://sites.google.com/site/lazarue777/

PowerPdf にて、試しに日本語フォントの有効と文字化けの対処をしてみた
修正版をアップしてみました。
以下のページからソースをダウンロードできます。
https://sites.google.com/site/lazarue777/home/konponento-raiburari/powerpdf

まだ、PowerPdf を調査中。。。

PowerPdf の同じようなところでハマっている人がいました～

http://tomomori.cocolog-nifty.com/blog/2009/12/powerpdfbytetyp.html

Lazarus から PowerPdf を使ってみる

Lazarus から PowerPdf を使ってみることにしました。
とりあえず、以下の順でコントロールを配置してみました。
1) TPReport
2) TPRPage
3) TPRLayoutPanel
4) TPREllipse

印刷ボタンを作成し、クリックイベントでPDF出力処理を記載。

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    with PReport1 do
    begin
      FileName := SaveDialog1.FileName;
      BeginDoc;
      Print(PRPage1);
      EndDoc;
    end;
end;

円をPDFに出力することができました。

5) TPRLabel　を配置し、Caption に「アメリカ」と入力。

PDFを出力すると見事に文字化けしました～(笑)

Lazarus のまとめサイト

Lazarus を使用していて、わかったことや、覚えたことを
どこかにまとめようかな～と思っています。
新規サイトを作ろうかな？

PowerPDF の Lazarus 移植版をパッケージインストールしてみる♪

PowerPDF を SVN からエクスポートし、
http://wiki.lazarus.freepascal.org/PowerPDF
インストールしてみることにしました～

とりあえず、コンパイルとインストールはできたみたい♪

TExtendedNotebook の子コントロールが変更されたのかな？

TExtendedNotebook を使用していて、SVN 更新したら、
子コントロールの TPage 読み込みでエラーになってしまった。。。
試しに TExtendedNotebook 上でページの追加の操作をしてみたら
TTabSheet で子コントロールが作成されている～

あれれ？？仕様が変わった？？

interface（インターフェース）を持っている（実装されている）か？の判定

親クラスを持っているか？を判定するには、is を使用するればいいけど、
interface（インターフェース）を自分で作成して、
クラスに持っているかを判定したい場合、GetInterfaceEntry を
使用します。
as を使用したい場合には、interface に GUID を埋め込んで置く必要があります。
IDEのソース上で GUID を埋め込みするには、[Ctrlキー] + [Shiftキー] + [Gキー] を
キー入力します。

type
  IDWSShapeContainer = interface
   ['{8D26C9EF-AD7A-4A6F-B145-BBEBC2D85240}']
   function IsShapeFocused():Boolean;
  end;

  TDWSBoxFlowDiagram = class(TPanel, IDWSShapeContainer)
     :
  end;

procedure TDWSShape.PaintSelectFocus(ACanvas: TCanvas);
var
  container: IDWSShapeContainer;
begin
  // nil 以外なら持っている。nil なら持っていない
  if Self.Parent.GetInterfaceEntry(IDWSShapeContainer) <> nil then
  begin
    container := Self.Parent as IDWSShapeContainer;
    if not container.IsShapeFocused() then
    begin
      exit;
    end;
  end;
     :
end;