CodeSite Live Viewer をさらに使ってみた

「CodeSite Live Viewer を使ってみた」で基本的な使い方を書きましたが、もちっと続きを

前回書きそびれた話

ログの On/Off

Enabled プロパティでログの表示をする/しないを設定できます (False を設定すると出力しません)
たとえば、TSwitch の On/Off でログの出力を操作するのであれば TSwitch の OnSwitch イベントで次のように記述します

procedure TForm3.Switch1Switch(Sender: TObject);
begin
  CodeSite.Enabled := Switch1.IsChecked;
end;

SendIf メソッド

機能限定版では使用できない
条件を満たした場合のみログを表示するという便利なメソッドがあるようなんですよ奥さん

// Height が 16 未満の時にのみ Height の値をログに出力する
  CodeSite.SendIf(Height < 16, Height);  

Level

ログの種類として Note とか Warning とかありますが、更に Level という種類があります
これは send メソッドなどで、特定の番号を指定することで設定できます
色とりどりで戦隊みたいだったり..
Send メソッドですので、オブジェクトを渡すこともできます

procedure TForm3.Button4Click(Sender: TObject);
begin
  CodeSite.EnterMethod(Button4, 'OnClick');
  CodeSite.Send(csmLevel1, 'Level1 - Red');
  CodeSite.Send(csmLevel2, 'Level2 - Orange');
  CodeSite.Send(csmLevel3, 'Level3 - Yellow');
  CodeSite.Send(csmLevel4, 'Level4 - Green');
  CodeSite.Send(csmLevel5, 'Level5 - Blue');
  CodeSite.Send(csmLevel6, 'Level6 - Indigo');
  CodeSite.Send(csmLevel7, 'Level7 - Violet', Button4);
end;

このように表示されます

Viewer 画面を見やすくするメソッド

Clear

その名の通り画面をクリアにします

  CodeSite.Clear;

Separator

区切りの横線です
AddSeparator メソッドはネストした状態をキープして横線を引きます
AddResetSeparator メソッドは、ネストの状態など関係なく横線を引きます

たとえば...先程の Level のコードを少し書き直して

procedure TForm3.Button4Click(Sender: TObject);
begin
  CodeSite.EnterMethod(Button4, 'OnClick');
    CodeSite.Send(csmLevel1, 'Level1 - Red');
    CodeSite.Send(csmLevel2, 'Level2 - Orange');
    CodeSite.Send(csmLevel3, 'Level3 - Yellow');
    CodeSite.AddSeparator;

    CodeSite.Send(csmLevel4, 'Level4 - Green');
    CodeSite.Send(csmLevel5, 'Level5 - Blue');
    CodeSite.Send(csmLevel6, 'Level6 - Indigo');
    CodeSite.Send(csmLevel7, 'Level7 - Violet', Button4);
  CodeSite.ExitMethod(Button4, 'OnClick');
  CodeSite.AddResetSeparator;
end;

は、Viewer で

のように表示されます

その他

実は１ヶ月のアップできる画像の総容量をこえたので、この先は来月に～
とほほ...