pal.cpp

bung.cpp bung.dfm bung.h DbgWarn.cpp DbgWarn.dfm DbgWarn.h Debug.cpp Debug.dfm Debug.h Emu.cpp Emu

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <stdio.h>

#include "Pal.h"
#include "rom.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

#define RGB15TO24(x) (((((x)>>10)&31)<<3)|((((x)>>5)&31)<<11)|(((x)&31)<<19))
#define GETRGBVALUES(x) sprintf(str,"R=%d G=%d B=%d",((x)>>10)&31,((x)>>5)&31,(x)&31)

TPalView *PalView;
//---------------------------------------------------------------------------
__fastcall TPalView::TPalView(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TPalView::DoUpdate()
{
    char str[64];
    Bg00->Brush->Color=TColor(RGB15TO24(bgPal[0]));
    GETRGBVALUES(bgPal[0]);
    Bg00->Hint=str;
    Bg01->Brush->Color=TColor(RGB15TO24(bgPal[1]));
    GETRGBVALUES(bgPal[1]);
    Bg01->Hint=str;
    Bg02->Brush->Color=TColor(RGB15TO24(bgPal[2]));
    GETRGBVALUES(bgPal[2]);
    Bg02->Hint=str;
    Bg03->Brush->Color=TColor(RGB15TO24(bgPal[3]));
    GETRGBVALUES(bgPal[3]);
    Bg03->Hint=str;
    Bg10->Brush->Color=TColor(RGB15TO24(bgPal[4]));
    GETRGBVALUES(bgPal[4]);
    Bg10->Hint=str;
    Bg11->Brush->Color=TColor(RGB15TO24(bgPal[5]));
    GETRGBVALUES(bgPal[5]);
    Bg11->Hint=str;
    Bg12->Brush->Color=TColor(RGB15TO24(bgPal[6]));
    GETRGBVALUES(bgPal[6]);
    Bg12->Hint=str;
    Bg13->Brush->Color=TColor(RGB15TO24(bgPal[7]));
    GETRGBVALUES(bgPal[7]);
    Bg13->Hint=str;
    Bg20->Brush->Color=TColor(RGB15TO24(bgPal[8]));
    GETRGBVALUES(bgPal[8]);
    Bg20->Hint=str;
    Bg21->Brush->Color=TColor(RGB15TO24(bgPal[9]));
    GETRGBVALUES(bgPal[9]);
    Bg21->Hint=str;
    Bg22->Brush->Color=TColor(RGB15TO24(bgPal[10]));
    GETRGBVALUES(bgPal[10]);
    Bg22->Hint=str;
    Bg23->Brush->Color=TColor(RGB15TO24(bgPal[11]));
    GETRGBVALUES(bgPal[11]);
    Bg23->Hint=str;
    Bg30->Brush->Color=TColor(RGB15TO24(bgPal[12]));
    GETRGBVALUES(bgPal[12]);
    Bg30->Hint=str;
    Bg31->Brush->Color=TColor(RGB15TO24(bgPal[13]));
    GETRGBVALUES(bgPal[13]);
    Bg31->Hint=str;
    Bg32->Brush->Color=TColor(RGB15TO24(bgPal[14]));
    GETRGBVALUES(bgPal[14]);
    Bg32->Hint=str;
    Bg33->Brush->Color=TColor(RGB15TO24(bgPal[15]));
    GETRGBVALUES(bgPal[15]);
    Bg33->Hint=str;
    Bg40->Brush->Color=TColor(RGB15TO24(bgPal[16]));
    GETRGBVALUES(bgPal[16]);
    Bg40->Hint=str;
    Bg41->Brush->Color=TColor(RGB15TO24(bgPal[17]));
    GETRGBVALUES(bgPal[17]);
    Bg41->Hint=str;
    Bg42->Brush->Color=TColor(RGB15TO24(bgPal[18]));
    GETRGBVALUES(bgPal[18]);
    Bg42->Hint=str;
    Bg43->Brush->Color=TColor(RGB15TO24(bgPal[19]));
    GETRGBVALUES(bgPal[19]);
    Bg43->Hint=str;
    Bg50->Brush->Color=TColor(RGB15TO24(bgPal[20]));
    GETRGBVALUES(bgPal[20]);
    Bg50->Hint=str;
    Bg51->Brush->Color=TColor(RGB15TO24(bgPal[21]));
    GETRGBVALUES(bgPal[21]);
    Bg51->Hint=str;
    Bg52->Brush->Color=TColor(RGB15TO24(bgPal[22]));
    GETRGBVALUES(bgPal[22]);
    Bg52->Hint=str;
    Bg53->Brush->Color=TColor(RGB15TO24(bgPal[23]));
    GETRGBVALUES(bgPal[23]);
    Bg53->Hint=str;
    Bg60->Brush->Color=TColor(RGB15TO24(bgPal[24]));
    GETRGBVALUES(bgPal[24]);
    Bg60->Hint=str;
    Bg61->Brush->Color=TColor(RGB15TO24(bgPal[25]));
    GETRGBVALUES(bgPal[25]);
    Bg61->Hint=str;
    Bg62->Brush->Color=TColor(RGB15TO24(bgPal[26]));
    GETRGBVALUES(bgPal[26]);
    Bg62->Hint=str;
    Bg63->Brush->Color=TColor(RGB15TO24(bgPal[27]));
    GETRGBVALUES(bgPal[27]);
    Bg63->Hint=str;
    Bg70->Brush->Color=TColor(RGB15TO24(bgPal[28]));
    GETRGBVALUES(bgPal[28]);
    Bg70->Hint=str;
    Bg71->Brush->Color=TColor(RGB15TO24(bgPal[29]));
    GETRGBVALUES(bgPal[29]);
    Bg71->Hint=str;
    Bg72->Brush->Color=TColor(RGB15TO24(bgPal[30]));
    GETRGBVALUES(bgPal[30]);
    Bg72->Hint=str;
    Bg73->Brush->Color=TColor(RGB15TO24(bgPal[31]));
    GETRGBVALUES(bgPal[31]);
    Bg73->Hint=str;
    Obj00->Brush->Color=TColor(RGB15TO24(objPal[0]));
    GETRGBVALUES(objPal[0]);
    Obj00->Hint=str;
    Obj01->Brush->Color=TColor(RGB15TO24(objPal[1]));
    GETRGBVALUES(objPal[1]);
    Obj01->Hint=str;
    Obj02->Brush->Color=TColor(RGB15TO24(objPal[2]));
    GETRGBVALUES(objPal[2]);
    Obj02->Hint=str;
    Obj03->Brush->Color=TColor(RGB15TO24(objPal[3]));
    GETRGBVALUES(objPal[3]);
    Obj03->Hint=str;
    Obj10->Brush->Color=TColor(RGB15TO24(objPal[4]));
    GETRGBVALUES(objPal[4]);
    Obj10->Hint=str;
    Obj11->Brush->Color=TColor(RGB15TO24(objPal[5]));
    GETRGBVALUES(objPal[5]);
    Obj11->Hint=str;
    Obj12->Brush->Color=TColor(RGB15TO24(objPal[6]));
    GETRGBVALUES(objPal[6]);
    Obj12->Hint=str;
    Obj13->Brush->Color=TColor(RGB15TO24(objPal[7]));
    GETRGBVALUES(objPal[7]);
    Obj13->Hint=str;
    Obj20->Brush->Color=TColor(RGB15TO24(objPal[8]));
    GETRGBVALUES(objPal[8]);
    Obj20->Hint=str;
    Obj21->Brush->Color=TColor(RGB15TO24(objPal[9]));
    GETRGBVALUES(objPal[9]);
    Obj21->Hint=str;
    Obj22->Brush->Color=TColor(RGB15TO24(objPal[10]));
    GETRGBVALUES(objPal[10]);
    Obj22->Hint=str;
    Obj23->Brush->Color=TColor(RGB15TO24(objPal[11]));
    GETRGBVALUES(objPal[11]);
    Obj23->Hint=str;
    Obj30->Brush->Color=TColor(RGB15TO24(objPal[12]));
    GETRGBVALUES(objPal[12]);
    Obj30->Hint=str;
    Obj31->Brush->Color=TColor(RGB15TO24(objPal[13]));
    GETRGBVALUES(objPal[13]);
    Obj31->Hint=str;
    Obj32->Brush->Color=TColor(RGB15TO24(objPal[14]));
    GETRGBVALUES(objPal[14]);
    Obj32->Hint=str;
    Obj33->Brush->Color=TColor(RGB15TO24(objPal[15]));
    GETRGBVALUES(objPal[15]);
    Obj33->Hint=str;
    Obj40->Brush->Color=TColor(RGB15TO24(objPal[16]));
    GETRGBVALUES(objPal[16]);
    Obj40->Hint=str;
    Obj41->Brush->Color=TColor(RGB15TO24(objPal[17]));
    GETRGBVALUES(objPal[17]);
    Obj41->Hint=str;
    Obj42->Brush->Color=TColor(RGB15TO24(objPal[18]));
    GETRGBVALUES(objPal[18]);
    Obj42->Hint=str;
    Obj43->Brush->Color=TColor(RGB15TO24(objPal[19]));
    GETRGBVALUES(objPal[19]);
    Obj43->Hint=str;
    Obj50->Brush->Color=TColor(RGB15TO24(objPal[20]));
    GETRGBVALUES(objPal[20]);
    Obj50->Hint=str;
    Obj51->Brush->Color=TColor(RGB15TO24(objPal[21]));
    GETRGBVALUES(objPal[21]);
    Obj51->Hint=str;
    Obj52->Brush->Color=TColor(RGB15TO24(objPal[22]));
    GETRGBVALUES(objPal[22]);
    Obj52->Hint=str;
    Obj53->Brush->Color=TColor(RGB15TO24(objPal[23]));
    GETRGBVALUES(objPal[23]);
    Obj53->Hint=str;
    Obj60->Brush->Color=TColor(RGB15TO24(objPal[24]));
    GETRGBVALUES(objPal[24]);
    Obj60->Hint=str;
    Obj61->Brush->Color=TColor(RGB15TO24(objPal[25]));
    GETRGBVALUES(objPal[25]);
    Obj61->Hint=str;
    Obj62->Brush->Color=TColor(RGB15TO24(objPal[26]));
    GETRGBVALUES(objPal[26]);
    Obj62->Hint=str;
    Obj63->Brush->Color=TColor(RGB15TO24(objPal[27]));
    GETRGBVALUES(objPal[27]);
    Obj63->Hint=str;
    Obj70->Brush->Color=TColor(RGB15TO24(objPal[28]));
    GETRGBVALUES(objPal[28]);
    Obj70->Hint=str;
    Obj71->Brush->Color=TColor(RGB15TO24(objPal[29]));
    GETRGBVALUES(objPal[29]);
    Obj71->Hint=str;
    Obj72->Brush->Color=TColor(RGB15TO24(objPal[30]));
    GETRGBVALUES(objPal[30]);
    Obj72->Hint=str;
    Obj73->Brush->Color=TColor(RGB15TO24(objPal[31]));
    GETRGBVALUES(objPal[31]);
    Obj73->Hint=str;
}


void __fastcall TPalView::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    Hide();
    CanClose=false;
}
//---------------------------------------------------------------------------