C++ Builder > TCanvas > 凡例を描画する

動作環境

C++ Builder XE4

TCanvasで凡例を描画してみた。

参考 http://www.ne.jp/asahi/aaa/tach1394/delphi/0300/03.htm

エラー処理はきちんとしていない。

Unit1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

static const int kNumColor = 4;

// Microsoft color
// @ http://colorhunt.co/blog/google-microsoft-brand-colors/
static const int baseColors[][3] = {
    { 0x00, 0xA1, 0xF1 }, // R, G, B
    { 0x7C, 0xBB, 0x00 }, // R, G, B
    { 0xFF, 0xBB, 0x00 }, // R, G, B
    { 0xF6, 0x53, 0x14 }, // R, G, B
};

TColor __fastcall TForm1::getTColor(int index)
{
    if (index < 0 || index >= kNumColor) {
        return RGB(0, 0, 0);
    }
    int R = baseColors[index][0];
    int G = baseColors[index][1];
    int B = baseColors[index][2];
    return RGB(R, G, B);
}

void __fastcall TForm1::clearTImage(TImage *imgPtr)
{
    imgPtr->Canvas->Brush->Color = clWhite;
    imgPtr->Canvas->FillRect(Rect(0, 0, imgPtr->Width, imgPtr->Height));
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    drawLegends();
}

void __fastcall TForm1::drawLegends(void)
{
    // 1. 消去
    clearTImage(Image1);

    // 2. 凡例の描画
    int step_y = 20; // 結果を見ながら調整した
    for(int idx=0; idx < kNumColor; idx++) {
        char code = 'A' + idx;
        writeTextOnTImage(Image1, /*x=*/30, /*y=*/10 + step_y * idx, String(code)); // 位置30は任意
        drawLegentColor(Image1, /*x=*/14, /*y=*/14 + step_y * idx, getTColor(/*index=*/idx)); // 位置14は任意
    }
}

void __fastcall TForm1::writeTextOnTImage(TImage *imgPtr, int x, int y, String text)
{
    imgPtr->Canvas->Font->Color = clBlack;
    imgPtr->Canvas->Brush->Color = clWhite; // これがないとdrawLegendColor()の後に文字に背景色が付く
    imgPtr->Canvas->Font->Size = 10; // サイズ10は任意

    imgPtr->Canvas->TextOutW(x, y, text.c_str());
}

void __fastcall TForm1::drawLegentColor(TImage *imgPtr, int x, int y, TColor acolor)
{
    imgPtr->Canvas->Brush->Color = acolor;
    imgPtr->Canvas->FillRect(Rect(x, y, x+10, y+10)); // サイズ10は任意
}
//---------------------------------------------------------------------------

こんな感じで使う。