//--------------------------------------------------------------------------- #include #include #include #pragma hdrstop #include "Config_F.h" #include "Define.h" #include "ProtectCard.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "TPSpin" #pragma resource "*.dfm" //---------------------------------------------------------------------- TConfigForm *ConfigForm; #ifndef LOCK_CRYPKEY #ifndef LOCK_IFC int Password[4]; #endif #endif //--------------------------------------------------------------------------- __fastcall TConfigForm::TConfigForm(TComponent* Owner) : TForm(Owner) { AnsiString Regeditdir; TRegIniFile *RegeditDIR; TRegIniFile *RegIniFile = new TRegIniFile(RegFilename); RegIniFile->RootKey = HKEY_LOCAL_MACHINE; RegIniFile->OpenKey("SOFTWARE\\YoungWoo\\TexPro\\8.01\\",true); RegeditDIR = new TRegIniFile(RegFilename); RegeditDIR->RootKey = HKEY_LOCAL_MACHINE; RegeditDIR->OpenKey("SOFTWARE\\YoungWoo\\Texpro\\8.01\\",true); Regeditdir = RegeditDIR->ReadString("Directory", "Defaultdir", "" ); delete RegeditDIR; DefaultDir = Regeditdir; //============================================= 2001.5.23 by lhskys windows version 알아내기... /* AnsiString version; TRegIniFile *RegIniFile1; RegIniFile1 = new TRegIniFile(RegFilename); version = RegIniFile1->ReadString("Common", "Windows Version", "" ); if(version == ""){ AnsiString S; TRegistry *Registry = new TRegistry; try { Registry->RootKey = HKEY_LOCAL_MACHINE; Registry->OpenKey("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\",false); S = Registry->ReadString("ProductName"); if(S == ""){ Registry->OpenKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\",false); S = Registry->ReadString("ProductName"); } } __finally { delete Registry; } TRegIniFile *RegIniFile; RegIniFile = new TRegIniFile(RegFilename); if (RegIniFile){ if ( S == "Microsoft Windows 98" )RegIniFile->WriteString("Common", "Windows Version", "98"); else if ( S == "Microsoft Windows 2000" )RegIniFile->WriteString("Common", "Windows Version", "2000"); } } delete RegIniFile1;*/ OSVERSIONINFO osvi; osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); GetVersionEx(&osvi); osVERSION = osvi.dwPlatformId; //============================================== //======================== 2001.4.17 lhskys FormCreate(TObject *Sender)내용 옮김 LoadFromRegIniFile(); #ifdef LOCK_CRYPKEY lbNumber->Visible = false; #ifdef ACADEMY lbMethod->Caption = "Method : Using Software (Academy)"; lbTexture->Enabled = true; edTexture->Enabled = true; #else #ifdef EDUCATION lbMethod->Caption = "Method : Using Software (Education)"; #endif #ifdef DEMO lbMethod->Caption = "Method : Using Software (Demo)"; #endif #ifdef PROFESSIONAL lbMethod->Caption = "Method : Using Software (Professional)"; #endif #ifdef KNIT lbStitch->Enabled = true; edStitch->Enabled = true; #endif #ifdef TEXTILE lbStyle->Enabled = true; edStyle->Enabled = true; lbTexture->Enabled = true; edTexture->Enabled = true; lbAfter->Enabled = true; edAfter->Enabled = true; #endif #ifdef WEAVE lbTexture->Enabled = true; edTexture->Enabled = true; lbYarn->Enabled = true; edYarn->Enabled = true; #endif #endif #else #ifdef LOCK_IFC if ((ProtectCard = new TProtectCard) == NULL) goto fail; #ifdef ACADEMY if (!ProtectCard->Init()) { ShowMessage("Error : Interface card doesn't exist."); goto fail; } Items = 1; lbMethod->Caption = "Method : Interface Card ( Academy )"; lbNumber->Visible = false; #else if ((Items = ProtectCard->Init(RegFilename)) == 0) { ShowMessage("Error : Interface card doesn't exist."); goto fail; } lbMethod->Caption = "Method : Interface Card ( Professional )"; lbNumber->Caption = Format("Version : %d", OPENARRAY(TVarRec, (ProtectCard->Version()))); #endif delete ProtectCard; #else ProtectCard = new TProtectCard; if ((Items = ProtectCard->Init(Password)) < 1) { ShowMessage(Format("Error(%d) : Interface card doesn't exist.", OPENARRAY(TVarRec, (Items)))); goto fail; } lbMethod->Caption = "Method : HASP"; lbNumber->Caption = Format("Serial No. : %d-%d-%d-%d", OPENARRAY(TVarRec, (Password[0], Password[1], Password[2], Password[3]))); delete ProtectCard; #endif if (Items&4) { lbStitch->Enabled = true; edStitch->Enabled = true; } if (Items&1) { lbStyle->Enabled = true; edStyle->Enabled = true; lbAfter->Enabled = true; edAfter->Enabled = true; } if ((Items&1) || (Items&2)) { lbTexture->Enabled = true; edTexture->Enabled = true; } if (Items&2) { lbYarn->Enabled = true; edYarn->Enabled = true; } #endif // lock_crypkey Tablet = new TTablet(); Tablet->Init(Handle, NULL); if (Tablet->IsDevice()) { tsTablet->Enabled = true; lbName->Caption = "Name : " + Tablet->GetDeviceName(); lbMaximum->Caption = "Maximum : " + IntToStr(Tablet->MaxNPressure); MaxNPressure = Tablet->MaxNPressure; TRegIniFile *RegIniFile = new TRegIniFile(RegFilename); RegIniFile->RootKey = HKEY_LOCAL_MACHINE; RegIniFile->OpenKey("SOFTWARE\\YoungWoo\\Texpro\\8.01\\",true); if (RegIniFile) { MaxNPressure = StrToInt(RegIniFile->ReadString("Common", "MaxNPressure", IntToStr(MaxNPressure))); delete RegIniFile; } lbCurrent->Caption = "Current : " + IntToStr(MaxNPressure); } //========================================= 2001.4..23 by lhskys Congi 추가 TPanel1->Visible = true; TREG_Size = RegIniFile->ReadString("Common", "TREG_Size", "cstA4" ); if(TREG_Size == "cstA4")TA4->Checked = true; else if(TREG_Size == "cstA3")TA3->Checked = true; else if(TREG_Size == "cstA2")TA2->Checked = true; else if(TREG_Size == "cstA1")TA1->Checked = true; else if(TREG_Size == "cstA0")TA0->Checked = true; else if(TREG_Size == "cstLetter")TLetter->Checked = true; else if(TREG_Size == "cstLegal")TLegal->Checked = true; else if(TREG_Size == "cstTabloid")TTabloid->Checked = true; else TA4->Checked = true; WREG_Size = RegIniFile->ReadString("Common", "WREG_Size", "cstA4" ); if(WREG_Size == "cstA4")WA4->Checked = true; else if(WREG_Size == "cstA3")WA3->Checked = true; else if(WREG_Size == "cstA2")WA2->Checked = true; else if(WREG_Size == "cstA1")WA1->Checked = true; else if(WREG_Size == "cstA0")WA0->Checked = true; else if(WREG_Size == "cstLetter")WLetter->Checked = true; else if(WREG_Size == "cstLegal")WLegal->Checked = true; else if(WREG_Size == "cstTabloid")WTabloid->Checked = true; else WA4->Checked = true; KREG_Size = RegIniFile->ReadString("Common", "KREG_Size", "cstA4" ); if(KREG_Size == "cstA4")KA4->Checked = true; else if(KREG_Size == "cstA3")KA3->Checked = true; else if(KREG_Size == "cstA2")KA2->Checked = true; else if(KREG_Size == "cstA1")KA1->Checked = true; else if(KREG_Size == "cstA0")KA0->Checked = true; else if(KREG_Size == "cstLetter")KLetter->Checked = true; else if(KREG_Size == "cstLegal")KLegal->Checked = true; else if(KREG_Size == "cstTabloid")KTabloid->Checked = true; else KA4->Checked = true; TPanel2->Visible = true; TUnits = RegIniFile->ReadString("Common", "TUnits", "uCm" ); if(TUnits == "uCm")TCm->Checked = true; else if(TUnits == "uInch")TInch->Checked = true; else if(TUnits == "uDot")TDot->Checked = true; else TCm->Checked = true; WUnits = RegIniFile->ReadString("Common", "WUnits", "uCm" ); if(WUnits == "uCm")WCm->Checked = true; else if(WUnits == "uInch")WInch->Checked = true; else WCm->Checked = true; KUnits = RegIniFile->ReadString("Common", "KUnits", "uCm" ); if(KUnits == "uCm")KCm->Checked = true; else if(KUnits == "uInch")KInch->Checked = true; else if(KUnits == "uDot")KDot->Checked = true; else KCm->Checked = true; //========================================= return; #ifndef LOCK_CRYPKEY fail: if (ProtectCard) delete ProtectCard; Application->Terminate(); #endif //======================== 2001.4.17 lhskys FormCreate(TObject *Sender)내용 옮김 } //--------------------------------------------------------------------------- void __fastcall TConfigForm::FormCreate(TObject *Sender) { //======= 2001.4.17 lhskys FormCreate(TObject *Sender)=>TConfigForm 로 내용 옮김 } /* void __fastcall TConfigForm::FormCreate(TObject *Sender) { LoadFromRegIniFile(); #ifdef LOCK_IFC if ((ProtectCard = new TProtectCard) == NULL) goto fail; #ifdef ACADEMY if (!ProtectCard->Init()) { ShowMessage("Error : Interface card doesn't exist."); goto fail; } Items = 1; lbMethod->Caption = "Method : Interface Card ( Academy )"; lbNumber->Visible = false; #else if ((Items = ProtectCard->Init(RegFilename)) == 0) { ShowMessage("Error : Interface card doesn't exist."); goto fail; } lbMethod->Caption = "Method : Interface Card ( Professional )"; lbNumber->Caption = Format("Version : %d", OPENARRAY(TVarRec, (ProtectCard->Version()))); #endif delete ProtectCard; #else ProtectCard = new TProtectCard; if ((Items = ProtectCard->Init(Password)) < 1) { ShowMessage(Format("Error(%d) : Interface card doesn't exist.", OPENARRAY(TVarRec, (Items)))); goto fail; } lbMethod->Caption = "Method : HASP"; lbNumber->Caption = Format("Serial No. : %d-%d-%d-%d", OPENARRAY(TVarRec, (Password[0], Password[1], Password[2], Password[3]))); delete ProtectCard; #endif if (Items&4) { lbStitch->Enabled = true; edStitch->Enabled = true; } if (Items&1) { lbStyle->Enabled = true; edStyle->Enabled = true; lbAfter->Enabled = true; edAfter->Enabled = true; } if ((Items&1) || (Items&2)) { lbTexture->Enabled = true; edTexture->Enabled = true; } if (Items&2) { lbYarn->Enabled = true; edYarn->Enabled = true; } Tablet = new TTablet(); Tablet->Init(Handle, NULL); if (Tablet->IsDevice()) { tsTablet->Enabled = true; lbName->Caption = "Name : " + Tablet->GetDeviceName(); lbMaximum->Caption = "Maximum : " + IntToStr(Tablet->MaxNPressure); MaxNPressure = Tablet->MaxNPressure; TRegIniFile *RegIniFile = new TRegIniFile(RegFilename); if (RegIniFile) { MaxNPressure = StrToInt(RegIniFile->ReadString("Common", "MaxNPressure", IntToStr(MaxNPressure))); delete RegIniFile; } lbCurrent->Caption = "Current : " + IntToStr(MaxNPressure); } return; fail: if (ProtectCard) delete ProtectCard; Application->Terminate(); } */ //--------------------------------------------------------------------------- void __fastcall TConfigForm::FormDestroy(TObject *Sender) { if (Tablet) delete Tablet; } //--------------------------------------------------------------------------- void __fastcall TConfigForm::FontButtonClick(TObject *Sender) { if (FontDialog->Execute()) { DefaultFontName = FontDialog->Font->Name; stFont->Caption = DefaultFontName; } } //--------------------------------------------------------------------------- void __fastcall TConfigForm::rbLanguageClick(TObject *Sender) { TRadioButton *rb = (TRadioButton *)Sender; if (rb==rbEnglish) Language = "English"; else if (rb==rbHangul) Language = "Hangul"; else if (rb==rbTaiwanese) Language = "Taiwanese"; else if (rb==rbChinese) Language = "Chinese"; else if (rb==rbThai) Language = "Thai"; else if (rb==rbJapanese) Language = "Japanese"; else if (rb==rbIndona) Language = "Indonatian"; } //--------------------------------------------------------------------------- void __fastcall TConfigForm::btnResetClick(TObject *Sender) { MaxNPressure = 0; lbCurrent->Caption = "Current : " + IntToStr(MaxNPressure); } //--------------------------------------------------------------------------- void __fastcall TConfigForm::btOKClick(TObject *Sender) { SaveToRegIniFile(); TDPIChange(); // WDPIChange(); KDPIChange(); //============================================= 2001.5.23 by lhskys windows version 알아내기... /* AnsiString version; TRegIniFile *RegIniFile; RegIniFile = new TRegIniFile(RegFilename); version = RegIniFile->ReadString("Common", "Windows Version", "" ); if(version == ""){ AnsiString S; TRegistry *Registry = new TRegistry; try { Registry->RootKey = HKEY_LOCAL_MACHINE; Registry->OpenKey("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\",false); S = Registry->ReadString("ProductName"); if(S == ""){ Registry->OpenKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\",false); S = Registry->ReadString("ProductName"); } } __finally { delete Registry; } TRegIniFile *RegIniFile; RegIniFile = new TRegIniFile(RegFilename); if (RegIniFile){ if ( S == "Microsoft Windows 98" )RegIniFile->WriteString("Common", "Windows Version", "98"); else if ( S == "Microsoft Windows 2000" )RegIniFile->WriteString("Common", "Windows Version", "2000"); } }*/ OSVERSIONINFO osvi; osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); GetVersionEx(&osvi); osVERSION = osvi.dwPlatformId; //============================================== Close(); } //--------------------------------------------------------------------------- void __fastcall TConfigForm::btCancelClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- //// Private Method ///////////////////////////////////////////////////////// //--------------------------------------------------------------------- void TConfigForm::WTPacket(TMessage &msg) { POINT pt; WTPKT Result = Tablet->WTMPacket(msg); if (PageControl1->ActivePage==tsTablet && tsTablet->Enabled) { pt = pnTablet->ScreenToClient(Tablet->ptNew); if (pt.x>=0 && pt.xWidth && pt.y>=0 && pt.yHeight) { if (Tablet->prsNew>MaxNPressure) { MaxNPressure = Tablet->prsNew; lbCurrent->Caption = "Current : " + IntToStr(MaxNPressure); } } } } //--------------------------------------------------------------------------- void __fastcall TConfigForm::LoadFromRegIniFile() { TRegIniFile *RegIniFile; char tp[MAX_PATH+1]; AnsiString pw, DirectoryBin; GetTempPath(MAX_PATH, tp); if (tp[strlen(tp)-1]=='\\') tp[strlen(tp)-1] = 0; RegIniFile = new TRegIniFile(RegFilename); RegIniFile->RootKey = HKEY_LOCAL_MACHINE; RegIniFile->OpenKey("SOFTWARE\\YoungWoo\\Texpro\\8.01\\",true); if (RegIniFile) { DirectoryBin = RegIniFile->ReadString("Directory", "Bin", DefaultDir + "\\Bin"); Language = RegIniFile->ReadString("Common", "Language", "English"); if (Language == "English") rbEnglish->Checked = true; else if (Language == "Hangul") rbHangul->Checked = true; else if (Language == "Chinese") rbChinese->Checked = true; else if (Language == "Taiwanese") rbTaiwanese->Checked = true; else if (Language == "Thai") rbThai->Checked = true; else if (Language == "Japanese") rbJapanese->Checked = true; else if (Language == "Indonatian") rbIndona->Checked = true; //===============================//2001.4.11. by lhskys congi에서 unit Select 넣기 TUnits = RegIniFile->ReadString("Common", "TUnits", "uCm" ); WUnits = RegIniFile->ReadString("Common", "WUnits", "uCm" ); KUnits = RegIniFile->ReadString("Common", "KUnits", "uCm" ); if(TUnits == "uCm")TCm->Checked = true; else if(TUnits == "uInch")TInch->Checked = true; else if(TUnits == "uDot")TDot->Checked = true; else TCm->Checked = true; if(WUnits == "uCm")WCm->Checked = true; else if(WUnits == "uInch")WInch->Checked = true; else WCm->Checked = true; if(KUnits == "uCm")KCm->Checked = true; else if(KUnits == "uInch")KInch->Checked = true; else if(KUnits == "uDot")KDot->Checked = true; else KCm->Checked = true; Select = RegIniFile->ReadString("Common", "Select", "READ" ); if(Select == "READ")rbREAD->Checked = true; else if(Select == "MERGE")rbMERGE->Checked = true; //===============================//2001.4.11. by lhskys if (osVERSION < 2) { // win 98, win 95, win 3.1 DefaultFontName = RegIniFile->ReadString("Common", "DefaultFontName", "MS Sans Serif"); } else { // NT, win 2000 DefaultFontName = RegIniFile->ReadString("Common", "DefaultFontName", "Microsoft Sans Serif"); } stFont->Caption = DefaultFontName; FontDialog->Font->Name = DefaultFontName; #ifdef JAPAN lbVersion->Caption = "Version : AlphaGear " + TexProVersion; #else lbVersion->Caption = "Version : TexPro Design CAD System " + TexProVersion; #endif #ifndef LOCK_CRYPKEY #ifndef LOCK_IFC pw = RegIniFile->ReadString("Common", "Serial", ""); sscanf(pw.c_str(), "%d-%d-%d-%d", &Password[0], &Password[1], &Password[2], &Password[3]); #endif #endif edColor->Text = RegIniFile->ReadString("Directory", "Color", DefaultDir + "\\Color"); edTexture->Text = RegIniFile->ReadString("Directory", "Texture", DefaultDir + "\\Texture"); edStyle->Text = RegIniFile->ReadString("Directory", "Style", DefaultDir + "\\Style"); edYarn->Text = RegIniFile->ReadString("Directory", "Yarn", DefaultDir + "\\Yarn"); edStitch->Text = RegIniFile->ReadString("Directory", "Stitch", DefaultDir + "\\Stitch"); edAfter->Text = RegIniFile->ReadString("Directory", "Treatment", DefaultDir + "\\Treatment"); edTextileOpen->Text = RegIniFile->ReadString("Directory", "TextileOpen", DefaultDir); //2001.4.11. by lhskys congi에서 edWeaveOpen->Text = RegIniFile->ReadString("Directory", "WeaveOpen", DefaultDir); //2001.4.11. by lhskys congi에서 edKnitOpen->Text = RegIniFile->ReadString("Directory", "KnitOpen", DefaultDir); //2001.4.11. by lhskys congi에서 delete RegIniFile; } TWKDPI(); } //--------------------------------------------------------------------------- void __fastcall TConfigForm::SaveToRegIniFile() { TRegIniFile *RegIniFile; AnsiString DirectoryItem; RegIniFile = new TRegIniFile(RegFilename); RegIniFile->RootKey = HKEY_LOCAL_MACHINE; RegIniFile->OpenKey("SOFTWARE\\YoungWoo\\Texpro\\8.01\\",true); #ifdef LOCK_CRYPKEY if (RegIniFile) { RegIniFile->WriteString("Common", "Language", Language); RegIniFile->WriteString("Common", "DefaultFontName", DefaultFontName); RegIniFile->WriteString("Common", "MaxNPressure", IntToStr(MaxNPressure)); RegIniFile->WriteString("Common", "TREG_Size", TREG_Size); //2001.4.10. by lhskys 용지 size 선택 추가 RegIniFile->WriteString("Common", "WREG_Size", WREG_Size); //2001.4.10. by lhskys 용지 size 선택 추가 RegIniFile->WriteString("Common", "KREG_Size", KREG_Size); //2001.4.10. by lhskys 용지 size 선택 추가 RegIniFile->WriteString("Common", "Select", Select); //2001.4.11. by lhskys select 추가 RegIniFile->WriteString("Directory", "Color", edColor->Text); RegIniFile->WriteString("Directory", "Texture", edTexture->Text); RegIniFile->WriteString("Directory", "TextileOpen", edTextileOpen->Text); //2001.4.11. by lhskys congi에서 RegIniFile->WriteString("Directory", "WeaveOpen", edWeaveOpen->Text); //2001.4.11. by lhskys congi에서 RegIniFile->WriteString("Directory", "KnitOpen", edKnitOpen->Text); //2001.4.11. by lhskys congi에서 #ifndef ACADEMY #ifdef KNIT RegIniFile->WriteString("Directory", "Stitch", edStitch->Text); RegIniFile->WriteString("Common", "KUnits", KUnits); //2001.4.10. by lhskys unit 선택 추가 #endif #ifdef TEXTILE RegIniFile->WriteString("Directory", "Style", edStyle->Text); RegIniFile->WriteString("Directory", "Treatment", edAfter->Text); RegIniFile->WriteString("Common", "TUnits", TUnits); //2001.4.10. by lhskys unit 선택 추가 #endif #ifdef WEAVE RegIniFile->WriteString("Directory", "Yarn", edYarn->Text); RegIniFile->WriteString("Common", "WUnits", WUnits); //2001.4.10. by lhskys unit 선택 추가 #endif #endif } #else if (RegIniFile) { RegIniFile->WriteString("Common", "Language", Language); RegIniFile->WriteString("Common", "DefaultFontName", DefaultFontName); RegIniFile->WriteString("Common", "MaxNPressure", IntToStr(MaxNPressure)); // RegIniFile->WriteString("Common", "REG_Size", REG_Size); //2001.4.10. by lhskys 용지 size 선택 추가 RegIniFile->WriteString("Common", "TREG_Size", TREG_Size); //2001.4.10. by lhskys 용지 size 선택 추가 RegIniFile->WriteString("Common", "WREG_Size", WREG_Size); //2001.4.10. by lhskys 용지 size 선택 추가 RegIniFile->WriteString("Common", "KREG_Size", KREG_Size); //2001.4.10. by lhskys 용지 size 선택 추가 RegIniFile->WriteString("Common", "TUnits", TUnits); //2001.4.10. by lhskys unit 선택 추가 RegIniFile->WriteString("Common", "WUnits", WUnits); //2001.4.10. by lhskys unit 선택 추가 RegIniFile->WriteString("Common", "KUnits", KUnits); //2001.4.10. by lhskys unit 선택 추가 RegIniFile->WriteString("Common", "Select", Select); //2001.4.11. by lhskys select 추가 RegIniFile->WriteString("Directory", "Color", edColor->Text); RegIniFile->WriteString("Directory", "Texture", edTexture->Text); RegIniFile->WriteString("Directory", "TextileOpen", edTextileOpen->Text); RegIniFile->WriteString("Directory", "WeaveOpen", edWeaveOpen->Text); RegIniFile->WriteString("Directory", "KnitOpen", edKnitOpen->Text); if (Items & 1) RegIniFile->WriteString("Directory", "Style", edStyle->Text); RegIniFile->WriteString("Directory", "Treatment", edAfter->Text); if ((Items & 2) || (Items & 8)) RegIniFile->WriteString("Directory", "Yarn", edYarn->Text); if (Items & 4) RegIniFile->WriteString("Directory", "Stitch", edStitch->Text); delete RegIniFile; } #endif } /* void __fastcall TConfigForm::SaveToRegIniFile() { TRegIniFile *RegIniFile; RegIniFile = new TRegIniFile(RegFilename); if (RegIniFile) { RegIniFile->WriteString("Common", "Language", Language); RegIniFile->WriteString("Common", "DefaultFontName", DefaultFontName); RegIniFile->WriteString("Common", "MaxNPressure", IntToStr(MaxNPressure)); RegIniFile->WriteString("Directory", "Color", edColor->Text); RegIniFile->WriteString("Directory", "Texture", edTexture->Text); if (Items & 1) RegIniFile->WriteString("Directory", "Style", edStyle->Text); RegIniFile->WriteString("Directory", "Treatment", edAfter->Text); if ((Items & 2) || (Items & 8)) RegIniFile->WriteString("Directory", "Yarn", edYarn->Text); if (Items & 4) RegIniFile->WriteString("Directory", "Stitch", edStitch->Text); delete RegIniFile; } */ //--------------------------------------------------------------------------- void __fastcall TConfigForm::rbSizeType(TObject *Sender) //2001.4.10. by lhskys 용지 size선택 추가 { TRadioButton *rb = (TRadioButton *)Sender; if (rb==TA4) TREG_Size = "cstA4"; else if (rb==TA3) TREG_Size = "cstA3"; else if (rb==TA2) TREG_Size = "cstA2"; else if (rb==TA1) TREG_Size = "cstA1"; else if (rb==TA0) TREG_Size = "cstA0"; else if (rb==TLetter) TREG_Size = "cstLetter"; else if (rb==TLegal) TREG_Size = "cstLegal"; else if (rb==TTabloid) TREG_Size = "cstTabloid"; if (rb==WA4) WREG_Size = "cstA4"; else if (rb==WA3) WREG_Size = "cstA3"; else if (rb==WA2) WREG_Size = "cstA2"; else if (rb==WA1) WREG_Size = "cstA1"; else if (rb==WA0) WREG_Size = "cstA0"; else if (rb==WLetter) WREG_Size = "cstLetter"; else if (rb==WLegal) WREG_Size = "cstLegal"; else if (rb==WTabloid) WREG_Size = "cstTabloid"; if (rb==KA4) KREG_Size = "cstA4"; else if (rb==KA3) KREG_Size = "cstA3"; else if (rb==KA2) KREG_Size = "cstA2"; else if (rb==KA1) KREG_Size = "cstA1"; else if (rb==KA0) KREG_Size = "cstA0"; else if (rb==KLetter) KREG_Size = "cstLetter"; else if (rb==KLegal) KREG_Size = "cstLegal"; else if (rb==KTabloid) KREG_Size = "cstTabloid"; if (rb==AA4) {TREG_Size = "cstA4";//WREG_Size = "cstA4";KREG_Size = "cstA4"; }else if (rb==AA3) {TREG_Size = "cstA3";//WREG_Size = "cstA3";KREG_Size = "cstA3"; }else if (rb==AA2) {TREG_Size = "cstA2";//WREG_Size = "cstA2";KREG_Size = "cstA2"; }else if (rb==AA1) {TREG_Size = "cstA1";//WREG_Size = "cstA1";KREG_Size = "cstA1"; }else if (rb==AA0) {TREG_Size = "cstA0";//WREG_Size = "cstA0";KREG_Size = "cstA0"; }else if (rb==ALetter) {TREG_Size = "cstLetter";//WREG_Size = "cstLetter";KREG_Size = "cstLetter"; }else if (rb==ALegal) {TREG_Size = "cstLegal";//WREG_Size = "cstLegal";KREG_Size = "cstLegal"; }else if (rb==ATabloid) {TREG_Size = "cstTabloid";//WREG_Size = "cstTabloid";KREG_Size = "cstTabloid"; } } //--------------------------------------------------------------------------- void __fastcall TConfigForm::rbUnits(TObject *Sender) //2001.4.10. by lhskys unit 선택 추가 { TRadioButton *rb = (TRadioButton *)Sender; if (rb==TCm) TUnits = "uCm"; else if (rb==TInch) TUnits = "uInch"; else if (rb==TDot) TUnits = "uDot"; if (rb==WCm) WUnits = "uCm"; else if (rb==WInch) WUnits = "uInch"; if (rb==KCm) KUnits = "uCm"; else if (rb==KInch) KUnits = "uInch"; else if (rb==KDot) KUnits = "uDot"; } //--------------------------------------------------------------------------- void __fastcall TConfigForm::rbSelect(TObject *Sender) //2001.4.11. by lhskys unit 선택 추가 { TRadioButton *rb = (TRadioButton *)Sender; if (rb==rbREAD) Select = "READ"; else if (rb==rbMERGE) Select = "MERGE"; } //--------------------------------------------------------------------------- void __fastcall TConfigForm::TWKChange(TObject *Sender) //2001.4..23 by lhskys Congi 추가 { TPanel1->Visible = false; WPanel1->Visible = false; KPanel1->Visible = false; APanel1->Visible = false; switch (TWK->ItemIndex) { case 0:TPanel1->Visible = true; break; case 1:WPanel1->Visible = true; break; case 2:KPanel1->Visible = true; break; case 3:APanel1->Visible = true; break; } } //--------------------------------------------------------------------------- void __fastcall TConfigForm::TWKUnitChange(TObject *Sender) { TPanel2->Visible = false; WPanel2->Visible = false; KPanel2->Visible = false; switch (TWKUnit->ItemIndex) { case 0:TPanel2->Visible = true; break; case 1:WPanel2->Visible = true; break; case 2:KPanel2->Visible = true; break; } } //--------------------------------------------------------------------------- void __fastcall TConfigForm::TDPIChange() { AnsiString DirectoryItem; DirectoryItem = DefaultDir + "\\Bin\\Textile"; TIniFile *IniFile = new TIniFile(DirectoryItem+"\\Environment.ini"); if(!FileExists(DirectoryItem+"\\Environment.ini"))goto next; if (IniFile)IniFile->WriteInteger("CanvasInfor", "DPI", TDPI->Value); next: delete IniFile; } //--------------------------------------------------------------------------- void __fastcall TConfigForm::WDPIChange() { /* AnsiString DirectoryItem; DirectoryItem = DefaultDir + "\\Bin\\Weave"; TIniFile *IniFile = new TIniFile(DirectoryItem+"\\Environment.ini"); if (IniFile)IniFile->WriteInteger("CanvasInfor", "DPI", WDPI->Value); delete IniFile;*/ } //--------------------------------------------------------------------------- void __fastcall TConfigForm::KDPIChange() { AnsiString DirectoryItem; DirectoryItem = DefaultDir + "\\Bin\\Knit"; TIniFile *IniFile = new TIniFile(DirectoryItem+"\\Environment.ini"); if(!FileExists(DirectoryItem+"\\Environment.ini"))goto next; if (IniFile)IniFile->WriteInteger("CanvasInfor", "DPI", KDPI->Value); next: delete IniFile; } //--------------------------------------------------------------------------- void __fastcall TConfigForm::ADPIChange(TObject *Sender) { try { TDPI->Value = ADPI->Value; // WDPI->Value = ADPI->Value; KDPI->Value = ADPI->Value; } catch ( ... ) { return; } } //--------------------------------------------------------------------------- void __fastcall TConfigForm::TWKDPI() { ADPI->Value = 0; TextileDPI(); WeaveDPI(); KnitDPI(); } //--------------------------------------------------------------------------- void __fastcall TConfigForm::TextileDPI() { AnsiString DirectoryItem; DirectoryItem = DefaultDir + "\\Bin\\Textile"; TIniFile *IniFile = new TIniFile(DirectoryItem+"\\Environment.ini"); if (IniFile)TDPI->Value = IniFile->ReadInteger("CanvasInfor", "DPI", 160); delete IniFile; } //--------------------------------------------------------------------------- void __fastcall TConfigForm::WeaveDPI() { /* AnsiString DirectoryItem; DirectoryItem = DefaultDir + "\\Bin\\Weave"; TIniFile *IniFile = new TIniFile(DirectoryItem+"\\Environment.ini"); if (IniFile)WDPI->Value = IniFile->ReadInteger("CanvasInfor", "DPI", 160); delete IniFile;*/ } //--------------------------------------------------------------------------- void __fastcall TConfigForm::KnitDPI() { AnsiString DirectoryItem; DirectoryItem = DefaultDir + "\\Bin\\Knit"; TIniFile *IniFile = new TIniFile(DirectoryItem+"\\Environment.ini"); if (IniFile)KDPI->Value = IniFile->ReadInteger("CanvasInfor", "DPI", 160); delete IniFile; } //---------------------------------------------------------------------------