mirror of
https://github.com/n5ac/mmsstv.git
synced 2026-01-22 00:00:27 +01:00
3438 lines
91 KiB
C++
3438 lines
91 KiB
C++
//---------------------------------------------------------------------
|
||
#include <vcl.h>
|
||
#pragma hdrstop
|
||
|
||
#include "res.h"
|
||
#include "TextDlg.h"
|
||
//---------------------------------------------------------------------
|
||
#pragma resource "*.dfm"
|
||
//TTextDlgBox *TextDlgBox;
|
||
//---------------------------------------------------------------------
|
||
__fastcall TTextDlgBox::TTextDlgBox(TComponent* AOwner)
|
||
: TForm(AOwner)
|
||
{
|
||
MultProc();
|
||
m_DisEvent = 1;
|
||
m_pBitmap = NULL;
|
||
m_pMaskBmp = NULL;
|
||
m_Change = 0;
|
||
m_DropProfile = 0;
|
||
m_FText = "";
|
||
m_MemoDown = 0;
|
||
m_MouseHold = 0;
|
||
if( sys.m_MsgEng ){
|
||
Font->Name = "Arial";
|
||
Font->Charset = ANSI_CHARSET;
|
||
|
||
Caption = VER" "TTL;
|
||
TabChar->Caption = "Set text and colors";
|
||
TabMask->Caption = "Bitmap Mask";
|
||
TabPer->Caption = "Deformations";
|
||
CancelBtn->Caption = "Cancel";
|
||
CancelBtn2->Caption = "Cancel";
|
||
CancelBtn3->Caption = "Cancel";
|
||
FontBtn->Caption = "Font";
|
||
SBM->Caption = "Mac";
|
||
SBL->Caption = "Code";
|
||
GBG->Caption = "Gradation";
|
||
GBS->Caption = "Shadow";
|
||
GBA->Caption = "Misc";
|
||
CBZero->Caption = "Slash zero";
|
||
SBLD->Caption = "Del";
|
||
SBLW->Caption = "Add";
|
||
GBY->Caption = "Style profiles";
|
||
L1->Caption = "Align";
|
||
L2->Caption = "Style name";
|
||
L33->Caption = "V.space";
|
||
L34->Caption = "Rot.";
|
||
SBYD->Caption = "Del";
|
||
SBYW->Caption = "Add";
|
||
CBY->Text = "Untitled";
|
||
|
||
SBM->Hint = "Insert macro-keyword";
|
||
SBL->Hint = "Character code list";
|
||
SBC->Hint = "Choose color's component";
|
||
SBLD->Hint = "Delete the text in the list";
|
||
SBLW->Hint = "Add current text into the list";
|
||
SBYD->Hint = "Delete the style in the profiles";
|
||
SBYW->Hint = "Add current style into the profiles";
|
||
SB3DD->Hint = "Make the shadow shorter";
|
||
SB3DI->Hint = "Make the shadow longer";
|
||
SBA1->Hint = "Left";
|
||
SBA2->Hint = "Center";
|
||
SBA3->Hint = "Right";
|
||
SBA4->Hint = "Auto";
|
||
// FontBtn->Hint = "Choose font";
|
||
SBFD->Hint = "Make the font smaller";
|
||
SBFI->Hint = "Make the font bigger";
|
||
SBB->Hint = "Bold";
|
||
SBI->Hint = "Italic";
|
||
SBMSG->Hint = "Show messages list";
|
||
Msg->Hint = "Copy the message to the text box with double click";
|
||
SBGRev->Hint = "Reverses color's order";
|
||
SBGRot->Hint = "Rotates color's order";
|
||
SBGA->Hint = "Default combination";
|
||
SBGRand->Hint = "Random combination";
|
||
DefBtn->Caption = "Default";
|
||
L51->Caption = "Rot.X";
|
||
L52->Caption = "Rot.Y";
|
||
L53->Caption = "Rot.Z";
|
||
L54->Caption = "Move.Z";
|
||
L55->Caption = "Move.Y";
|
||
L56->Caption = "Move.X";
|
||
L57->Caption = "ViewP.";
|
||
L58->Caption = "Scale.X";
|
||
L59->Caption = "Scale.Y";
|
||
L60->Caption = "Rot";
|
||
L61->Caption = "Deformation rate";
|
||
DefBtn->Hint = "Return to the default";
|
||
SBR->Hint = "Return to the default";
|
||
|
||
L80->Caption = "Bitmap mask";
|
||
CBBMask->Caption = "Enable bitmap mask";
|
||
GB1->Caption = "Mask";
|
||
GB2->Caption = "Built-in mask";
|
||
GB3->Caption = "Edit mask";
|
||
SBMLoad->Hint = "Load mask from file";
|
||
SBMPaste->Hint = "Paste mask from the clipboard";
|
||
SBMCopy->Hint = "Copy mask to the clipboard";
|
||
SBMRot->Hint = "Rotates right";
|
||
SBMMir->Hint = "Right and left turning over";
|
||
SBAdjCol->Hint = "Adjusts mask image";
|
||
SBClip->Hint = "Clipper";
|
||
SBInvCol->Hint = "Inverts mask color";
|
||
SBRotCol->Hint = "Rotates mask color";
|
||
SBPtn->Hint = "Make random pattern";
|
||
SBMEdit->Hint = "Edit mask";
|
||
|
||
GB4->Caption = "User definition mask";
|
||
L90->Caption = "Drag&&Drop for registration";
|
||
SBMList->Hint = "User definition mask";
|
||
|
||
GB5->Caption = "Filter";
|
||
}
|
||
else {
|
||
Caption = VER" "TTLJ;
|
||
CBY->Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||
}
|
||
SBFD->Glyph->Assign(SB3DD->Glyph);
|
||
SBFI->Glyph->Assign(SB3DI->Glyph);
|
||
MultProc();
|
||
if( sys.m_pTextList == NULL ){
|
||
sys.m_pTextList = new TStringList;
|
||
LoadStringsFromIniFile(sys.m_pTextList, "Strings", ININAME, TRUE);
|
||
MultProc();
|
||
if(!sys.m_pTextList->Count){
|
||
sys.m_pTextList->Add("%c\\r\\nde %m");
|
||
sys.m_pTextList->Add("CQSSTV");
|
||
sys.m_pTextList->Add("Best 73");
|
||
}
|
||
}
|
||
ASSERT(sys.m_pTextList);
|
||
CBList->Items->Assign(sys.m_pTextList);
|
||
if( sys.m_pStyleList == NULL ){
|
||
sys.m_pStyleList = new TStringList;
|
||
LoadStringsFromIniFile(sys.m_pStyleList, "Styles", ININAME, FALSE);
|
||
MultProc();
|
||
}
|
||
CBY->Items->Assign(sys.m_pStyleList);
|
||
CBY->Sorted = TRUE;
|
||
int i;
|
||
if( sys.m_pFontList == NULL ){
|
||
sys.m_pFontList = new TStringList;
|
||
char fname[512];
|
||
sprintf(fname, "%s%s", sys.m_BgnDir, ININAME);
|
||
TMemIniFile *pIniFile = new TMemIniFile(fname);
|
||
for( i = 0; i < 5; i++ ){
|
||
char bf[32];
|
||
sprintf(bf, "Font.%u", i);
|
||
AnsiString as = pIniFile->ReadString(bf, "FontName", "");
|
||
if( !as.IsEmpty() ){
|
||
BYTE charset = (BYTE)pIniFile->ReadInteger(bf, "FontSet", 0);
|
||
DWORD style = pIniFile->ReadInteger(bf, "FontStyle", 0);
|
||
AddStyle(as, charset, style);
|
||
}
|
||
sys.m_pFontList->Add(as);
|
||
}
|
||
delete pIniFile;
|
||
}
|
||
for( i = 0; i < 5; i++ ) SetSBF(i);
|
||
ShowHint = sys.m_WinNT;
|
||
MultProc();
|
||
m_XC = -1;
|
||
|
||
for( i = 0; i < AN(m_DirTB); i++ ){
|
||
m_DirTB[i] = 1;
|
||
}
|
||
HBITMAP hb = ::LoadBitmap(sys.m_hInstance, MAKEINTRESOURCE(ID_BUILTIN));
|
||
m_pBuiltInBmp = new Graphics::TBitmap;
|
||
m_pBuiltInBmp->Handle = hb;
|
||
|
||
m_pMaskBak = NULL;
|
||
m_pCustomBmp = NULL;
|
||
m_pMListBmp = NULL;
|
||
m_pMLSrcBmp = NULL;
|
||
m_MLIndex = -1;
|
||
|
||
PC1->Color = sys.m_MaskC1.c;
|
||
PC2->Color = sys.m_MaskC2.c;
|
||
m_MaskMouseCapture = FALSE;
|
||
m_MaskXW = m_MaskYW = 32;
|
||
m_MaskX = m_MaskY = 0;
|
||
m_pCodeView = NULL;
|
||
m_hClipNext = ::SetClipboardViewer(Handle);
|
||
#if UseDraft
|
||
m_Draft = 0;
|
||
#endif
|
||
m_ExecPB = 0;
|
||
srand(::GetTickCount());
|
||
|
||
#if 0 // <20>g<EFBFBD>ݍ<EFBFBD><DD8D>݃}<7D>X<EFBFBD>N<EFBFBD>r<EFBFBD>b<EFBFBD>g<EFBFBD>}<7D>b<EFBFBD>v<EFBFBD>̍쐬
|
||
#define CUSTOMMAX 16
|
||
Graphics::TBitmap *pBmp = CreateBitmap(32*CUSTOMMAX, 32);
|
||
Graphics::TBitmap *pSrc;
|
||
char name[256];
|
||
for( i = 0; i < CUSTOMMAX; i++ ){
|
||
wsprintf(name, "%sres\\P%u.bmp", sys.m_BgnDir, i+1);
|
||
FILE *fp = fopen(name, "rb");
|
||
if( fp != NULL ){
|
||
fclose(fp);
|
||
pSrc = new Graphics::TBitmap;
|
||
pSrc->LoadFromFile(name);
|
||
pBmp->Canvas->Draw(i*32, 0, pSrc);
|
||
delete pSrc;
|
||
}
|
||
}
|
||
wsprintf(name, "%sres\\P.bmp", sys.m_BgnDir);
|
||
pBmp->SaveToFile(name);
|
||
delete pBmp;
|
||
#endif
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::FormDestroy(TObject *Sender)
|
||
{
|
||
Timer->Enabled = FALSE;
|
||
::ChangeClipboardChain(Handle, m_hClipNext);
|
||
if( m_pBitmap != NULL ) delete m_pBitmap;
|
||
if( m_pMaskBmp != NULL ) delete m_pMaskBmp;
|
||
if( m_pMLSrcBmp != NULL ) delete m_pMLSrcBmp;
|
||
if( m_pCustomBmp != NULL ) delete m_pCustomBmp;
|
||
DeleteMaskSrc();
|
||
if( m_pBuiltInBmp != NULL ) delete m_pBuiltInBmp;
|
||
if( m_pMaskBak ) delete m_pMaskBak;
|
||
MultProc();
|
||
if( m_pMListBmp != NULL ){
|
||
if( m_pMListBmp->Modified ){
|
||
char name[256];
|
||
wsprintf(name, "%s"USERMASK, sys.m_BgnDir);
|
||
try {
|
||
m_pMListBmp->SaveToFile(name);
|
||
}
|
||
catch(...){
|
||
}
|
||
}
|
||
delete m_pMListBmp;
|
||
}
|
||
if( m_pCodeView ) delete m_pCodeView;
|
||
|
||
ASSERT(sys.m_pTextList);
|
||
sys.m_pTextList->Assign(CBList->Items);
|
||
sys.m_MaskC1.c = PC1->Color;
|
||
sys.m_MaskC2.c = PC2->Color;
|
||
if( m_ExecPB ) QuitPB(FALSE);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::TopMost(void)
|
||
{
|
||
#if UseHWND
|
||
::SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);
|
||
#endif
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::NoTopMost(void)
|
||
{
|
||
#if UseHWND
|
||
::SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);
|
||
#endif
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateUI(void)
|
||
{
|
||
m_DisEvent++;
|
||
int f;
|
||
if( CBBMask->Checked ){
|
||
SBG1->Visible = FALSE;
|
||
SBG2->Visible = FALSE;
|
||
SBG3->Visible = FALSE;
|
||
SBG4->Visible = FALSE;
|
||
SBG5->Visible = FALSE;
|
||
PG1->Visible = FALSE;
|
||
PG2->Visible = FALSE;
|
||
PG3->Visible = FALSE;
|
||
PG4->Visible = FALSE;
|
||
PG5->Visible = FALSE;
|
||
PG6->Visible = FALSE;
|
||
SBC->Visible = FALSE;
|
||
SBGA->Visible = FALSE;
|
||
SBGRand->Visible = FALSE;
|
||
SBGRot->Visible = FALSE;
|
||
SBGRev->Visible = FALSE;
|
||
L80->Visible = TRUE;
|
||
}
|
||
else {
|
||
SBG1->Visible = TRUE;
|
||
SBG2->Visible = TRUE;
|
||
SBG3->Visible = TRUE;
|
||
SBG4->Visible = TRUE;
|
||
SBG5->Visible = TRUE;
|
||
PG1->Visible = TRUE;
|
||
L80->Visible = FALSE;
|
||
int f = SBG1->Down ? FALSE : TRUE;
|
||
int f2 = SBG5->Down;
|
||
PG2->Visible = f;
|
||
PG3->Visible = f;
|
||
PG4->Visible = f;
|
||
SBC->Visible = f && !f2 && sys.m_fColorComp;
|
||
PG5->Visible = f2;
|
||
PG6->Visible = f2;
|
||
SBGA->Visible = f2;
|
||
SBGRand->Visible = f2;
|
||
SBGRot->Visible = f;
|
||
SBGRev->Visible = f;
|
||
}
|
||
f = !SBS1->Down;
|
||
if( !f ) CB3D->Checked = FALSE;
|
||
CB3D->Enabled = f;
|
||
PB1->Visible = f && (!SBS2->Down || !CB3D->Checked);
|
||
PB2->Visible = f && (SBS4->Down || CB3D->Checked);
|
||
PB3->Visible = f && CB3D->Checked;
|
||
UDL->Enabled = f && (SBS3->Down || !CB3D->Checked);
|
||
SBLW->Enabled = (!m_FText.IsEmpty() && CBList->Items->IndexOf(m_FText) < 0) ? TRUE : FALSE;
|
||
SBLD->Enabled = CBList->ItemIndex >= 0 ? TRUE : FALSE;
|
||
SBYW->Enabled = !CBY->Text.IsEmpty();
|
||
SBYD->Enabled = !CBY->Text.IsEmpty() && (sys.m_pStyleList->IndexOf(CBY->Text) >= 0);
|
||
UDX->Enabled = CB3D->Checked;
|
||
UDY->Enabled = CB3D->Checked;
|
||
SB3DI->Enabled = CB3D->Checked;
|
||
SB3DD->Enabled = CB3D->Checked;
|
||
if( ShowHint ){
|
||
char bf[32];
|
||
sprintf(bf, "W = %d", UDL->Position);
|
||
UDL->Hint = bf;
|
||
sprintf(bf, "3D(Y) = %d", UDY->Position);
|
||
UDY->Hint = bf;
|
||
sprintf(bf, "3D(X) = %d", UDX->Position);
|
||
UDX->Hint = bf;
|
||
}
|
||
Msg->Visible = SBMSG->Down;
|
||
CBMSize->Enabled = CBBMask->Checked;
|
||
SBAdjCol->Visible = sys.m_fAdjCol != NULL;
|
||
SBClip->Visible = sys.m_fClip != NULL;
|
||
f = m_pMaskBmp != NULL;
|
||
SBMCopy->Enabled = f;
|
||
SBMRot->Enabled = f;
|
||
SBMMir->Enabled = f;
|
||
SBInvCol->Enabled = f;
|
||
SBRotCol->Enabled = f;
|
||
SBAdjCol->Enabled = f;
|
||
SBClip->Enabled = f;
|
||
|
||
f = SBMList->Down;
|
||
GB1->Visible = !f;
|
||
GB4->Visible = f;
|
||
|
||
f = !SB->Down;
|
||
TBSC->Enabled = f;
|
||
SBR->Enabled = f;
|
||
|
||
TBF->Enabled = !SBFN->Down;
|
||
m_DisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateMemoFont(BYTE charset)
|
||
{
|
||
switch(charset){
|
||
case SHIFTJIS_CHARSET:
|
||
case HANGEUL_CHARSET:
|
||
case JOHAB_CHARSET:
|
||
case CHINESEBIG5_CHARSET: //
|
||
case 134: // <20>ȗ<EFBFBD>
|
||
break;
|
||
default:
|
||
charset = Font->Charset;
|
||
break;
|
||
}
|
||
m_DisEvent++;
|
||
if( Memo->Font->Charset != charset ){
|
||
Memo->Font->Charset = charset;
|
||
}
|
||
m_DisEvent--;
|
||
UpdateFontBtnHint();
|
||
}
|
||
//---------------------------------------------------------------------
|
||
int __fastcall TTextDlgBox::Execute(CItem *pItem)
|
||
{
|
||
MultProc();
|
||
m_Item.Copy(pItem);
|
||
|
||
if( (sys.m_DefaultPage >= 0) && (sys.m_DefaultPage < Page->PageCount) ){
|
||
Page->ActivePage = Page->Pages[sys.m_DefaultPage];
|
||
}
|
||
|
||
UpdateDialog(&m_Item);
|
||
UpdateBitmap();
|
||
UpdateSBSrc();
|
||
m_DisEvent = 0;
|
||
SBMList->Down = sys.m_SBMListState;
|
||
if( SBMList->Down ) SBMListClick(NULL);
|
||
MultProc();
|
||
int r = ShowModal();
|
||
sys.m_DefaultPage = GetActiveIndex(Page);
|
||
sys.m_SBMListState = SBMList->Down;
|
||
if( Msg->Modified ) sys.m_Msg = Msg->Text;
|
||
if( r == IDOK ){
|
||
MultProc();
|
||
#if UseDraft
|
||
if( m_Draft ){
|
||
m_Draft = 0;
|
||
UpdateItem(&m_Item);
|
||
}
|
||
#endif
|
||
pItem->Copy(&m_Item);
|
||
pItem->m_OrgXW = -1;
|
||
MultProc();
|
||
return TRUE;
|
||
}
|
||
else {
|
||
MultProc();
|
||
return FALSE;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateFText(void)
|
||
{
|
||
AnsiString as;
|
||
if( Memo->Text.IsEmpty() ){
|
||
m_FText = "";
|
||
}
|
||
else {
|
||
::CrLf2Yen(as, Memo->Text);
|
||
LPSTR p = as.c_str();
|
||
if( *p ){
|
||
*(p+strlen(p)-1) = 0;
|
||
m_FText = p+1;
|
||
}
|
||
}
|
||
m_DisEvent++;
|
||
CBList->ItemIndex = CBList->Items->IndexOf(m_FText);
|
||
m_DisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateItem(CItem *pItem)
|
||
{
|
||
UpdateUI();
|
||
if( SBG1->Down ){
|
||
pItem->m_Grade = 0;
|
||
}
|
||
else if( SBG2->Down ){
|
||
pItem->m_Grade = 1;
|
||
}
|
||
else if( SBG3->Down ){
|
||
pItem->m_Grade = 2;
|
||
}
|
||
else if( SBG4->Down ){
|
||
pItem->m_Grade = 3;
|
||
}
|
||
else {
|
||
pItem->m_Grade = 4;
|
||
}
|
||
if( SBS1->Down ){
|
||
pItem->m_Shadow = 0;
|
||
}
|
||
else if( SBS2->Down ){
|
||
pItem->m_Shadow = 1;
|
||
}
|
||
else if( SBS3->Down ){
|
||
pItem->m_Shadow = 2;
|
||
}
|
||
else {
|
||
pItem->m_Shadow = 3;
|
||
}
|
||
if( SBA1->Down ){
|
||
pItem->m_Align = 0;
|
||
}
|
||
else if( SBA2->Down ){
|
||
pItem->m_Align = 1;
|
||
}
|
||
else if( SBA3->Down ){
|
||
pItem->m_Align = 2;
|
||
}
|
||
else {
|
||
pItem->m_Align = 3;
|
||
}
|
||
pItem->m_ColB[0].c = PB1->Color;
|
||
pItem->m_ColB[1].c = PB2->Color;
|
||
pItem->m_ColB[2].c = PB3->Color;
|
||
if( pItem->m_Grade == 4 ){
|
||
pItem->m_ColF[0].c = PG1->Color;
|
||
pItem->m_ColF[1].c = PG2->Color;
|
||
pItem->m_ColF[2].c = PG3->Color;
|
||
pItem->m_ColF[3].c = PG4->Color;
|
||
pItem->m_ColF[4].c = PG5->Color;
|
||
pItem->m_ColF[5].c = PG6->Color;
|
||
}
|
||
else {
|
||
pItem->m_ColG[0].c = PG1->Color;
|
||
pItem->m_ColG[1].c = PG2->Color;
|
||
pItem->m_ColG[2].c = PG3->Color;
|
||
pItem->m_ColG[3].c = PG4->Color;
|
||
}
|
||
pItem->m_Line = UDL->Position;
|
||
pItem->m_Zero = CBZero->Checked;
|
||
pItem->m_Text = Memo->Text.c_str();
|
||
pItem->m_3d = (CB3D->Enabled && CB3D->Checked) ? 0x00010000 : 0;
|
||
pItem->m_3d |= ((UDY->Position << 8)&0x0000ff00);
|
||
pItem->m_3d |= (UDX->Position & 0x000000ff);
|
||
pItem->m_OYW = UDOYW->Position & 0x0000ffff;
|
||
pItem->m_OYWS = 0;
|
||
pItem->m_Rot = UDRot->Position;
|
||
|
||
LPSPERSPECT psp = &pItem->m_sperspect;
|
||
psp->ax = double(TBAX->Position)/20.0;
|
||
psp->ay = double(TBAY->Position)/20.0;
|
||
psp->px = double(TBPX->Position)/20.0;
|
||
psp->py = double(TBPY->Position)/20.0;
|
||
psp->pz = double(TBPZ->Position)/20.0;
|
||
psp->rx = TBRX->Position;
|
||
psp->ry = TBRY->Position;
|
||
psp->rz = TBRZ->Position;
|
||
psp->s = double(TBS->Position)/10.0;
|
||
psp->r = TBR->Position;
|
||
UpdateWaveBtn(1);
|
||
psp->flag = m_Wave;
|
||
pItem->m_SC = TBSC->Position;
|
||
|
||
pItem->m_Filter = 0;
|
||
if( SBFA->Down ){
|
||
pItem->m_Filter = 0x10000;
|
||
}
|
||
else if( SBFB->Down ){
|
||
pItem->m_Filter = 0x20000;
|
||
}
|
||
pItem->m_Filter |= TBF->Position;
|
||
|
||
#if UseDraft
|
||
if( m_Draft ){
|
||
psp->s *= 2;
|
||
pItem->m_OYW = (UDOYW->Position/2) & 0x0000ffff;
|
||
}
|
||
pItem->m_pFont->Height = m_Draft ? m_FontHeight / 2 : m_FontHeight;
|
||
#else
|
||
pItem->m_pFont->Height = m_FontHeight;
|
||
#endif
|
||
pItem->UpdateFont();
|
||
|
||
#if 0
|
||
static int count = 0;
|
||
char bf[256];
|
||
wsprintf(bf, "%u - %u", m_Draft, count++ );
|
||
Caption = bf;
|
||
#endif
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateDialog(CItem *pItem)
|
||
{
|
||
m_DisEvent++;
|
||
switch(pItem->m_Grade){
|
||
case 1:
|
||
SBG2->Down = TRUE;
|
||
break;
|
||
case 2:
|
||
SBG3->Down = TRUE;
|
||
break;
|
||
case 3:
|
||
SBG4->Down = TRUE;
|
||
break;
|
||
case 4:
|
||
SBG5->Down = TRUE;
|
||
break;
|
||
default:
|
||
SBG1->Down = TRUE;
|
||
break;
|
||
}
|
||
switch(pItem->m_Shadow){
|
||
case 1:
|
||
SBS2->Down = TRUE;
|
||
break;
|
||
case 2:
|
||
SBS3->Down = TRUE;
|
||
break;
|
||
case 3:
|
||
SBS4->Down = TRUE;
|
||
break;
|
||
default:
|
||
SBS1->Down = TRUE;
|
||
break;
|
||
}
|
||
switch(pItem->m_Align){
|
||
case 1:
|
||
SBA2->Down = TRUE;
|
||
break;
|
||
case 2:
|
||
SBA3->Down = TRUE;
|
||
break;
|
||
case 3:
|
||
SBA4->Down = TRUE;
|
||
break;
|
||
default:
|
||
SBA1->Down = TRUE;
|
||
break;
|
||
}
|
||
PB1->Color = pItem->m_ColB[0].c;
|
||
PB2->Color = pItem->m_ColB[1].c;
|
||
PB3->Color = pItem->m_ColB[2].c;
|
||
if( SBG5->Down ){
|
||
PG1->Color = pItem->m_ColF[0].c;
|
||
PG2->Color = pItem->m_ColF[1].c;
|
||
PG3->Color = pItem->m_ColF[2].c;
|
||
PG4->Color = pItem->m_ColF[3].c;
|
||
PG5->Color = pItem->m_ColF[4].c;
|
||
PG6->Color = pItem->m_ColF[5].c;
|
||
}
|
||
else {
|
||
PG1->Color = pItem->m_ColG[0].c;
|
||
PG2->Color = pItem->m_ColG[1].c;
|
||
PG3->Color = pItem->m_ColG[2].c;
|
||
PG4->Color = pItem->m_ColG[3].c;
|
||
}
|
||
UDL->Position = SHORT(pItem->m_Line);
|
||
CBZero->Checked = pItem->m_Zero;
|
||
CB3D->Checked = pItem->m_3d & 0x00010000;
|
||
int xm = pItem->m_3d & 0x000000ff;
|
||
int ym = (pItem->m_3d >> 8) & 0x000000ff;
|
||
if( xm & 0x0080 ) xm |= 0xffffff80;
|
||
if( ym & 0x0080 ) ym |= 0xffffff80;
|
||
UDY->Position = SHORT(ym);
|
||
UDX->Position = SHORT(xm);
|
||
if( pItem->m_pFont != NULL ){
|
||
m_FontHeight = pItem->m_pFont->Height;
|
||
UpdateMemoFont(pItem->m_pFont->Charset);
|
||
UpdateFontBtnHint();
|
||
}
|
||
Memo->Text = pItem->m_Text.c_str();
|
||
|
||
UDOYW->Position = (SHORT)pItem->GetTrueOYW();
|
||
UDRot->Position = (SHORT)pItem->m_Rot;
|
||
switch(pItem->m_Filter & 0x30000){
|
||
case 0x10000:
|
||
SBFA->Down = TRUE;
|
||
break;
|
||
case 0x20000:
|
||
SBFB->Down = TRUE;
|
||
break;
|
||
default:
|
||
SBFN->Down = TRUE;
|
||
break;
|
||
}
|
||
TBF->Position = pItem->m_Filter & 0x00ff;
|
||
UpdateFText();
|
||
|
||
|
||
LPSPERSPECT psp = &pItem->m_sperspect;
|
||
TBAX->Position = psp->ax * 20.0 + 0.5;
|
||
TBAY->Position = psp->ay * 20.0 + 0.5;
|
||
TBPX->Position = psp->px * 20.0;
|
||
TBPY->Position = psp->py * 20.0;
|
||
TBPZ->Position = psp->pz * 20.0;
|
||
TBRX->Position = psp->rx;
|
||
TBRY->Position = psp->ry;
|
||
TBRZ->Position = psp->rz;
|
||
TBS->Position = psp->s * 10.0 + 0.5;
|
||
TBR->Position = psp->r;
|
||
m_Wave = psp->flag;
|
||
UpdateWaveBtn(0);
|
||
TBSC->Position = (SHORT)pItem->m_SC;
|
||
UpdateHint();
|
||
UpdateTB();
|
||
|
||
CBBMask->Checked = pItem->m_pMaskBmp != NULL;
|
||
if( pItem->m_pMaskBmp ){
|
||
if( m_pMaskBmp ) delete m_pMaskBmp;
|
||
m_MaskXW = pItem->m_pMaskBmp->Width;
|
||
m_MaskYW = pItem->m_pMaskBmp->Height;
|
||
m_MaskX = m_MaskY = 0;
|
||
m_pMaskBmp = CreateBitmap(m_MaskXW, m_MaskYW);
|
||
m_pMaskBmp->Canvas->Draw(0, 0, pItem->m_pMaskBmp);
|
||
UpdateCBMSize();
|
||
UpdateSBSrc();
|
||
}
|
||
m_DisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateHint(void)
|
||
{
|
||
if( sys.m_WinNT ){
|
||
char bf[128];
|
||
wsprintf(bf, "VP: %d", TBS->Position);
|
||
TBS->Hint = bf;
|
||
wsprintf(bf, "SX: %d", TBAX->Position);
|
||
TBAX->Hint = bf;
|
||
wsprintf(bf, "SY: %d", TBAY->Position);
|
||
TBAY->Hint = bf;
|
||
wsprintf(bf, "PX: %d", TBPX->Position);
|
||
TBPX->Hint = bf;
|
||
wsprintf(bf, "PY: %d", TBPY->Position);
|
||
TBPY->Hint = bf;
|
||
wsprintf(bf, "PZ: %d", TBPZ->Position);
|
||
TBPZ->Hint = bf;
|
||
wsprintf(bf, "RX: %d", TBRX->Position);
|
||
TBRX->Hint = bf;
|
||
wsprintf(bf, "RY: %d", TBRY->Position);
|
||
TBRY->Hint = bf;
|
||
wsprintf(bf, "RZ: %d", TBRZ->Position);
|
||
TBRZ->Hint = bf;
|
||
wsprintf(bf, "R: %d", TBR->Position);
|
||
TBR->Hint = bf;
|
||
wsprintf(bf, "%d", TBSC->Position);
|
||
TBSC->Hint = bf;
|
||
wsprintf(bf, "Level:%d", TBF->Position + 1);
|
||
TBF->Hint = bf;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateWaveBtn(int dir)
|
||
{
|
||
TSpeedButton *tbl[]={
|
||
SB, SBZ1, SBZ2, SBZ3, SBZ4, SBZ5, SBZ6, SBZ7,
|
||
SBZ8, SBZ9, SBZ10, SBZ11, SBZ12, SBZ13, SBZ14,
|
||
SBZ15, SBZ16, SBZ17, SBZ18, SBZ19, SBZ20, SBZ21,
|
||
SBZ22, SBZ23, SBZ24, SBZ25, SBZ26, SBZ27, SBZ28,
|
||
SBZ29, SBZ30, SBZ31, SBZ32, SBZ33, SBZ34, SBZ35,
|
||
SBZ36, SBZ37, SBZ38,
|
||
NULL,
|
||
};
|
||
if( dir ){
|
||
for( int i = 0; tbl[i] != NULL; i++ ){
|
||
if( tbl[i]->Down ){
|
||
m_Wave = i;
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
else {
|
||
if( m_Wave >= (AN(tbl)-1) ) m_Wave = 0;
|
||
tbl[m_Wave]->Down = TRUE;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateBitmap(void)
|
||
{
|
||
MultProc();
|
||
m_Change = 0;
|
||
UpdateItem(&m_Item);
|
||
char bf[1024];
|
||
sys.m_fConvMac(bf, m_Item.GetText(), sizeof(bf)-1);
|
||
MultProc();
|
||
if( m_pBitmap == NULL ){
|
||
int xw = m_Item.m_OrgXW;
|
||
int yw = m_Item.m_OrgYW;
|
||
if( (xw < 0)||(yw < 0) ){
|
||
xw = 160;
|
||
yw = 128;
|
||
}
|
||
m_pBitmap = CreateBitmap(xw, yw);
|
||
}
|
||
FillBitmap(m_pBitmap, m_Item.m_Back);
|
||
MultProc();
|
||
#if MeasureAccuracy
|
||
LARGE_INTEGER liFreq;
|
||
|
||
QueryPerformanceFrequency(&liFreq);
|
||
m_pBitmap = m_Item.Draw(m_pBitmap, bf);
|
||
int t1 = int(m_Item.m_dlDiff1 * 100000 / liFreq.QuadPart);
|
||
int t2 = int(m_Item.m_dlDiff2 * 100000 / liFreq.QuadPart);
|
||
int t3 = int(m_Item.m_dlDiff3 * 100000 / liFreq.QuadPart);
|
||
int t4 = t1 + t2 + t3;
|
||
int t1p = int(m_Item.m_dlDiffPer1 * 100000 / liFreq.QuadPart);
|
||
int t2p = int(m_Item.m_dlDiffPer2 * 100000 / liFreq.QuadPart);
|
||
int xw = m_Item.Get1stXW();
|
||
int yw = m_Item.Get1stYW();
|
||
sprintf(bf, "%ux%u, %u.%02u + %u.%02u + %u.%02u = %u.%02u (%u.%02u + %u.%02u)",
|
||
xw, yw,
|
||
t1 / 100, t1 % 100,
|
||
t2 / 100, t2 % 100,
|
||
t3 / 100, t3 % 100,
|
||
t4 / 100, t4 % 100,
|
||
t1p / 100, t1p % 100,
|
||
t2p / 100, t2p % 100
|
||
);
|
||
Caption = bf;
|
||
#else
|
||
m_pBitmap = m_Item.Draw(m_pBitmap, bf);
|
||
#endif
|
||
#if 1
|
||
PBoxPaint(NULL);
|
||
#else
|
||
if( Page->ActivePage == TabChar ){
|
||
PBox->Invalidate();
|
||
}
|
||
else {
|
||
PBoxPer->Invalidate();
|
||
}
|
||
#endif
|
||
UpdateHint();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::FillPBox(TPaintBox *pBox)
|
||
{
|
||
TRect rc;
|
||
rc.Left = 0;
|
||
rc.Top = 0;
|
||
rc.Right = pBox->Width;
|
||
rc.Bottom = pBox->Height;
|
||
pBox->Canvas->Brush->Color = clBtnFace;
|
||
pBox->Canvas->FillRect(rc);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxPaint(TObject *Sender)
|
||
{
|
||
if( !IsWindowVisible(Handle) ) return;
|
||
if( m_pBitmap == NULL ) return;
|
||
|
||
Graphics::TBitmap *pBitmap = m_pBitmap;
|
||
if( sys.m_BitPixel == 16 ){
|
||
pBitmap = new Graphics::TBitmap;
|
||
pBitmap->Width = m_pBitmap->Width;
|
||
pBitmap->Height = m_pBitmap->Height;
|
||
pBitmap->Canvas->Draw(0, 0, m_pBitmap);
|
||
}
|
||
pBitmap->Transparent = TRUE;
|
||
pBitmap->TransparentMode = tmFixed;
|
||
pBitmap->TransparentColor = pBitmap->Canvas->Pixels[0][0];
|
||
if( Page->ActivePage == TabChar ){
|
||
FillPBox(PBox);
|
||
PBox->Canvas->Draw(0, 0, pBitmap);
|
||
}
|
||
else if( Page->ActivePage == TabMask ){
|
||
FillPBox(PBoxMask);
|
||
PBoxMask->Canvas->Draw(0, 0, pBitmap);
|
||
}
|
||
else {
|
||
FillPBox(PBoxPer);
|
||
PBoxPer->Canvas->Draw(0, 0, pBitmap);
|
||
}
|
||
pBitmap->Transparent = FALSE;
|
||
if( pBitmap != m_pBitmap ) delete pBitmap;
|
||
if( m_MouseHold ){
|
||
PBox->Canvas->Pen->Color = clBlue;
|
||
PBox->Canvas->MoveTo(0, m_MouseYC);
|
||
PBox->Canvas->LineTo(PBox->Width, m_MouseYC);
|
||
PBox->Canvas->MoveTo(m_MouseXC, 0);
|
||
PBox->Canvas->LineTo(m_MouseXC, PBox->Height);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::MemoChange(TObject *Sender)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
|
||
m_Change = 2;
|
||
Timer->Enabled = TRUE;
|
||
UpdateFText();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::TimerTimer(TObject *Sender)
|
||
{
|
||
if( m_Change ){
|
||
m_Change--;
|
||
if( !m_Change ){
|
||
Timer->Enabled = m_ExecPB ? TRUE : FALSE;
|
||
#if UseDraft
|
||
m_Draft = 0;
|
||
#endif
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
#if UseDraft
|
||
if( m_Draft ){
|
||
Timer->Enabled = FALSE;
|
||
m_Draft = 0;
|
||
UpdateBitmap();
|
||
}
|
||
#endif
|
||
|
||
if( m_ExecPB ){
|
||
if( !m_ExecPBCount || (m_ExecPBCount < 0) ){
|
||
if( !m_ExecPBCount ) m_ExecPBCount = 4; // 2[s] Interval
|
||
CheckPBFinished();
|
||
}
|
||
if( m_ExecPBCount > 0 ){
|
||
m_ExecPBCount--;
|
||
}
|
||
else {
|
||
m_ExecPBCount++;
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBGClick(TObject *Sender)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
|
||
UpdateBitmap();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PB1Click(TObject *Sender)
|
||
{
|
||
TPanel *pPanel = (TPanel *)Sender;
|
||
InitCustomColor(ColorDialog);
|
||
AddCustomColor(ColorDialog, PG1->Color);
|
||
AddCustomColor(ColorDialog, PG2->Color);
|
||
AddCustomColor(ColorDialog, PG3->Color);
|
||
AddCustomColor(ColorDialog, PG4->Color);
|
||
AddCustomColor(ColorDialog, PB1->Color);
|
||
AddCustomColor(ColorDialog, PB2->Color);
|
||
AddCustomColor(ColorDialog, m_Item.m_Back.c);
|
||
if( SBG5->Down ){
|
||
AddCustomColor(ColorDialog, PG5->Color);
|
||
AddCustomColor(ColorDialog, PG6->Color);
|
||
}
|
||
|
||
ColorDialog->Color = pPanel->Color;
|
||
NoTopMost();
|
||
int r = ColorDialog->Execute();
|
||
TopMost();
|
||
if( r == TRUE ){
|
||
pPanel->Color = ColorDialog->Color;
|
||
if( (pPanel == PC1) || (pPanel == PC2) ){
|
||
UpdateCustom(); PBoxCS->Invalidate();
|
||
}
|
||
else {
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::FormActivate(TObject *Sender)
|
||
{
|
||
TopMost();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::FormDeactivate(TObject *Sender)
|
||
{
|
||
NoTopMost();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::FontBtnClick(TObject *Sender)
|
||
{
|
||
FontDialog->Font->Assign(m_Item.m_pFont);
|
||
int hOrg = m_FontHeight;
|
||
int h = hOrg / 4;
|
||
FontDialog->Font->Height = h;
|
||
FontDialog->Font->Color = PG1->Color;
|
||
NoTopMost();
|
||
int r = FontDialog->Execute();
|
||
TopMost();
|
||
if( r == TRUE ){
|
||
m_Item.m_pFont->Assign(FontDialog->Font);
|
||
if( h != m_Item.m_pFont->Height ){
|
||
hOrg = m_Item.m_pFont->Height * 4;
|
||
}
|
||
m_Item.m_pFont->Height = hOrg;
|
||
m_FontHeight = hOrg;
|
||
PG1->Color = FontDialog->Font->Color;
|
||
m_Item.UpdateFont();
|
||
if( m_Item.m_pFont != NULL ){
|
||
UpdateMemoFont(m_Item.m_pFont->Charset);
|
||
}
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBMClick(TObject *Sender)
|
||
{
|
||
if( sys.m_fGetMacKey ){
|
||
char bf[256];
|
||
NoTopMost();
|
||
int r = sys.m_fGetMacKey(bf, sizeof(bf));
|
||
TopMost();
|
||
if( r ){
|
||
HWND hWnd;
|
||
if( SBMSG->Down ){
|
||
Msg->SetFocus();
|
||
hWnd = Msg->Handle;
|
||
}
|
||
else {
|
||
Memo->SetFocus();
|
||
hWnd = Memo->Handle;
|
||
}
|
||
for( LPCSTR p = bf; *p; p++ ){
|
||
::PostMessage(hWnd, WM_CHAR, *p, 0);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBCClick(TObject *Sender)
|
||
{
|
||
if( sys.m_fColorComp ){
|
||
UCOL col[4];
|
||
col[0].c = PG1->Color;
|
||
col[1].c = PG2->Color;
|
||
col[2].c = PG3->Color;
|
||
col[3].c = PG4->Color;
|
||
NoTopMost();
|
||
int r = sys.m_fColorComp(&col[0].d);
|
||
TopMost();
|
||
if( r ){
|
||
PG1->Color = col[0].c;
|
||
PG2->Color = col[1].c;
|
||
PG3->Color = col[2].c;
|
||
PG4->Color = col[3].c;
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBLWClick(TObject *Sender)
|
||
{
|
||
m_DisEvent++;
|
||
CBList->Items->Add(m_FText);
|
||
CBList->ItemIndex = CBList->Items->IndexOf(m_FText);
|
||
UpdateUI();
|
||
m_DisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBLDClick(TObject *Sender)
|
||
{
|
||
m_DisEvent++;
|
||
if( CBList->ItemIndex >= 0 ){
|
||
int n = CBList->ItemIndex;
|
||
CBList->ItemIndex = -1;
|
||
CBList->Items->Delete(n);
|
||
UpdateUI();
|
||
}
|
||
m_DisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::CBListChange(TObject *Sender)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
if( CBList->ItemIndex < 0 ) return;
|
||
|
||
m_DisEvent++;
|
||
AnsiString cs;
|
||
AnsiString as = CBList->Items->Strings[CBList->ItemIndex];
|
||
m_FText = as;
|
||
::Yen2CrLf(cs, as);
|
||
Memo->Text = cs;
|
||
UpdateBitmap();
|
||
m_DisEvent--;
|
||
Memo->SetFocus();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBYWClick(TObject *Sender)
|
||
{
|
||
m_DisEvent++;
|
||
int r = sys.m_pStyleList->IndexOf(CBY->Text);
|
||
if( r < 0 ) r = sys.m_pStyleList->Count;
|
||
|
||
CItem *pItem = new CItem;
|
||
pItem->Copy(&m_Item);
|
||
pItem->m_Text = CBY->Text;
|
||
char bf[64];
|
||
sprintf(bf, "Style.%u", r);
|
||
pItem->SaveToInifile(bf, ININAME, TRUE);
|
||
delete pItem;
|
||
|
||
if( r == sys.m_pStyleList->Count ){
|
||
CBY->Items->Add(CBY->Text);
|
||
sys.m_pStyleList->Add(CBY->Text);
|
||
UpdateUI();
|
||
}
|
||
m_DisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBYDClick(TObject *Sender)
|
||
{
|
||
m_DisEvent++;
|
||
int r = sys.m_pStyleList->IndexOf(CBY->Text);
|
||
if( r >= 0 ){
|
||
char bf[64];
|
||
CItem *pItem = new CItem;
|
||
int i;
|
||
for( i = r; i < sys.m_pStyleList->Count - 1; i++ ){
|
||
sprintf(bf, "Style.%u", i+1);
|
||
pItem->LoadFromInifile(bf, ININAME, TRUE);
|
||
sprintf(bf, "Style.%u", i);
|
||
pItem->SaveToInifile(bf, ININAME, TRUE);
|
||
MultProc();
|
||
}
|
||
sprintf(bf, "Style.%u", i);
|
||
pItem->DeleteInifile(bf, ININAME);
|
||
delete pItem;
|
||
sys.m_pStyleList->Delete(r);
|
||
r = CBY->Items->IndexOf(CBY->Text);
|
||
if( r >= 0 ) CBY->Items->Delete(r);
|
||
UpdateUI();
|
||
}
|
||
m_DisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::CBYChange(TObject *Sender)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
if( !m_DropProfile ){
|
||
UpdateUI();
|
||
return;
|
||
}
|
||
m_DropProfile = 0;
|
||
|
||
m_DisEvent++;
|
||
int r = sys.m_pStyleList->IndexOf(CBY->Text);
|
||
if( r >= 0 ){
|
||
AnsiString as = m_Item.m_Text;
|
||
DWORD ex = m_Item.GetEx();
|
||
int pos = m_Item.GetPos();
|
||
CItem *pItem = new CItem;
|
||
char bf[64];
|
||
sprintf(bf, "Style.%u", r);
|
||
pItem->LoadFromInifile(bf, ININAME, TRUE);
|
||
m_Item.Copy(pItem);
|
||
delete pItem;
|
||
m_Item.m_Text = as;
|
||
m_Item.SetEx(ex);
|
||
m_Item.SetPos(pos);
|
||
UpdateDialog(&m_Item);
|
||
UpdateBitmap();
|
||
}
|
||
m_DisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::CBYKeyPress(TObject *Sender, char &Key)
|
||
{
|
||
m_DropProfile = 0;
|
||
UpdateUI();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::CBYDropDown(TObject *Sender)
|
||
{
|
||
m_DropProfile = 1;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
|
||
m_DisEvent++;
|
||
if( Button == mbRight ){
|
||
CB3D->Checked = CB3D->Checked ? FALSE : TRUE;
|
||
}
|
||
else {
|
||
CB3D->Checked = TRUE;
|
||
m_MouseHold = TRUE;
|
||
int xc = m_pBitmap->Width / 2;
|
||
int yc = m_pBitmap->Height / 2;
|
||
m_MouseXC = xc;
|
||
m_MouseYC = yc;
|
||
int x = X - xc;
|
||
int y = Y - yc;
|
||
x = x * 48 / xc;
|
||
y = y * 48 / yc;
|
||
double s = -UDRot->Position * PI / 180.0;
|
||
double cosk = cos(s);
|
||
double sink = sin(s);
|
||
short xx = x * cosk + y * sink;
|
||
short yy = -x * sink + y * cosk;
|
||
UDX->Position = SHORT(xx);
|
||
UDY->Position = SHORT(yy);
|
||
Screen->Cursor = crSizeAll;
|
||
}
|
||
m_DisEvent--;
|
||
UpdateBitmap();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMouseMove(TObject *Sender,
|
||
TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_MouseHold ){
|
||
X = X - m_MouseXC;
|
||
Y = Y - m_MouseYC;
|
||
double s = -UDRot->Position * PI / 180.0;
|
||
double cosk = cos(s);
|
||
double sink = sin(s);
|
||
short x = X * cosk + Y * sink;
|
||
short y = -X * sink + Y * cosk;
|
||
short UX = UDX->Position;
|
||
short UY = UDY->Position;
|
||
m_DisEvent++;
|
||
UDX->Position = short(x);
|
||
UDY->Position = short(y);
|
||
m_DisEvent--;
|
||
if( (UX != UDX->Position) || (UY != UDY->Position) ){
|
||
#if UseDraft
|
||
m_Draft = TRUE;
|
||
Timer->Enabled = TRUE;
|
||
#endif
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMouseUp(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_MouseHold ){
|
||
m_MouseHold = 0;
|
||
PBox->Invalidate();
|
||
}
|
||
Screen->Cursor = crDefault;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UDLClick(TObject *Sender, TUDBtnType Button)
|
||
{
|
||
SBGClick(NULL);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UD3D(int a)
|
||
{
|
||
m_DisEvent++;
|
||
int x = UDX->Position;
|
||
int y = UDY->Position;
|
||
int xs = (x >= 0) ? 1 : -1;
|
||
int ys = (y >= 0) ? 1 : -1;
|
||
x = ABS(x);
|
||
y = ABS(y);
|
||
if( x == y ){
|
||
int ad;
|
||
if( x < 4 ){
|
||
ad = 1;
|
||
}
|
||
else if( x < 12 ){
|
||
ad = 2;
|
||
}
|
||
else {
|
||
ad = 4;
|
||
}
|
||
ad *= a;
|
||
x += ad;
|
||
y += ad;
|
||
if( x < 2 ) x = 2;
|
||
if( y < 2 ) y = 2;
|
||
if( x > 48 ) x = 48;
|
||
if( y > 48 ) y = 48;
|
||
}
|
||
else {
|
||
if( x < y ) x = y;
|
||
x &= 0xfffffffc;
|
||
y = x;
|
||
}
|
||
x *= xs; y *= ys;
|
||
UDX->Position = SHORT(x);
|
||
UDY->Position = SHORT(y);
|
||
m_DisEvent--;
|
||
UpdateBitmap();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SB3DIClick(TObject *Sender)
|
||
{
|
||
UD3D((Sender == SB3DI) ? 1 : -1);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBMSGClick(TObject *Sender)
|
||
{
|
||
Msg->Visible = SBMSG->Down;
|
||
if( SBMSG->Down ){
|
||
Msg->Text = sys.m_Msg;
|
||
Msg->Modified = FALSE;
|
||
Msg->SelLength = 0;
|
||
Msg->SetFocus();
|
||
}
|
||
else {
|
||
if( Msg->Modified ){
|
||
sys.m_Msg = Msg->Text;
|
||
Msg->Modified = FALSE;
|
||
}
|
||
Memo->SetFocus();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::MsgDblClick(TObject *Sender)
|
||
{
|
||
AnsiString as;
|
||
AnsiString cs;
|
||
|
||
m_DisEvent++;
|
||
if( Msg->Lines->Count ){
|
||
int e = Msg->SelStart;
|
||
LPCSTR p = Msg->Text.c_str();
|
||
int n = 0;
|
||
for( int i = 0; i < e; i++, p++ ){
|
||
if( *p == '\n' ) n++;
|
||
}
|
||
if( n > Msg->Lines->Count ) n = Msg->Lines->Count - 1;
|
||
as = Msg->Lines->Strings[n];
|
||
}
|
||
m_FText = as;
|
||
::Yen2CrLf(cs, as);
|
||
Memo->Text = cs;
|
||
m_DisEvent--;
|
||
SBMSG->Down = FALSE;
|
||
SBMSGClick(NULL);
|
||
MultProc();
|
||
UpdateFText();
|
||
UpdateBitmap();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::MemoStartDrag(TObject *Sender,
|
||
TDragObject *&DragObject)
|
||
{
|
||
if( !SBMSG->Down ){
|
||
SBMSG->Down = TRUE;
|
||
SBMSGClick(NULL);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
void __fastcall TTextDlgBox::MsgDragDrop(TObject *Sender, TObject *Source,
|
||
int X, int Y)
|
||
{
|
||
Msg->Lines->Add(m_FText);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
void __fastcall TTextDlgBox::MsgDragOver(TObject *Sender, TObject *Source,
|
||
int X, int Y, TDragState State, bool &Accept)
|
||
{
|
||
if( Source == Memo ) Accept = TRUE;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::MemoMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
m_MemoX = X;
|
||
m_MemoY = Y;
|
||
m_MemoDown = 1;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::MemoMouseMove(TObject *Sender,
|
||
TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_MemoDown == 1 ){
|
||
X -= m_MemoX;
|
||
Y -= m_MemoY;
|
||
if( (X*X)+(Y*Y) > 64 ){
|
||
m_MemoDown = 2;
|
||
Memo->BeginDrag(TRUE);
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::MemoMouseUp(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
m_MemoDown = 0;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::FontBtnMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( Button == mbRight ){
|
||
BYTE cset;
|
||
UINT cp = ::GetACP();
|
||
switch(cp){
|
||
case 932:
|
||
cset = SHIFTJIS_CHARSET;
|
||
break;
|
||
case 949:
|
||
cset = HANGEUL_CHARSET;
|
||
break;
|
||
case 950:
|
||
cset = CHINESEBIG5_CHARSET;
|
||
break;
|
||
case 936:
|
||
cset = 134; // <20>ȗ<EFBFBD>
|
||
break;
|
||
default:
|
||
cset = DEFAULT_CHARSET;
|
||
break;
|
||
}
|
||
int charset = m_Item.m_pFont->Charset;
|
||
m_Item.m_pFont->Charset = BYTE((charset != ANSI_CHARSET) ? ANSI_CHARSET : cset);
|
||
m_Item.UpdateFont();
|
||
if( m_Item.m_pFont != NULL ){
|
||
UpdateMemoFont(m_Item.m_pFont->Charset);
|
||
}
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateFontBtnHint(void)
|
||
{
|
||
AnsiString as = sys.m_MsgEng ? "Choose font" : "<EFBFBD>t<EFBFBD>H<EFBFBD><EFBFBD><EFBFBD>g<EFBFBD>̑I<EFBFBD><EFBFBD>";
|
||
if( m_Item.m_pFont ){
|
||
as += " [";
|
||
as += m_Item.m_pFont->Name;
|
||
TFontStyles ts = m_Item.m_pFont->Style;
|
||
DWORD d = FontStyle2Code(ts);
|
||
AddStyle(as, m_Item.m_pFont->Charset, d);
|
||
as += "]";
|
||
SBB->Down = d & FSBOLD;
|
||
SBI->Down = d & FSITALIC;
|
||
if( m_pCodeView ) m_pCodeView->Execute(Handle, m_Item.m_pFont);
|
||
}
|
||
FontBtn->Hint = as;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SetSBF(int n)
|
||
{
|
||
if( !sys.m_pFontList ) return;
|
||
|
||
TSpeedButton* _tt[]={SBF1, SBF2, SBF3, SBF4, SBF5, NULL};
|
||
|
||
TSpeedButton* pButton = _tt[n];
|
||
AnsiString es = sys.m_MsgEng ? "Registration = Right button" : "<EFBFBD>o<EFBFBD>^=<3D>E<EFBFBD><45><EFBFBD><EFBFBD>";
|
||
AnsiString fs = sys.m_pFontList->Strings[n];
|
||
int undef = fs.IsEmpty();
|
||
if( undef ) fs = sys.m_MsgEng ? "Load registered font" : "<EFBFBD>o<EFBFBD>^̫<>Ă̓ǂݏo<DD8F><6F>";
|
||
char bf[256];
|
||
sprintf(bf, "%s (%s)", fs.c_str(), es.c_str());
|
||
pButton->Hint = bf;
|
||
pButton->Font->Color = undef ? clGrayText : clBlack;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
int __fastcall TTextDlgBox::GetSBFIndex(TObject *Sender)
|
||
{
|
||
TSpeedButton* _tt[]={SBF1, SBF2, SBF3, SBF4, SBF5, NULL};
|
||
|
||
for( int i = 0; _tt[i]; i++ ){
|
||
if( Sender == _tt[i] ) return i;
|
||
}
|
||
return 0;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBFClick(TObject *Sender)
|
||
{
|
||
if( !sys.m_pFontList ) return;
|
||
int N = GetSBFIndex(Sender);
|
||
if( sys.m_pFontList->Strings[N].IsEmpty() ) return;
|
||
|
||
FontDialog->Font->Assign(m_Item.m_pFont);
|
||
|
||
char fname[512];
|
||
sprintf(fname, "%s%s", sys.m_BgnDir, ININAME);
|
||
TMemIniFile *pIniFile = new TMemIniFile(fname);
|
||
{
|
||
char bf[32];
|
||
sprintf(bf, "Font.%u", N);
|
||
int ht = m_Item.m_pFont->Height;
|
||
LoadFontFromInifile(m_Item.m_pFont, bf, pIniFile);
|
||
int hs = m_Item.m_pFont->Height;
|
||
m_Item.m_pFont->Height = ht;
|
||
m_FontHeight = ht;
|
||
int oyw = (short)pIniFile->ReadInteger(bf, "OYW", UDOYW->Position);
|
||
if( hs ) oyw = ht * oyw / hs;
|
||
UDOYW->Position = (short)oyw;
|
||
}
|
||
delete pIniFile;
|
||
|
||
m_Item.UpdateFont();
|
||
if( m_Item.m_pFont != NULL ){
|
||
UpdateMemoFont(m_Item.m_pFont->Charset);
|
||
}
|
||
UpdateBitmap();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBFMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( Button == mbRight ){
|
||
FontDialog->Font->Assign(m_Item.m_pFont);
|
||
FontDialog->Font->Color = clBlack;
|
||
NoTopMost();
|
||
int r = FontDialog->Execute();
|
||
TopMost();
|
||
if( r == TRUE ){
|
||
char fname[512];
|
||
sprintf(fname, "%s%s", sys.m_BgnDir, ININAME);
|
||
TMemIniFile *pIniFile = new TMemIniFile(fname);
|
||
{
|
||
int N = GetSBFIndex(Sender);
|
||
char bf[32];
|
||
sprintf(bf, "Font.%u", N);
|
||
SaveFontToInifile(FontDialog->Font, bf, pIniFile);
|
||
pIniFile->WriteInteger(bf, "OYW", UDOYW->Position);
|
||
pIniFile->UpdateFile();
|
||
if( sys.m_pFontList ){
|
||
AnsiString as = FontDialog->Font->Name;
|
||
TFontStyles ts = FontDialog->Font->Style;
|
||
DWORD d = FontStyle2Code(ts);
|
||
AddStyle(as, FontDialog->Font->Charset, d);
|
||
sys.m_pFontList->Strings[N] = as;
|
||
SetSBF(N);
|
||
}
|
||
}
|
||
delete pIniFile;
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBBClick(TObject *Sender)
|
||
{
|
||
if( !m_Item.m_pFont ) return;
|
||
|
||
TFontStyles ts = m_Item.m_pFont->Style;
|
||
DWORD d = FontStyle2Code(ts);
|
||
d ^= FSBOLD;
|
||
ts = Code2FontStyle(d);
|
||
m_Item.m_pFont->Style = ts;
|
||
|
||
m_Item.UpdateFont();
|
||
if( m_Item.m_pFont != NULL ){
|
||
UpdateMemoFont(m_Item.m_pFont->Charset);
|
||
}
|
||
UpdateBitmap();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBIClick(TObject *Sender)
|
||
{
|
||
if( !m_Item.m_pFont ) return;
|
||
|
||
TFontStyles ts = m_Item.m_pFont->Style;
|
||
DWORD d = FontStyle2Code(ts);
|
||
d ^= FSITALIC;
|
||
ts = Code2FontStyle(d);
|
||
m_Item.m_pFont->Style = ts;
|
||
|
||
m_Item.UpdateFont();
|
||
if( m_Item.m_pFont != NULL ){
|
||
UpdateMemoFont(m_Item.m_pFont->Charset);
|
||
}
|
||
UpdateBitmap();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
void __fastcall TTextDlgBox::SBFDMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_Item.m_pFont == NULL ) return;
|
||
|
||
int ad = 0;
|
||
int h = m_FontHeight;
|
||
if( Sender == SBFD ){
|
||
if( Button == mbLeft ){
|
||
if( h < -2 ) ad = 1;
|
||
}
|
||
else if( Button == mbRight ){
|
||
if( h < -6 ) ad = 4;
|
||
}
|
||
}
|
||
else {
|
||
if( Button == mbLeft ){
|
||
ad = -1;
|
||
}
|
||
else if( Button == mbRight ){
|
||
ad = -4;
|
||
}
|
||
}
|
||
if( ad ){
|
||
m_FontHeight = h + ad;
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::DefBtnClick(TObject *Sender)
|
||
{
|
||
m_DisEvent++;
|
||
TBAX->Position = 60;
|
||
TBAY->Position = 60;
|
||
TBPX->Position = 0;
|
||
TBPY->Position = 0;
|
||
TBPZ->Position = 0;
|
||
TBRX->Position = 0;
|
||
TBRY->Position = 0;
|
||
TBRZ->Position = -180;
|
||
TBR->Position = 0;
|
||
TBS->Position = 15;
|
||
TBSC->Position = 0;
|
||
m_DisEvent--;
|
||
UpdateTB();
|
||
SBGClick(NULL);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBRClick(TObject *Sender)
|
||
{
|
||
if( TBSC->Position ){
|
||
m_DisEvent++;
|
||
TBSC->Position = 0;
|
||
m_DisEvent--;
|
||
SBGClick(NULL);
|
||
}
|
||
TBSC->SetFocus();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxPerMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_pBitmap == NULL ) return;
|
||
|
||
m_SCX = double(m_pBitmap->Width) / double(PBoxPer->Width);
|
||
m_SCY = double(m_pBitmap->Height) / double(PBoxPer->Height);
|
||
X = X * m_SCX;
|
||
Y = Y * m_SCY;
|
||
|
||
m_XC = m_pBitmap->Width / 2;
|
||
m_YC = m_pBitmap->Height / 2;
|
||
int x = X - m_XC;
|
||
int y = m_YC - Y;
|
||
if( x || y ){
|
||
m_Deg = atan2(y, x);
|
||
}
|
||
else {
|
||
m_Deg = 0;
|
||
}
|
||
m_Dist = sqrt(x * x + y * y);
|
||
m_SDeg = TBR->Position;
|
||
m_SDistX = TBAX->Position;
|
||
m_SDistY = TBAY->Position;
|
||
Screen->Cursor = crSizeAll;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxPerMouseMove(TObject *Sender,
|
||
TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_XC > 0 ){
|
||
X = X * m_SCX;
|
||
Y = Y * m_SCY;
|
||
|
||
int x = X - m_XC;
|
||
int y = m_YC - Y;
|
||
double Deg;
|
||
if( x || y ){
|
||
Deg = atan2(y, x);
|
||
}
|
||
else {
|
||
Deg = 0;
|
||
}
|
||
Deg = (m_Deg - Deg) * 180.0 / PI;
|
||
Deg += m_SDeg;
|
||
if( Deg < -180 ) Deg += 360.0;
|
||
if( Deg > 180 ) Deg -= 360.0;
|
||
TBR->Position = SHORT(Deg);
|
||
|
||
double Dist = sqrt(x * x + y * y);
|
||
Dist = (Dist - m_Dist)/2;
|
||
int d = Dist + m_SDistX;
|
||
if( d > 201 ) d = 201;
|
||
if( d < 2 ) d = 2;
|
||
TBAX->Position = d;
|
||
d = Dist + m_SDistY;
|
||
if( d > 201 ) d = 201;
|
||
if( d < 2 ) d = 2;
|
||
TBAY->Position = d;
|
||
|
||
UpdateTB();
|
||
#if UseDraft
|
||
m_Draft = TRUE;
|
||
Timer->Enabled = TRUE;
|
||
#endif
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxPerMouseUp(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
m_XC = -1;
|
||
Screen->Cursor = crDefault;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::TBSCChange(TObject *Sender)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
if( m_Item.m_SC != TBSC->Position ){
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
static void __fastcall UpdateDefTB(TTrackBar *pBar, int f, int def, int &dir)
|
||
{
|
||
if( f ){
|
||
pBar->Position = pBar->Position + (pBar->PageSize * dir);
|
||
if( pBar->Position == pBar->Max ){
|
||
dir = -1;
|
||
}
|
||
else if( pBar->Position == pBar->Min ){
|
||
dir = 1;
|
||
}
|
||
}
|
||
else {
|
||
pBar->Position = def;
|
||
}
|
||
pBar->SetFocus();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::LDefMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( (Button != mbLeft) && (Button != mbRight) ) return;
|
||
BOOL f = (Button != mbLeft);
|
||
|
||
TLabel *_tt[]={L57, L58, L59, L56, L55, L54, L51, L52, L53, L60};
|
||
|
||
int i;
|
||
for( i = 0; i < AN(_tt); i++ ){
|
||
if( _tt[i] == (TLabel *)Sender ) break;
|
||
}
|
||
m_DisEvent++;
|
||
switch(i){
|
||
case 0:
|
||
UpdateDefTB(TBS, f, 15, m_DirTB[0]);
|
||
break;
|
||
case 1:
|
||
UpdateDefTB(TBAX, f, 60, m_DirTB[1]);
|
||
break;
|
||
case 2:
|
||
UpdateDefTB(TBAY, f, 60, m_DirTB[2]);
|
||
break;
|
||
case 3:
|
||
UpdateDefTB(TBPX, f, 0, m_DirTB[3]);
|
||
break;
|
||
case 4:
|
||
UpdateDefTB(TBPY, f, 0, m_DirTB[4]);
|
||
break;
|
||
case 5:
|
||
UpdateDefTB(TBPZ, f, 0, m_DirTB[5]);
|
||
break;
|
||
case 6:
|
||
UpdateDefTB(TBRX, f, 0, m_DirTB[6]);
|
||
break;
|
||
case 7:
|
||
UpdateDefTB(TBRY, f, 0, m_DirTB[7]);
|
||
break;
|
||
case 8:
|
||
UpdateDefTB(TBRZ, f, -180, m_DirTB[8]);
|
||
break;
|
||
case 9:
|
||
UpdateDefTB(TBR, f, 0, m_DirTB[9]);
|
||
break;
|
||
}
|
||
m_DisEvent--;
|
||
UpdateTB();
|
||
SBGClick(NULL);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateTB(void)
|
||
{
|
||
m_SBar[0] = TBS->Position;
|
||
m_SBar[1] = TBAX->Position;
|
||
m_SBar[2] = TBAY->Position;
|
||
m_SBar[3] = TBPX->Position;
|
||
m_SBar[4] = TBPY->Position;
|
||
m_SBar[5] = TBPZ->Position;
|
||
m_SBar[6] = TBRX->Position;
|
||
m_SBar[7] = TBRY->Position;
|
||
m_SBar[8] = TBRZ->Position;
|
||
m_SBar[9] = TBR->Position;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::TBSChange(TObject *Sender)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
|
||
TTrackBar *_tt[]={TBS, TBAX, TBAY, TBPX, TBPY, TBPZ, TBRX, TBRY, TBRZ, TBR};
|
||
TTrackBar *pBar = (TTrackBar *)Sender;
|
||
|
||
int i;
|
||
for( i = 0; i < AN(_tt); i++ ){
|
||
if( _tt[i] == pBar ) break;
|
||
}
|
||
if( m_SBar[i] != pBar->Position ){
|
||
m_SBar[i] = pBar->Position;
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall MakeBitmapPtn(Graphics::TBitmap *pBmp, int hw, int sw, UCOL col1, UCOL col2)
|
||
{
|
||
hw /= 3;
|
||
CWaitCursor wait;
|
||
TCanvas *pCanvas = pBmp->Canvas;
|
||
int x, y, f, v;
|
||
for( y = 0; y < pBmp->Height; y++ ){
|
||
for( x = 0; x < pBmp->Width; x++ ){
|
||
f = x / hw;
|
||
switch(sw){
|
||
case 0:
|
||
if( (y/2) & 1 ){
|
||
v = (x/2) & 1;
|
||
}
|
||
else {
|
||
v = !((x/2) & 1);
|
||
}
|
||
break;
|
||
case 1:
|
||
if( (y/4) & 1 ){
|
||
v = (x/2) & 1;
|
||
}
|
||
else {
|
||
v = !((x/2) & 1);
|
||
}
|
||
break;
|
||
case 2:
|
||
if( (y/2) & 1 ){
|
||
v = (x/4) & 1;
|
||
}
|
||
else {
|
||
v = !((x/4) & 1);
|
||
}
|
||
break;
|
||
case 3:
|
||
if( (y/4) & 1 ){
|
||
v = (x/4) & 1;
|
||
}
|
||
else {
|
||
v = !((x/4) & 1);
|
||
}
|
||
break;
|
||
case 4:
|
||
switch(f){
|
||
case 0:
|
||
v = (y/2) & 1;
|
||
break;
|
||
case 1:
|
||
v = (y/4) & 1;
|
||
break;
|
||
default:
|
||
v = (y/8) & 1;
|
||
break;
|
||
}
|
||
break;
|
||
case 5:
|
||
switch(f){
|
||
case 0:
|
||
v = (x/2) & 1;
|
||
break;
|
||
case 1:
|
||
v = (x/4) & 1;
|
||
break;
|
||
default:
|
||
v = (x/8) & 1;
|
||
break;
|
||
}
|
||
break;
|
||
case 6:
|
||
switch(f){
|
||
case 0:
|
||
v = ((y+x)/2) & 1;
|
||
break;
|
||
case 1:
|
||
v = ((y+x)/4) & 1;
|
||
break;
|
||
default:
|
||
v = ((y+x)/8) & 1;
|
||
break;
|
||
}
|
||
break;
|
||
case 7:
|
||
switch(f){
|
||
case 0:
|
||
v = ((x-y+1024)/2) & 1;
|
||
break;
|
||
case 1:
|
||
v = ((x-y+1024)/4) & 1;
|
||
break;
|
||
default:
|
||
v = ((x-y+1024)/8) & 1;
|
||
break;
|
||
}
|
||
break;
|
||
}
|
||
pCanvas->Pixels[x][y] = v ? col1.c : col2.c;
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::CBBMaskClick(TObject *Sender)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
|
||
if( CBBMask->Checked ){
|
||
if( !m_pMaskBmp ){
|
||
if( m_pMaskBak ){
|
||
m_pMaskBmp = m_pMaskBak;
|
||
m_pMaskBak = NULL;
|
||
UpdateMaskSrc(TRUE);
|
||
}
|
||
else {
|
||
m_pMaskBmp = CreateBitmap(PBoxSrc->Width, PBoxSrc->Height);
|
||
UCOL c1, c2;
|
||
c1.c = PC1->Color; c2.c = PC2->Color;
|
||
MakeBitmapPtn(m_pMaskBmp, PBoxSrc->Width, 0, c1, c2);
|
||
m_MaskX = m_MaskY = 0; m_MaskXW = m_MaskYW = 8;
|
||
}
|
||
UpdateItemMask();
|
||
}
|
||
}
|
||
else {
|
||
if( m_pMaskBmp ){
|
||
delete m_pMaskBmp;
|
||
m_pMaskBmp = NULL;
|
||
}
|
||
if( m_Item.m_pMaskBmp ){
|
||
if( m_pMaskBak ) delete m_pMaskBak;
|
||
m_pMaskBak = m_Item.m_pMaskBmp;
|
||
m_Item.m_pMaskBmp = NULL;
|
||
}
|
||
}
|
||
PBoxSrcPaint(NULL);
|
||
UpdateBitmap();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::L80Click(TObject *Sender)
|
||
{
|
||
Page->ActivePage = TabMask;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::DrawMaskCursor(int x1, int y1, int x2, int y2)
|
||
{
|
||
x1 -= SBH->Position;
|
||
x2 -= SBH->Position;
|
||
y1 -= SBV->Position;
|
||
y2 -= SBV->Position;
|
||
TCanvas *tp = PBoxSrc->Canvas;
|
||
tp->Pen->Width = 1;
|
||
tp->Pen->Style = psSolid;
|
||
tp->MoveTo(x1, y1);
|
||
int rop = ::SetROP2(tp->Handle, R2_NOT);
|
||
tp->LineTo(x2, y1);
|
||
tp->LineTo(x2, y2);
|
||
tp->LineTo(x1, y2);
|
||
tp->LineTo(x1, y1);
|
||
::SetROP2(tp->Handle, rop);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::DrawMaskCursor(void)
|
||
{
|
||
DrawMaskCursor(m_MaskX, m_MaskY, m_MaskX+m_MaskXW, m_MaskY+m_MaskYW);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxSrcPaint(TObject *Sender)
|
||
{
|
||
if( (Sender != SBV) && (Sender != SBH) ) FillPBox(PBoxSrc);
|
||
if( m_pMaskBmp ){
|
||
PBoxSrc->Canvas->Draw(-SBH->Position, -SBV->Position, m_pMaskBmp);
|
||
DrawMaskCursor();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
static void __fastcall DrawBmpPBoxBtn(TCanvas *pCanvas, int x, int y, int w, BOOL sw)
|
||
{
|
||
pCanvas->Pen->Style = psSolid;
|
||
pCanvas->Pen->Width = 1;
|
||
pCanvas->Pen->Color = sw ? clBlack : clWhite;
|
||
w++;
|
||
pCanvas->MoveTo(x+w, y);
|
||
pCanvas->LineTo(x, y);
|
||
pCanvas->LineTo(x, y+w);
|
||
pCanvas->LineTo(x+1, y+w);
|
||
pCanvas->Pen->Color = sw ? clWhite : clBlack;
|
||
pCanvas->LineTo(x+w, y+w);
|
||
pCanvas->LineTo(x+w, y);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
static void __fastcall DrawBmpPBox(TCanvas *pCanvas, int x, int y, Graphics::TBitmap *pBmp)
|
||
{
|
||
pCanvas->Draw(x+1, y+1, pBmp);
|
||
DrawBmpPBoxBtn(pCanvas, x, y, pBmp->Width, FALSE);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
static int __fastcall GetIndex(int w, int m, int x, int y)
|
||
{
|
||
if( ((x % w) < 1) || ((x % w) >= (w-1)) ) return -1;
|
||
if( ((y % w) < 1) || ((y % w) >= (w-1)) ) return -1;
|
||
x /= w;
|
||
y /= w;
|
||
int n = (y * 8) + x;
|
||
if( n >= m ) n = m-1;
|
||
return n;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
static void __fastcall DrawBmpPBox(TCanvas *pCanvas, int s, int w, int ws, int x, int y, Graphics::TBitmap *pBmp)
|
||
{
|
||
TRect src, drc;
|
||
|
||
src.Left = ((y*8)+x)*ws;
|
||
src.Right = src.Left + w;
|
||
src.Top = 0; src.Bottom = w;
|
||
drc.Left = 1 + x*s;
|
||
drc.Right = drc.Left + w;
|
||
drc.Top = 1 + y*s;
|
||
drc.Bottom = drc.Top + w;
|
||
pCanvas->CopyRect(drc, pBmp->Canvas, src);
|
||
DrawBmpPBoxBtn(pCanvas, x*s, y*s, w, FALSE);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxBMPaint(TObject *Sender)
|
||
{
|
||
int x, y;
|
||
for( y = 0; y < 2; y++ ){
|
||
for( x = 0; x < 8; x++ ){
|
||
DrawBmpPBox(PBoxBM->Canvas, 33, 30, 32, x, y, m_pBuiltInBmp);
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxBMMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( Button == mbLeft ){
|
||
m_MIndex = GetIndex(33, 16, X, Y);
|
||
if( m_MIndex >= 0 ){
|
||
DrawBmpPBoxBtn(PBoxBM->Canvas, 33*(m_MIndex%8), 33*(m_MIndex/8), 30, TRUE);
|
||
Graphics::TBitmap *pBmp = CreateBitmap(32, 32);
|
||
pBmp->Canvas->Draw(-m_MIndex*32, 0, m_pBuiltInBmp);
|
||
if( !m_pMaskBmp ) m_pMaskBmp = CreateBitmap(32, 32);
|
||
if( !IsSameBitmap(pBmp, m_pMaskBmp) ){
|
||
delete m_pMaskBmp;
|
||
m_pMaskBmp = pBmp;
|
||
UpdateMaskSrc(TRUE);
|
||
}
|
||
else {
|
||
delete pBmp;
|
||
}
|
||
CBMSize->SetFocus();
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxBMMouseUp(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( (Button == mbLeft) && (m_MIndex >= 0) ){
|
||
DrawBmpPBoxBtn(PBoxBM->Canvas, 33*(m_MIndex%8), 33*(m_MIndex/8), 30, FALSE);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateCustom(void)
|
||
{
|
||
if( !m_pCustomBmp ) m_pCustomBmp = CreateBitmap(16*8, 16);
|
||
Graphics::TBitmap *pBmp = CreateBitmap(16, 16);
|
||
int i;
|
||
for( i = 0; i < 8; i++ ){
|
||
UCOL c1, c2;
|
||
c1.c = PC1->Color; c2.c = PC2->Color;
|
||
MakeBitmapPtn(pBmp, PBoxSrc->Width, i, c1, c2);
|
||
m_pCustomBmp->Canvas->Draw(i*16, 0, pBmp);
|
||
}
|
||
delete pBmp;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxCSPaint(TObject *Sender)
|
||
{
|
||
if( !m_pCustomBmp ){
|
||
UpdateCustom();
|
||
if( !m_pCustomBmp ) return;
|
||
}
|
||
MultProc();
|
||
int x;
|
||
for( x = 0; x < 8; x++ ){
|
||
DrawBmpPBox(PBoxCS->Canvas, 18, 16, 16, x, 0, m_pCustomBmp);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxCSMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( Button == mbLeft ){
|
||
m_MIndex = GetIndex(18, 8, X, Y);
|
||
if( m_MIndex >= 0 ){
|
||
DrawBmpPBoxBtn(PBoxCS->Canvas, 18*(m_MIndex%8), 0, 16, TRUE);
|
||
|
||
Graphics::TBitmap *pBmp = CreateBitmap(PBoxSrc->Width, PBoxSrc->Height);
|
||
UCOL c1, c2;
|
||
c1.c = PC1->Color; c2.c = PC2->Color;
|
||
MakeBitmapPtn(pBmp, PBoxSrc->Width, m_MIndex, c1, c2);
|
||
if( m_pMaskBmp ) delete m_pMaskBmp;
|
||
DeleteMaskSrc();
|
||
m_pMaskBmp = pBmp;
|
||
m_MaskX = m_MaskY = 0; m_MaskXW = m_MaskYW = 8;
|
||
UpdateMaskSrc(FALSE);
|
||
CBMSize->SetFocus();
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxCSMouseUp(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( (Button == mbLeft) && (m_MIndex >= 0) ){
|
||
DrawBmpPBoxBtn(PBoxCS->Canvas, 18*(m_MIndex%8), 0, 16, FALSE);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateItemMask(void)
|
||
{
|
||
m_DisEvent++;
|
||
CBBMask->Checked = TRUE;
|
||
UpdateCBMSize();
|
||
|
||
if( m_pMaskBak ){
|
||
delete m_pMaskBak;
|
||
m_pMaskBak = NULL;
|
||
}
|
||
if( m_Item.m_pMaskBmp ) delete m_Item.m_pMaskBmp;
|
||
m_Item.m_pMaskBmp = CreateBitmap(m_MaskXW, m_MaskYW);
|
||
m_Item.m_pMaskBmp->Canvas->Draw(-m_MaskX, -m_MaskY, m_pMaskBmp);
|
||
m_DisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxSrcMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( !m_pMaskBmp ) return;
|
||
|
||
if( Button == mbLeft ){
|
||
X += SBH->Position; Y += SBV->Position;
|
||
DrawMaskCursor();
|
||
m_MaskAX = m_MaskX = X;
|
||
m_MaskAY = m_MaskY = Y;
|
||
m_MaskAXW = m_MaskXW; m_MaskAYW = m_MaskYW;
|
||
DrawMaskCursor();
|
||
UpdateItemMask();
|
||
UpdateBitmap();
|
||
m_MaskMouseCapture = 1;
|
||
}
|
||
else if( Button == mbRight ){
|
||
if( (m_MaskXW > 32) || (m_MaskYW > 32) ){
|
||
Graphics::TBitmap *pSrc = CreateBitmap(m_MaskXW, m_MaskYW);
|
||
pSrc->Canvas->Draw(-m_MaskX, -m_MaskY, m_pMaskBmp);
|
||
|
||
delete m_pMaskBmp;
|
||
m_pMaskBmp = CreateBitmap(32, 32);
|
||
StretchCopy(m_pMaskBmp, pSrc, HALFTONE);
|
||
delete pSrc;
|
||
|
||
m_MaskX = m_MaskY = 0;
|
||
m_MaskXW = m_MaskYW = 32;
|
||
DeleteMaskSrc();
|
||
}
|
||
else {
|
||
m_MaskX = m_MaskY = 0;
|
||
}
|
||
SBH->Position = 0; SBV->Position = 0;
|
||
UpdateItemMask();
|
||
PBoxSrcPaint(NULL);
|
||
UpdateBitmap();
|
||
}
|
||
CBMSize->SetFocus();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxSrcMouseMove(TObject *Sender,
|
||
TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_MaskMouseCapture ){
|
||
X += SBH->Position; Y += SBV->Position;
|
||
if( m_MaskMouseCapture == 1 ){
|
||
m_MaskMouseCapture++;
|
||
DrawMaskCursor();
|
||
}
|
||
else {
|
||
DrawMaskCursor(m_MaskX, m_MaskY, m_MaskAX, m_MaskAY);
|
||
}
|
||
m_MaskAX = X; m_MaskAY = Y;
|
||
DrawMaskCursor(m_MaskX, m_MaskY, m_MaskAX, m_MaskAY);
|
||
X = ABS(m_MaskX-m_MaskAX); Y = ABS(m_MaskY-m_MaskAY);
|
||
if( (X != m_MaskAXW)||(Y != m_MaskAYW) ){
|
||
m_MaskAXW = X; m_MaskAYW = Y;
|
||
UpdateCBMSize(X, Y);
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxSrcMouseUp(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_MaskMouseCapture ){
|
||
X += SBH->Position; Y += SBV->Position;
|
||
if( m_MaskMouseCapture != 1 ){
|
||
DrawMaskCursor(m_MaskX, m_MaskY, m_MaskAX, m_MaskAY);
|
||
if( (ABS(X-m_MaskX) >= 2) && (ABS(Y-m_MaskY) >= 2) ){
|
||
m_MaskXW = ABS(X-m_MaskX);
|
||
m_MaskYW = ABS(Y-m_MaskY);
|
||
if( X < m_MaskX ) m_MaskX = X;
|
||
if( Y < m_MaskY ) m_MaskY = Y;
|
||
UpdateItemMask();
|
||
UpdateBitmap();
|
||
}
|
||
DrawMaskCursor();
|
||
}
|
||
m_MaskMouseCapture = 0;
|
||
UpdateCBMSize();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateSBSrc(void)
|
||
{
|
||
SBH->Position = 0; SBV->Position = 0;
|
||
int hmax, vmax;
|
||
if( m_pMaskBmp ){
|
||
int xw = m_pMaskBmp->Width;
|
||
int yw = m_pMaskBmp->Height;
|
||
hmax = xw - PBoxSrc->ClientWidth;
|
||
vmax = yw - PBoxSrc->ClientHeight;
|
||
}
|
||
else {
|
||
hmax = vmax = -1;
|
||
}
|
||
SBH->Max = (hmax > 0) ? hmax : 0;
|
||
SBV->Max = (vmax > 0) ? vmax : 0;
|
||
SBH->Enabled = (hmax > 0) ? TRUE : FALSE;
|
||
SBV->Enabled = (vmax > 0) ? TRUE : FALSE;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateMaskSrc(BOOL sw)
|
||
{
|
||
DeleteMaskSrc();
|
||
int xw = m_pMaskBmp->Width;
|
||
int yw = m_pMaskBmp->Height;
|
||
if( sw ){
|
||
m_MaskX = m_MaskY = 0;
|
||
if( ((xw <= 32) && (yw <= 32)) ){
|
||
m_MaskXW = xw; m_MaskYW = yw;
|
||
}
|
||
}
|
||
else {
|
||
if( m_MaskX >= xw ) m_MaskX = 0;
|
||
if( m_MaskY >= yw ) m_MaskY = 0;
|
||
}
|
||
UpdateSBSrc();
|
||
UpdateItemMask();
|
||
PBoxSrcPaint(NULL);
|
||
UpdateBitmap();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateMaskSrc(HBITMAP hb)
|
||
{
|
||
if( hb != NULL ){
|
||
Graphics::TBitmap *pBmp = new Graphics::TBitmap;
|
||
pBmp->Handle = hb;
|
||
if( m_pMaskBmp ) delete m_pMaskBmp;
|
||
m_pMaskBmp = CreateBitmap(pBmp->Width, pBmp->Height);
|
||
m_pMaskBmp->Canvas->Draw(0, 0, pBmp);
|
||
delete pBmp;
|
||
UpdateMaskSrc(FALSE);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBMLoadClick(TObject *Sender)
|
||
{
|
||
if( !sys.m_fLoadImageMenu ) return;
|
||
UpdateMaskSrc(sys.m_fLoadImageMenu(1, PBoxSrc->Width, PBoxSrc->Height));
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBMPasteClick(TObject *Sender)
|
||
{
|
||
if( !sys.m_fPasteImage ) return;
|
||
UpdateMaskSrc(sys.m_fPasteImage(1, PBoxSrc->Width, PBoxSrc->Height));
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBMCopyClick(TObject *Sender)
|
||
{
|
||
if( !m_pMaskBmp ) return;
|
||
CopyBitmap(m_pMaskBmp);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBClipClick(TObject *Sender)
|
||
{
|
||
if( !sys.m_fClip ) return;
|
||
|
||
Graphics::TBitmap *pBmp = CreateBitmap(PBoxSrc->Width, PBoxSrc->Height);
|
||
if( sys.m_fClip(pBmp->Handle, m_pMaskBmp->Handle) ){
|
||
delete m_pMaskBmp;
|
||
m_pMaskBmp = pBmp;
|
||
UpdateMaskSrc(FALSE);
|
||
}
|
||
else {
|
||
delete pBmp;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateCBMSize(void)
|
||
{
|
||
UpdateCBMSize(m_MaskXW, m_MaskYW);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::UpdateCBMSize(int xw, int yw)
|
||
{
|
||
m_DisEvent++;
|
||
int f = TRUE;
|
||
if( xw == yw ){
|
||
switch(xw){
|
||
case 8:
|
||
CBMSize->ItemIndex = 0;
|
||
break;
|
||
case 16:
|
||
CBMSize->ItemIndex = 1;
|
||
break;
|
||
case 24:
|
||
CBMSize->ItemIndex = 2;
|
||
break;
|
||
case 32:
|
||
CBMSize->ItemIndex = 3;
|
||
break;
|
||
default:
|
||
f = FALSE;
|
||
break;
|
||
}
|
||
}
|
||
else {
|
||
f = FALSE;
|
||
}
|
||
if( f ){
|
||
if( CBMSize->Items->Count > 4 ) CBMSize->Items->Delete(4);
|
||
}
|
||
else {
|
||
char bf[256];
|
||
wsprintf(bf, "%ux%u", xw, yw);
|
||
if( CBMSize->Items->Count > 4 ){
|
||
CBMSize->Items->Strings[4] = bf;
|
||
}
|
||
else {
|
||
CBMSize->Items->Add(bf);
|
||
}
|
||
CBMSize->ItemIndex = 4;
|
||
}
|
||
m_DisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::CBMSizeChange(TObject *Sender)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
|
||
switch(CBMSize->ItemIndex){
|
||
case 0:
|
||
m_MaskXW = m_MaskYW = 8;
|
||
break;
|
||
case 1:
|
||
m_MaskXW = m_MaskYW = 16;
|
||
break;
|
||
case 2:
|
||
m_MaskXW = m_MaskYW = 24;
|
||
break;
|
||
case 3:
|
||
m_MaskXW = m_MaskYW = 32;
|
||
break;
|
||
}
|
||
if( m_pMaskBmp ){
|
||
if( (m_MaskXW > m_pMaskBmp->Width) || (m_MaskYW > m_pMaskBmp->Height) ){
|
||
Graphics::TBitmap *pBmp = CreateBitmap(m_MaskXW, m_MaskYW);
|
||
int x, y;
|
||
y = 0;
|
||
while(y < m_MaskYW){
|
||
x = 0;
|
||
while(x < m_MaskXW){
|
||
pBmp->Canvas->Draw(x, y, m_pMaskBmp);
|
||
x += m_pMaskBmp->Width;
|
||
}
|
||
y += m_pMaskBmp->Height;
|
||
}
|
||
delete m_pMaskBmp;
|
||
m_pMaskBmp = pBmp;
|
||
}
|
||
}
|
||
UpdateItemMask();
|
||
PBoxSrcPaint(NULL);
|
||
UpdateBitmap();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::FormKeyDown(TObject *Sender, WORD &Key,
|
||
TShiftState Shift)
|
||
{
|
||
if( Page->ActivePage == TabMask ){
|
||
TShiftState sf1, sf2;
|
||
sf1 << ssShift;
|
||
sf2 << ssShift;
|
||
sf1 *= Shift;
|
||
int sft = (sf1 == sf2);
|
||
int MaskXW = m_MaskXW;
|
||
int MaskYW = m_MaskYW;
|
||
int MaskX = m_MaskX;
|
||
int MaskY = m_MaskY;
|
||
switch(Key){
|
||
case VK_LEFT:
|
||
if( sft ){
|
||
if( m_MaskXW > 4 ) m_MaskXW--;
|
||
}
|
||
else {
|
||
if( m_MaskX ) m_MaskX--;
|
||
}
|
||
Key = 0;
|
||
break;
|
||
case VK_RIGHT:
|
||
if( sft ){
|
||
m_MaskXW++;
|
||
}
|
||
else {
|
||
m_MaskX++;
|
||
}
|
||
Key = 0;
|
||
break;
|
||
case VK_UP:
|
||
if( sft ){
|
||
if( m_MaskYW > 4 ) m_MaskYW--;
|
||
}
|
||
else {
|
||
if( m_MaskY ) m_MaskY--;
|
||
}
|
||
Key = 0;
|
||
break;
|
||
case VK_DOWN:
|
||
if( sft ){
|
||
m_MaskYW++;
|
||
}
|
||
else {
|
||
m_MaskY++;
|
||
}
|
||
Key = 0;
|
||
break;
|
||
}
|
||
if( (MaskX!=m_MaskX)||(MaskY!=m_MaskY)||(MaskXW!=m_MaskXW)||(MaskYW!=m_MaskYW) ){
|
||
UpdateItemMask();
|
||
PBoxSrcPaint(NULL);
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::OnDrawClipboard(TMessage Message)
|
||
{
|
||
SBMPaste->Enabled = ::IsClipboardFormatAvailable(CF_BITMAP);
|
||
if( m_hClipNext ) ::SendMessage(m_hClipNext, WM_DRAWCLIPBOARD, Message.WParam, Message.LParam);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::OnChangeCbChain(TMessage Message)
|
||
{
|
||
if( (HWND)Message.WParam == m_hClipNext ){
|
||
m_hClipNext = (HWND)Message.LParam;
|
||
}
|
||
if( m_hClipNext ) ::SendMessage(m_hClipNext, WM_CHANGECBCHAIN, Message.WParam, Message.LParam);
|
||
Message.Result = 0;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBMRotMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( !m_pMaskBmp ) return;
|
||
if( (Button != mbLeft) && (Button != mbRight) ) return;
|
||
|
||
BOOL f = (Button == mbLeft);
|
||
CWaitCursor w;
|
||
int xw = m_pMaskBmp->Width;
|
||
int yw = m_pMaskBmp->Height;
|
||
Graphics::TBitmap *pBmp = CreateBitmap(yw, xw);
|
||
int x, y;
|
||
BYTE *sp, *tp;
|
||
for( y = 0; y < yw; y++ ){
|
||
sp = (BYTE *)m_pMaskBmp->ScanLine[y];
|
||
for( x = 0; x < xw; x++ ){
|
||
if( f ){
|
||
tp = (BYTE *)pBmp->ScanLine[x];
|
||
tp += ((yw - y - 1) * 3);
|
||
}
|
||
else {
|
||
tp = (BYTE *)pBmp->ScanLine[xw - x - 1];
|
||
tp += (y * 3);
|
||
}
|
||
*tp++ = *sp++;
|
||
*tp++ = *sp++;
|
||
*tp = *sp++;
|
||
}
|
||
}
|
||
delete m_pMaskBmp;
|
||
m_pMaskBmp = pBmp;
|
||
UpdateMaskSrc(FALSE);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBMMirMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( !m_pMaskBmp ) return;
|
||
if( (Button != mbLeft) && (Button != mbRight) ) return;
|
||
|
||
CWaitCursor w;
|
||
int xw = m_pMaskBmp->Width;
|
||
int yw = m_pMaskBmp->Height;
|
||
Graphics::TBitmap *pBmp = CreateBitmap(xw, yw);
|
||
int x, y;
|
||
BYTE *sp, *tp;
|
||
for( y = 0; y < yw; y++ ){
|
||
if( Button == mbLeft ){
|
||
sp = (BYTE *)m_pMaskBmp->ScanLine[y];
|
||
tp = (BYTE *)pBmp->ScanLine[y];
|
||
tp += ((xw - 1) * 3);
|
||
for( x = 0; x < xw; x++ ){
|
||
*tp++ = *sp++;
|
||
*tp++ = *sp++;
|
||
*tp = *sp++;
|
||
tp -= 5;
|
||
}
|
||
}
|
||
else {
|
||
sp = (BYTE *)m_pMaskBmp->ScanLine[y];
|
||
tp = (BYTE *)pBmp->ScanLine[yw - y - 1];
|
||
for( x = 0; x < xw; x++ ){
|
||
*tp++ = *sp++;
|
||
*tp++ = *sp++;
|
||
*tp++ = *sp++;
|
||
}
|
||
}
|
||
}
|
||
delete m_pMaskBmp;
|
||
m_pMaskBmp = pBmp;
|
||
UpdateMaskSrc(FALSE);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBAdjColClick(TObject *Sender)
|
||
{
|
||
if( !m_pMaskBmp ) return;
|
||
if( !sys.m_fAdjCol ) return;
|
||
|
||
if( sys.m_fAdjCol(m_pMaskBmp->Handle) ){
|
||
DeleteMaskSrc();
|
||
UpdateItemMask();
|
||
PBoxSrcPaint(NULL);
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::DeleteMaskSrc(void)
|
||
{
|
||
if( m_pMaskBmpSrc ){
|
||
delete m_pMaskBmpSrc;
|
||
m_pMaskBmpSrc = NULL;
|
||
}
|
||
m_RotCol = 0;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBInvColClick(TObject *Sender)
|
||
{
|
||
if( !m_pMaskBmp ) return;
|
||
|
||
int xw = m_pMaskBmp->Width;
|
||
int yw = m_pMaskBmp->Height;
|
||
int x, y;
|
||
for( y = 0; y < yw; y++ ){
|
||
LPBYTE p = (LPBYTE)m_pMaskBmp->ScanLine[y];
|
||
for( x = 0; x < xw; x++ ){
|
||
*p = BYTE(~*p); p++;
|
||
*p = BYTE(~*p); p++;
|
||
*p = BYTE(~*p); p++;
|
||
}
|
||
}
|
||
DeleteMaskSrc();
|
||
UpdateItemMask();
|
||
PBoxSrcPaint(NULL);
|
||
UpdateBitmap();
|
||
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBRotColMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( !m_pMaskBmp ) return;
|
||
|
||
int f = 0;
|
||
if( Button == mbLeft ){
|
||
f = 1;
|
||
}
|
||
else if( Button == mbRight ){
|
||
f = -1;
|
||
}
|
||
if( f ){
|
||
CWaitCursor w;
|
||
if( !m_pMaskBmpSrc ){
|
||
m_pMaskBmpSrc = CreateBitmap(m_pMaskBmp->Width, m_pMaskBmp->Height);
|
||
m_pMaskBmpSrc->Canvas->Draw(0, 0, m_pMaskBmp);
|
||
m_RotCol = 0;
|
||
}
|
||
m_RotCol += f;
|
||
if( m_RotCol >= 16 ) m_RotCol = 0;
|
||
if( m_RotCol < 0 ) m_RotCol = 15;
|
||
if( !m_RotCol ){
|
||
m_pMaskBmp->Canvas->Draw(0, 0, m_pMaskBmpSrc);
|
||
}
|
||
else {
|
||
double ad = m_RotCol * 6.283185307179586476925286766559 / 16.0;
|
||
int x, y;
|
||
int xw = m_pMaskBmp->Width;
|
||
int yw = m_pMaskBmp->Height;
|
||
int R, G, B;
|
||
double Y, RY, BY, S, H;
|
||
UCOL c;
|
||
for( y = 0; y < yw; y++ ){
|
||
LPBYTE sp = (LPBYTE)m_pMaskBmpSrc->ScanLine[y];
|
||
LPBYTE wp = (LPBYTE)m_pMaskBmp->ScanLine[y];
|
||
for( x = 0; x < xw; x++ ){
|
||
c.b.b = *sp++;
|
||
c.b.g = *sp++;
|
||
c.b.r = *sp++;
|
||
|
||
Y = 0.3 * c.b.r + 0.59 * c.b.g + 0.11 * c.b.b;
|
||
RY = 0.7 * c.b.r - 0.59 * c.b.g - 0.11 * c.b.b;
|
||
BY = -0.3 * c.b.r - 0.59 * c.b.g + 0.89 * c.b.b;
|
||
|
||
S = sqrt(RY*RY + BY*BY);
|
||
if( BY ){
|
||
H = atan2(RY, BY);
|
||
H += ad;
|
||
RY = S * sin(H);
|
||
BY = S * cos(H);
|
||
|
||
R = Y + RY;
|
||
G = Y - 0.3 * RY / 0.59 - 0.11 * BY / 0.59;
|
||
B = Y + BY;
|
||
if( R > 255 ) R = 255;
|
||
if( R < 0 ) R = 0;
|
||
if( G > 255 ) G = 255;
|
||
if( G < 0 ) G = 0;
|
||
if( B > 255 ) B = 255;
|
||
if( B < 0 ) B = 0;
|
||
}
|
||
else {
|
||
R = c.b.r; G = c.b.g; B = c.b.b;
|
||
}
|
||
|
||
*wp++ = (BYTE)B;
|
||
*wp++ = (BYTE)G;
|
||
*wp++ = (BYTE)R;
|
||
}
|
||
}
|
||
}
|
||
UpdateItemMask();
|
||
PBoxSrcPaint(NULL);
|
||
UpdateBitmap();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBMListClick(TObject *Sender)
|
||
{
|
||
if( m_DisEvent ) return;
|
||
|
||
if( SBMList->Down ){
|
||
if( m_pMLSrcBmp ) delete m_pMLSrcBmp;
|
||
m_pMLSrcBmp = CreateBitmap(32, 32);
|
||
FillBitmap(m_pMLSrcBmp, clBlack);
|
||
if( m_Item.m_pMaskBmp ){
|
||
int x, y;
|
||
int xw = m_Item.m_pMaskBmp->Width;
|
||
int yw = m_Item.m_pMaskBmp->Height;
|
||
for( y = 0; y < 32; y += yw){
|
||
for( x = 0; x < 32; x += xw){
|
||
m_pMLSrcBmp->Canvas->Draw(x, y, m_Item.m_pMaskBmp);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
else {
|
||
if( m_pMLSrcBmp ) delete m_pMLSrcBmp;
|
||
m_pMLSrcBmp = NULL;
|
||
}
|
||
UpdateUI();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
int __fastcall TTextDlgBox::GetMLIndex(int x, int y)
|
||
{
|
||
return GetIndex(35, 9*8, x, y);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMListPaint(TObject *Sender)
|
||
{
|
||
Graphics::TBitmap *pBmp;
|
||
if( !m_pMListBmp ){
|
||
char name[256];
|
||
wsprintf(name, "%s"USERMASK, sys.m_BgnDir);
|
||
FILE *fp = fopen(name, "rb");
|
||
if( fp != NULL ){
|
||
fclose(fp);
|
||
pBmp = new Graphics::TBitmap;
|
||
try {
|
||
pBmp->LoadFromFile(name);
|
||
}
|
||
catch(...){
|
||
}
|
||
if( pBmp->Width < (32*72) ) pBmp->Width = 32*72;
|
||
if( pBmp->Height < 32 ) pBmp->Height = 32;
|
||
|
||
if( pBmp->PixelFormat != pf24bit ){
|
||
m_pMListBmp = CreateBitmap(pBmp->Width, pBmp->Height);
|
||
m_pMListBmp->Canvas->Draw(0, 0, pBmp);
|
||
delete pBmp;
|
||
}
|
||
else {
|
||
m_pMListBmp = pBmp;
|
||
}
|
||
}
|
||
else {
|
||
m_pMListBmp = CreateBitmap(32*72, 32);
|
||
FillBitmap(m_pMListBmp, clBlack);
|
||
}
|
||
m_pMListBmp->Modified = FALSE;
|
||
}
|
||
MultProc();
|
||
int x, y;
|
||
for( y = 0; y < 9; y++ ){
|
||
for( x = 0; x < 8; x++ ){
|
||
DrawBmpPBox(PBoxMList->Canvas, 35, 32, 32, x, y, m_pMListBmp);
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
int __fastcall TTextDlgBox::IsMList(int n)
|
||
{
|
||
int yw = m_pMListBmp->Height;
|
||
int x, y;
|
||
for( y = 0; y < yw; y++ ){
|
||
LPBYTE p = (LPBYTE)m_pMListBmp->ScanLine[y];
|
||
p += (n * 32) * 3;
|
||
for( x = 0; x < 32; x++ ){
|
||
if( *p++ ) return TRUE;
|
||
if( *p++ ) return TRUE;
|
||
if( *p++ ) return TRUE;
|
||
}
|
||
}
|
||
return FALSE;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMListMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( !m_pMListBmp ) return;
|
||
m_MLIndex = GetMLIndex(X, Y);
|
||
if( (m_MLIndex >= 0) && IsMList(m_MLIndex) ){
|
||
if( Button == mbLeft ){
|
||
DrawBmpPBoxBtn(PBoxMList->Canvas, (m_MLIndex%8)*35, (m_MLIndex/8)*35, 32, TRUE);
|
||
Graphics::TBitmap *pBmp = CreateBitmap(32, 32);
|
||
pBmp->Canvas->Draw(-m_MLIndex*32, 0, m_pMListBmp);
|
||
if( !m_pMaskBmp ) m_pMaskBmp = CreateBitmap(32, 32);
|
||
if( !IsSameBitmap(pBmp, m_pMaskBmp) ){
|
||
delete m_pMaskBmp;
|
||
m_pMaskBmp = pBmp;
|
||
UpdateMaskSrc(TRUE);
|
||
}
|
||
else {
|
||
delete pBmp;
|
||
}
|
||
::Sleep(100);
|
||
DrawBmpPBoxBtn(PBoxMList->Canvas, (m_MLIndex%8)*35, (m_MLIndex/8)*35, 32, FALSE);
|
||
PBoxMList->BeginDrag(FALSE);
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMLSrcPaint(TObject *Sender)
|
||
{
|
||
FillPBox(PBoxMLSrc);
|
||
if( m_pMLSrcBmp ){
|
||
DrawBmpPBox(PBoxMLSrc->Canvas, 0, 0, m_pMLSrcBmp);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMListDragDrop(TObject *Sender,
|
||
TObject *Source, int X, int Y)
|
||
{
|
||
if( Source == PBoxMLSrc ){
|
||
int n = GetMLIndex(X, Y);
|
||
if( n >= 0 ){
|
||
m_pMListBmp->Canvas->Draw(n*32, 0, m_pMLSrcBmp);
|
||
m_pMListBmp->Modified = TRUE;
|
||
PBoxMListPaint(NULL);
|
||
}
|
||
}
|
||
else if( Source == PBoxMList ){
|
||
X = GetMLIndex(X, Y);
|
||
if( (X >= 0) && (X != m_MLIndex) ){
|
||
Graphics::TBitmap *pBmp = CreateBitmap(32, 32);
|
||
Graphics::TBitmap *pBmp2 = CreateBitmap(32, 32);
|
||
pBmp->Canvas->Draw(-m_MLIndex*32, 0, m_pMListBmp);
|
||
pBmp2->Canvas->Draw(-X*32, 0, m_pMListBmp);
|
||
m_pMListBmp->Canvas->Draw(X*32, 0, pBmp);
|
||
m_pMListBmp->Canvas->Draw(m_MLIndex*32, 0, pBmp2);
|
||
delete pBmp;
|
||
delete pBmp2;
|
||
m_pMListBmp->Modified = TRUE;
|
||
PBoxMListPaint(NULL);
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMListDragOver(TObject *Sender,
|
||
TObject *Source, int X, int Y, TDragState State, bool &Accept)
|
||
{
|
||
Accept = FALSE;
|
||
if( Source == PBoxMLSrc ){
|
||
if( GetMLIndex(X, Y) >= 0 ){
|
||
Accept = TRUE;
|
||
}
|
||
}
|
||
else if( Source == PBoxMList ){
|
||
X = GetMLIndex(X, Y);
|
||
if( (X >= 0) && (X != m_MLIndex) ){
|
||
Accept = TRUE;
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMLSrcMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( !m_pMLSrcBmp ) return;
|
||
|
||
if( Button == mbLeft ){
|
||
DrawBmpPBoxBtn(PBoxMLSrc->Canvas, 0, 0, 32, TRUE);
|
||
if( m_Item.m_pMaskBmp ){
|
||
if( !IsSameBitmap(m_pMLSrcBmp, m_Item.m_pMaskBmp) ){
|
||
CopyBitmap(m_pMaskBmp, m_pMLSrcBmp);
|
||
UpdateMaskSrc(TRUE);
|
||
}
|
||
}
|
||
::Sleep(100);
|
||
DrawBmpPBoxBtn(PBoxMLSrc->Canvas, 0, 0, 32, FALSE);
|
||
PBoxMLSrc->BeginDrag(FALSE);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMLSrcDragOver(TObject *Sender,
|
||
TObject *Source, int X, int Y, TDragState State, bool &Accept)
|
||
{
|
||
Accept = (Source == PBoxMList) && (m_MLIndex >= 0);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PBoxMLSrcDragDrop(TObject *Sender,
|
||
TObject *Source, int X, int Y)
|
||
{
|
||
if( (Source == PBoxMList) && (m_MLIndex >= 0) ){
|
||
m_pMLSrcBmp->Canvas->Draw(-m_MLIndex*32, 0, m_pMListBmp);
|
||
Graphics::TBitmap *pBmp = CreateBitmap(32, 32);
|
||
FillBitmap(pBmp, clBlack);
|
||
m_pMListBmp->Canvas->Draw(m_MLIndex*32, 0, pBmp);
|
||
delete pBmp;
|
||
m_pMListBmp->Modified = TRUE;
|
||
PBoxMListPaint(NULL);
|
||
PBoxMLSrcPaint(NULL);
|
||
}
|
||
}
|
||
#if 0
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::DrawCrack(TCanvas *pCanvas, int xw, int yw, double &x, double &y, double &dir)
|
||
{
|
||
#if 0
|
||
if( !(rand() % 32) ){
|
||
double xs = x;
|
||
double ys = y;
|
||
double ds = dir + 90;
|
||
for( int i = 0; i < 8; i++ ){
|
||
DrawCrack(pCanvas, xw, yw, xs, ys, ds);
|
||
}
|
||
}
|
||
#endif
|
||
|
||
double d = dir * 3.1415926535 / 180.0;
|
||
|
||
UCOL c;
|
||
double d1 = d + 0.78539816339744830961566084581988;
|
||
double d2 = d - 0.78539816339744830961566084581988;
|
||
int xx, yy;
|
||
xx = cos(d1); yy = sin(d1);
|
||
c.c = pCanvas->Pixels[x+xx][y+yy];
|
||
c.b.b /= 2; c.b.r /= 2; c.b.g /= 2;
|
||
pCanvas->Pixels[x+xx][y+yy] = c.c;
|
||
|
||
xx = cos(d2); yy = sin(d2);
|
||
c.c = pCanvas->Pixels[x+xx][y+yy];
|
||
c.b.b /= 2; c.b.r /= 2; c.b.g /= 2;
|
||
pCanvas->Pixels[x+xx][y+yy] = c.c;
|
||
|
||
pCanvas->Pixels[x][y] = clBlack;
|
||
|
||
x += cos(d);
|
||
y += sin(d);
|
||
if( !(rand() % 2) ) dir += (15 - (rand() % 30));
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::CreateCrack(void)
|
||
{
|
||
TCanvas *pCanvas = m_pMaskBmp->Canvas;
|
||
int xw = m_pMaskBmp->Width;
|
||
int yw = m_pMaskBmp->Height;
|
||
int max = sqrt(xw*xw + yw*yw);
|
||
for( int i = 0; i < max/16; i++ ){
|
||
double x = rand() % xw;
|
||
double y = rand() % yw;
|
||
double deg = rand() % 360;
|
||
for( int j = 0; j < max; j++ ){
|
||
DrawCrack(pCanvas, xw, yw, x, y, deg);
|
||
}
|
||
}
|
||
UpdateMaskSrc(FALSE);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBMEditClick(TObject *Sender)
|
||
{
|
||
char name[256];
|
||
wsprintf(name, "%s$TextArt.bmp", sys.m_BgnDir);
|
||
// m_MaskTempName = name;
|
||
Graphics::TBitmap *pBmp;
|
||
if( !m_pMaskBmp ){
|
||
pBmp = CreateBitmap(32, 32);
|
||
FillBitmap(pBmp, clBlack);
|
||
pBmp->SaveToFile(name);
|
||
delete pBmp;
|
||
}
|
||
else {
|
||
m_pMaskBmp->SaveToFile(name);
|
||
}
|
||
ExecPB(name);
|
||
}
|
||
#endif
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBMEditClick(TObject *Sender)
|
||
{
|
||
CWaitCursor w;
|
||
|
||
m_ExecPBCount = 0;
|
||
m_ExecPB = FALSE;
|
||
Timer->Enabled = FALSE;
|
||
QuitPB(TRUE);
|
||
|
||
char name[256];
|
||
wsprintf(name, "%sTextArt$.bmp", sys.m_BgnDir);
|
||
m_MaskTempName = name;
|
||
Graphics::TBitmap *pBmp;
|
||
if( !m_pMaskBmp ){
|
||
pBmp = CreateBitmap(32, 32);
|
||
FillBitmap(pBmp, clBlack);
|
||
pBmp->SaveToFile(name);
|
||
delete pBmp;
|
||
}
|
||
else {
|
||
m_pMaskBmp->SaveToFile(name);
|
||
}
|
||
ExecPB(name);
|
||
for( int i = 0; i < 100; i++ ){
|
||
::Sleep(100);
|
||
if( IsPB() ){
|
||
m_ExecPB = 1;
|
||
Timer->Enabled = TRUE;
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::OnActivateApp(TMessage Message)
|
||
{
|
||
if( m_ExecPB ){
|
||
m_ExecPBCount = -6; // 3[s] continued check
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::QuitPB(BOOL fWait)
|
||
{
|
||
HWND hWndA = NULL;
|
||
while(1){
|
||
HWND hWnd = IsPB();
|
||
if( (hWnd != NULL) && (hWnd != hWndA) ){
|
||
hWndA = hWnd;
|
||
::PostMessage(hWnd, WM_QUIT, 0, 0);
|
||
if( fWait ){
|
||
for( int i = 0; i < 30; i++ ){
|
||
::Sleep(100);
|
||
MultProc();
|
||
if( IsPB() != hWnd ) break;
|
||
}
|
||
}
|
||
else {
|
||
break;
|
||
}
|
||
}
|
||
else {
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
BOOL __fastcall TTextDlgBox::CheckPBFinished(void)
|
||
{
|
||
if( !m_ExecPB ) return FALSE;
|
||
|
||
if( !IsPB() ){ // <20>y<EFBFBD>C<EFBFBD><43><EFBFBD>g<EFBFBD>u<EFBFBD><75><EFBFBD>V<EFBFBD>̏I<CC8F><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>o
|
||
m_ExecPB = FALSE;
|
||
Timer->Enabled = FALSE;
|
||
LoadEditedMask();
|
||
return TRUE;
|
||
}
|
||
else {
|
||
return FALSE;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::LoadEditedMask(void)
|
||
{
|
||
Graphics::TBitmap *pBmp = new Graphics::TBitmap;
|
||
try {
|
||
pBmp->LoadFromFile(m_MaskTempName);
|
||
}
|
||
catch(...){
|
||
}
|
||
BOOL f = FALSE;
|
||
if( !m_pMaskBmp ){
|
||
f = TRUE;
|
||
m_pMaskBmp = CreateBitmap(32, 32);
|
||
FillBitmap(m_pMaskBmp, clBlack);
|
||
}
|
||
if( !IsSameBitmap(pBmp, m_pMaskBmp) ){
|
||
CopyBitmap(m_pMaskBmp, pBmp);
|
||
UpdateMaskSrc(FALSE);
|
||
}
|
||
else if( f ){
|
||
delete m_pMaskBmp;
|
||
m_pMaskBmp = NULL;
|
||
}
|
||
delete pBmp;
|
||
::DeleteFile(m_MaskTempName.c_str());
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
static void __fastcall DrawPtn(TCanvas *pCanvas, int X, int Y, int xw, int yw, int w, int max, BOOL sw)
|
||
{
|
||
const COLORREF tt[]={
|
||
RGB(0,0,255), RGB(0,255,0), RGB(0,255,255), RGB(255,0,0),
|
||
RGB(255,0,255), RGB(255,255,0), RGB(255,0,0), RGB(255,255,0)
|
||
};
|
||
int x, y, i;
|
||
UCOL c;
|
||
POINT P[10];
|
||
if( sw == 3 ) w+=4;
|
||
for( i = 0; i < max; i++ ){
|
||
x = X + (rand() % xw);
|
||
y = Y + (rand() % yw);
|
||
c.d = tt[rand()%AN(tt)];
|
||
pCanvas->Pen->Color = (w < 3) ? c.c : clBlack;
|
||
pCanvas->Brush->Color = c.c;
|
||
switch(sw){
|
||
case 0:
|
||
pCanvas->Ellipse(x-w, y-w, x+w, y+w);
|
||
break;
|
||
case 1:
|
||
pCanvas->Rectangle(x-w, y-w, x+w, y+w);
|
||
break;
|
||
case 2:
|
||
P[0].x = x-w/3;
|
||
P[0].y = y-w;
|
||
P[1].x = x-w;
|
||
P[1].y = y;
|
||
P[2].x = x-w/3;
|
||
P[2].y = y+w;
|
||
P[3].x = x+w/3;
|
||
P[3].y = y+w;
|
||
P[4].x = x+w;
|
||
P[4].y = y;
|
||
P[5].x = x+w/3;
|
||
P[5].y = y-w;
|
||
pCanvas->Polygon(P, 5);
|
||
break;
|
||
case 3:
|
||
P[0].x = x;
|
||
P[0].y = y-w;
|
||
P[1].x = x-w/3;
|
||
P[1].y = y-w/3;
|
||
P[2].x = x-w;
|
||
P[2].y = y-w/3;
|
||
P[3].x = x-w/2;
|
||
P[3].y = y+w/4;
|
||
P[4].x = x-w*2/3;
|
||
P[4].y = y+w;
|
||
P[5].x = x;
|
||
P[5].y = y+w/2;
|
||
P[6].x = x+w*2/3;
|
||
P[6].y = y+w;
|
||
P[7].x = x+w/2;
|
||
P[7].y = y+w/4;
|
||
P[8].x = x+w;
|
||
P[8].y = y-w/3;
|
||
P[9].x = x+w/3;
|
||
P[9].y = y-w/3;
|
||
pCanvas->Polygon(P, 9);
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
static void __fastcall SetBrushColor(COLORREF ttm[4], int sw)
|
||
{
|
||
if( sw ){
|
||
const COLORREF ttc[][4]={
|
||
{RGB(0,0,255), RGB(255,255,0), RGB(255,0,0), RGB(0,255,0),},
|
||
{RGB(0,0,255), RGB(255,255,0), RGB(255,0,0), RGB(0,255,255),},
|
||
{RGB(0,0,0), RGB(255,255,0), RGB(255,0,0), RGB(0,255,0),},
|
||
{RGB(0,0,0), RGB(255,255,0), RGB(255,0,0), RGB(0,255,255),},
|
||
{RGB(255,0,0), RGB(0,255,255), RGB(0,0,0), RGB(0,255,0),},
|
||
{RGB(255,255,0), RGB(0,255,255), RGB(255,0,0), RGB(0,0,255),},
|
||
};
|
||
|
||
static int N = 0;
|
||
memcpy(ttm, ttc[N], sizeof(COLORREF)*4);
|
||
N++;
|
||
if( N >= AN(ttc) ) N = 0;
|
||
}
|
||
else {
|
||
const COLORREF tt[]={
|
||
RGB(0,255,0), RGB(0,255,255), RGB(255,0,0),
|
||
RGB(255,0,255), RGB(255,255,0), RGB(255,0,0), RGB(255,255,0),
|
||
RGB(255,255,255)
|
||
};
|
||
COLORREF c = 0;
|
||
for( int i = 0; i < 4; i++ ){
|
||
while(1){
|
||
ttm[i] = tt[rand() % AN(tt)];
|
||
if( c != ttm[i] ) break;
|
||
}
|
||
c = ttm[i];
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
static UCOL __fastcall GetGradeColor(UCOL c, int sw)
|
||
{
|
||
switch(sw%4){
|
||
case 1:
|
||
case 2:
|
||
c.b.r = (BYTE)(c.b.r * 2 / 3);
|
||
c.b.g = (BYTE)(c.b.g * 2 / 3);
|
||
c.b.b = (BYTE)(c.b.b * 2 / 3);
|
||
break;
|
||
case 3:
|
||
c.b.r = (BYTE)(c.b.r / 2);
|
||
c.b.g = (BYTE)(c.b.g / 2);
|
||
c.b.b = (BYTE)(c.b.b / 2);
|
||
break;
|
||
}
|
||
return c;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
static void __fastcall DrawBrush(TCanvas *pCanvas, COLORREF ttm[4], int X, int Y, int xw, int yw, int sw)
|
||
{
|
||
int x, y, v, w;
|
||
UCOL c;
|
||
for( y = Y; y < Y+yw; y++ ){
|
||
for( x = X; x < X+xw; x++ ){
|
||
switch(sw){
|
||
case 0:
|
||
case 4:
|
||
v = (y/4);
|
||
w = y;
|
||
break;
|
||
case 1:
|
||
case 5:
|
||
v = (x/4);
|
||
w = x;
|
||
break;
|
||
case 2:
|
||
case 6:
|
||
v = (x+y)/4;
|
||
w = x + y;
|
||
break;
|
||
case 3:
|
||
case 7:
|
||
v = (x-y+1024)/4;
|
||
w = x-y+1024;
|
||
break;
|
||
}
|
||
c.d = ttm[v % 4];
|
||
if( sw < 4 ) c = GetGradeColor(c, w);
|
||
pCanvas->Pixels[x][y] = c.c;
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBPtnMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( (Button != mbLeft) && (Button != mbRight) ) return;
|
||
|
||
CWaitCursor w;
|
||
|
||
int xw = PBoxSrc->Width;
|
||
int yw = PBoxSrc->Height;
|
||
|
||
Graphics::TBitmap *pBmp = CreateBitmap(xw, yw);
|
||
if( m_pMaskBmp ){
|
||
int x, y;
|
||
for( y = 0; y < yw; y += m_pMaskBmp->Height){
|
||
for( x = 0; x < xw; x += m_pMaskBmp->Width ){
|
||
pBmp->Canvas->Draw(x, y, m_pMaskBmp);
|
||
}
|
||
}
|
||
}
|
||
else {
|
||
FillBitmap(pBmp, clBlack);
|
||
}
|
||
|
||
xw = (xw*10+5)/30;
|
||
yw = (yw*10+5)/20;
|
||
int sw = (Button != mbLeft) ? 1 : 0;
|
||
TCanvas *pCanvas = pBmp->Canvas;
|
||
int max = xw * yw;
|
||
int sww = sw * 2;
|
||
DrawPtn(pCanvas, 0, 0, xw, yw, 2, max/16, sww);
|
||
DrawPtn(pCanvas, 0, 0, xw, yw, 3, max/16, sww);
|
||
DrawPtn(pCanvas, 0, 0, xw, yw, 4, max/256, sww);
|
||
DrawPtn(pCanvas, 0, 0, xw, yw, 5, max/1024, sww);
|
||
|
||
DrawPtn(pCanvas, 0, yw, xw, yw, 2, max/16, 1+sww);
|
||
DrawPtn(pCanvas, 0, yw, xw, yw, 3, max/16, 1+sww);
|
||
DrawPtn(pCanvas, 0, yw, xw, yw, 4, max/256, 1+sww);
|
||
DrawPtn(pCanvas, 0, yw, xw, yw, 5, max/1024, 1+sww);
|
||
|
||
COLORREF ttm[4];
|
||
SetBrushColor(ttm, sw);
|
||
sww *= 2;
|
||
DrawBrush(pCanvas, ttm, xw, 0, xw, yw, 0 + sww);
|
||
DrawBrush(pCanvas, ttm, xw, yw, xw, yw, 1 + sww);
|
||
DrawBrush(pCanvas, ttm, xw+xw, 0, xw, yw, 2 + sww);
|
||
DrawBrush(pCanvas, ttm, xw+xw, yw, xw, yw, 3 + sww);
|
||
|
||
if( m_pMaskBmp ) delete m_pMaskBmp;
|
||
m_pMaskBmp = pBmp;
|
||
m_MaskXW = m_MaskYW = 32;
|
||
UpdateMaskSrc(FALSE);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBG1Click(TObject *Sender)
|
||
{
|
||
CItem *pItem = &m_Item;
|
||
if( SBG1->Down ){
|
||
pItem->m_Grade = 0;
|
||
}
|
||
else if( SBG2->Down ){
|
||
pItem->m_Grade = 1;
|
||
}
|
||
else if( SBG3->Down ){
|
||
pItem->m_Grade = 2;
|
||
}
|
||
else if( SBG4->Down ){
|
||
pItem->m_Grade = 3;
|
||
}
|
||
else {
|
||
pItem->m_Grade = 4;
|
||
}
|
||
UpdateDialog(&m_Item);
|
||
SBGClick(NULL);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
TPanel* __fastcall TTextDlgBox::GetPG(int index)
|
||
{
|
||
TPanel *_tt[]={PG1, PG2, PG3, PG4, PG5, PG6};
|
||
return _tt[index % 6];
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBGRevClick(TObject *Sender)
|
||
{
|
||
TColor c[6];
|
||
int m = SBG5->Down ? 6 : 4;
|
||
int i;
|
||
for( i = 0; i < m; i++ ) c[i] = GetPG(i)->Color;
|
||
for( i = 0; i < m; i++ ) GetPG(m-i-1)->Color = c[i];
|
||
SBGClick(NULL);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBGRotClick(TObject *Sender)
|
||
{
|
||
int i;
|
||
int m = SBG5->Down ? 5 : 3;
|
||
TColor c = GetPG(0)->Color;
|
||
for( i = 0; i < m; i++ ) GetPG(i)->Color = GetPG(i+1)->Color;
|
||
GetPG(i)->Color = c;
|
||
SBGClick(NULL);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBGRandClick(TObject *Sender)
|
||
{
|
||
UCOL c[6];
|
||
UCOL cc;
|
||
int i, j, f, n;
|
||
|
||
cc.d = 0;
|
||
for( i = 0; i < 6; i++ ){
|
||
do {
|
||
n = rand() % 7;
|
||
n++;
|
||
if( (n==7) && (rand()&7) ) n = (rand()%6)+1;
|
||
cc.b.r = BYTE(n & 1 ? 255 : 0);
|
||
cc.b.g = BYTE(n & 2 ? 255 : 0);
|
||
cc.b.b = BYTE(n & 4 ? 255 : 0);
|
||
f = FALSE;
|
||
for( j = 0; j < i; j++ ){
|
||
if( cc.d == c[j].d ){
|
||
f = TRUE;
|
||
break;
|
||
}
|
||
}
|
||
} while (f);
|
||
c[i] = cc;
|
||
GetPG(i)->Color = cc.c;
|
||
}
|
||
SBGClick(NULL);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBGAClick(TObject *Sender)
|
||
{
|
||
const COLORREF tt[]={
|
||
RGB(255,0,0), RGB(255,255,0), RGB(0,255,0), RGB(0,255,255), RGB(0,0,255), RGB(255,0,255),
|
||
};
|
||
|
||
int i;
|
||
const COLORREF *p = tt;
|
||
for( i = 0; i < 6; i++, p++ ){
|
||
GetPG(i)->Color = TColor(*p);
|
||
}
|
||
SBGClick(NULL);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::SBLClick(TObject *Sender)
|
||
{
|
||
if( !sys.m_CodeLeft ) sys.m_CodeLeft = Left - 120;
|
||
if( !sys.m_CodeTop ) sys.m_CodeTop = Top + 110;
|
||
if( !m_pCodeView ){
|
||
m_pCodeView = new TCodeView(this);
|
||
}
|
||
m_pCodeView->Execute((HWND)Handle, m_Item.m_pFont);
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::OnCodeViewClose(TMessage Message)
|
||
{
|
||
if( Message.LParam == int(m_pCodeView) ){
|
||
TCodeView *pView = m_pCodeView;
|
||
m_pCodeView = NULL;
|
||
delete pView;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::OnCodeInsert(TMessage Message)
|
||
{
|
||
if( Message.LParam != int(m_pCodeView) ) return;
|
||
|
||
switch(Message.WParam){
|
||
case 0xfffffff0:
|
||
case 0xfffffff1:
|
||
case 0xfffffff2:
|
||
case 0xfffffff3:
|
||
case 0xfffffff4:
|
||
case 0xfffffff5:
|
||
case 0xfffffff6:
|
||
case 0xfffffff7:
|
||
if( m_Item.m_pFont != NULL ){
|
||
TFont *pFont = m_Item.m_pFont;
|
||
int dfs = 0;
|
||
switch(Message.WParam & 7){
|
||
case 0:
|
||
pFont->Name = "Webdings";
|
||
pFont->Charset = 2;
|
||
break;
|
||
case 1:
|
||
pFont->Name = "Wingdings";
|
||
pFont->Charset = 2;
|
||
break;
|
||
case 2:
|
||
pFont->Name = "Symbol";
|
||
pFont->Charset = 2;
|
||
break;
|
||
case 3:
|
||
pFont->Name = "Arial";
|
||
pFont->Charset = ANSI_CHARSET;
|
||
dfs = FSBOLD;
|
||
break;
|
||
case 4:
|
||
pFont->Name = sys.m_MsgEng ? "MS UI Gothic" : "<EFBFBD>l<EFBFBD>r <20>o<EFBFBD>S<EFBFBD>V<EFBFBD>b<EFBFBD>N";
|
||
pFont->Charset = SHIFTJIS_CHARSET;
|
||
dfs = FSBOLD;
|
||
break;
|
||
case 5:
|
||
pFont->Name = "DotumChe";
|
||
pFont->Charset = HANGEUL_CHARSET;
|
||
if( !sys.m_tFontFam[fmHL] && sys.m_tFontFam[fmJOHAB] ){
|
||
pFont->Charset = JOHAB_CHARSET;
|
||
}
|
||
dfs = FSBOLD;
|
||
break;
|
||
case 6:
|
||
pFont->Name = "SimHei";
|
||
pFont->Charset = 134;
|
||
dfs = FSBOLD;
|
||
break;
|
||
case 7:
|
||
pFont->Name = "PMingLiU";
|
||
pFont->Charset = CHINESEBIG5_CHARSET;
|
||
dfs = FSBOLD;
|
||
break;
|
||
}
|
||
TFontStyles fs;
|
||
fs = Code2FontStyle(dfs);
|
||
pFont->Style = fs;
|
||
m_Item.UpdateFont();
|
||
UpdateMemoFont(m_Item.m_pFont->Charset);
|
||
UpdateBitmap();
|
||
}
|
||
break;
|
||
case 0xfffffffe:
|
||
::SetWindowPos(m_pCodeView->Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);
|
||
// m_pCodeView->Visible = FALSE;
|
||
FontBtnClick(NULL);
|
||
::SetWindowPos(m_pCodeView->Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);
|
||
// m_pCodeView->Visible = TRUE;
|
||
break;
|
||
case 0xffffffff:
|
||
Memo->Clear();
|
||
SBGClick(NULL);
|
||
break;
|
||
default:
|
||
if( Message.WParam ){
|
||
if( Page->ActivePage != TabChar ) Page->ActivePage = TabChar;
|
||
HWND hWnd;
|
||
Memo->SetFocus();
|
||
hWnd = Memo->Handle;
|
||
char bf[16];
|
||
if( Message.WParam & 0x00ff0000 ){
|
||
wsprintf(bf, "\\$%04x", Message.WParam & 0x00ffff);
|
||
}
|
||
else if( Message.WParam & 0x00ff00 ){
|
||
bf[0] = BYTE(Message.WParam >> 8);
|
||
bf[1] = BYTE(Message.WParam);
|
||
bf[2] = 0;
|
||
}
|
||
else if( (Message.WParam == 0x0d) || (Message.WParam == 0x0a) ){
|
||
bf[0] = 0x0d; bf[1] = 0;
|
||
}
|
||
else if( (Message.WParam != '%') && ((Message.WParam >= 0x20) && (Message.WParam <= 0x7f)) ){
|
||
bf[0] = (char)Message.WParam; bf[1] = 0;
|
||
}
|
||
else {
|
||
wsprintf(bf, "\\x%02x", Message.WParam);
|
||
}
|
||
for( LPCSTR p = bf; *p; p++ ){
|
||
::PostMessage(hWnd, WM_CHAR, *p & 0x00ff, 0);
|
||
}
|
||
}
|
||
break;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TTextDlgBox::PageChange(TObject *Sender)
|
||
{
|
||
if( !m_pCodeView ) return;
|
||
|
||
m_pCodeView->Visible = (Page->ActivePage == TabChar) ? TRUE : FALSE;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
|