IDR/Legend.cpp at main · sarog/IDR · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Legend.h"
#include "Misc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFLegend_11011981 *FLegend_11011981;
//---------------------------------------------------------------------------
__fastcall TFLegend_11011981::TFLegend_11011981(TComponent *Owner)
    : TForm(Owner) {
    lblUnitStd->Font->Color = (TColor) 0xC08000;     //blue
    lblUnitUser->Font->Color = (TColor) 0x00B000;    //green
    lblUnitTrivial->Font->Color = (TColor) 0x0000B0; //brown
    lblUnitUserUnk->Font->Color = (TColor) 0x8080FF; //red
}

//---------------------------------------------------------------------------
void __fastcall TFLegend_11011981::FormKeyDown(TObject *Sender, WORD &Key,
                                               TShiftState Shift) {
    if (VK_ESCAPE == Key) Close();
}

//---------------------------------------------------------------------------
void __fastcall TFLegend_11011981::FormCreate(TObject *Sender) {
    ScaleForm(this);
}

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