//--------------------------------------------------------------------------- //-------- 2003. 11. 12 Made by Maxleo21c(상훈) -----------// //-------- 색정리 초기 단계 Blur를 주기 위한 부분 -----------// #include #pragma hdrstop #include "MainImage.h" #include "blurControl_F.h" #include "TPStretchImage.h" #include "NewGrouping_F.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "TPStretchImage" #pragma link "RzButton" #pragma resource "*.dfm" //--------------------------------------------------------------------------- #define IDS_BLURAUTO StringTable[0] #define IDS_BLUROK StringTable[1] #define IDS_BLURCANCEL StringTable[2] //--------------------------------------------------------------------------- TblurControlForm *blurControlForm; //--------------------------------------------------------------------------- __fastcall TblurControlForm::TblurControlForm(TComponent* Owner) : TForm(Owner) { //=================================================================== StringTable.Create(DirectoryItem, Language, "BlurForm"); SetSmallFont(Font); AutoBitBtn->Caption = IDS_BLURAUTO; OKBitBtn->Caption = IDS_BLUROK; cancleBtn->Caption = IDS_BLURCANCEL; //=================================================================== track_num=5; // 초기값=5 (trackBar가 5로 초기화 되어있기 때문) blur_OKBtn=false; TrackBarMoved=false; } //--------------------------------------------------------------------------- //이미지를 초기화 하는 함수 //TblurControlForm에서는 TexpiaBitmap을 사용하기 때문에 TNewGroupingForm에 있는 //이미지를 Union -> Texpia로 바꿔주는 부분 void __fastcall initImage(TUnionBitmap *originalBitmap, TUnionBitmap *previewBitmap) { blurControlForm->originImage->Bitmap->Create(previewBitmap->Width, previewBitmap->Height, previewBitmap->BitsPerPixel, previewBitmap->RGB); blurControlForm->afterImage->Bitmap->Create(previewBitmap->Width, previewBitmap->Height, previewBitmap->BitsPerPixel, previewBitmap->RGB); // 현재 원본을 기본으로 항상 가저오도록 변경한 상태이다. previewBitmap->CopyToTexpia(blurControlForm->originImage->Bitmap, 0, 0, previewBitmap->Width, previewBitmap->Height, 0, 0, SRCCOPY); previewBitmap->CopyToTexpia(blurControlForm->afterImage->Bitmap, 0, 0, previewBitmap->Width, previewBitmap->Height, 0, 0, SRCCOPY); // Image Size를 계산하기 위한 함수 호출 blurControlForm->RatioCalculate(previewBitmap); } //--------------------------------------------------------------------------- // 언샤픈을 하여 블러의 효과를 나타내는 함수 // Leadtools13에 있는 Unsharpen함수를 이용하였다. void __fastcall TblurControlForm::blurProcess(TTexpiaBitmap *previewBitmap, int num) { TCursor cur; cur = Screen->Cursor; Screen->Cursor = crHourGlass; /* This example loads a bitmap and increases its sharpness. */ BITMAPHANDLE *LeadBitmap; /* Bitmap handle to hold the loaded image. */ LeadBitmap=previewBitmap->Handle; /* Increase the sharpness by 25 percent of the possible range */ L_SharpenBitmap(LeadBitmap, num ); afterImage->Repaint(); Screen->Cursor = cur; } //--------------------------------------------------------------------------- // 기본을 5로 놓았기 때문에 오토를 눌렀을 경우 2만큼 이동하다. void __fastcall TblurControlForm::AutoBitBtnClick(TObject *Sender) { controlTrackBar->Position=7; } //--------------------------------------------------------------------------- // Trackbar를 옮길때 track Number를 가지고 1000만큼씩 블러 효과를 넣는다(Unsharpen). // +800은 샤픈을 주는 부분이다. -1000을 하면 한 단계에서 크게 샤픈이 들어가서 낮추었다. void __fastcall TblurControlForm::controlTrackBarChange(TObject *Sender) { int check=0; check = controlTrackBar->Position - track_num; TrackBarMoved = true; if (check > 0) { for (int i=0; iBitmap, -1000 ); track_num=controlTrackBar->Position; } else if (check < 0) { for (int j=0; j<(-check); j++) blurProcess(afterImage->Bitmap, 800 ); track_num=controlTrackBar->Position; } } //--------------------------------------------------------------------------- // 트랙바가 움직이지 않았을 경우 무시하도록 하기 위해서 처리했다. void __fastcall TblurControlForm::OKBitBtnClick(TObject *Sender) { if (TrackBarMoved) blur_OKBtn = true; else blur_OKBtn = false; Close(); } //--------------------------------------------------------------------------- // Image Size를 조절하는 함수 // FullView에서 Copy한 부분 // 추후 업그레이드 : 미리보기에서 줌 기능을 추가해야한다. 이때 이부분을 손보면 될것 같다. void __fastcall TblurControlForm::RatioCalculate(TUnionBitmap *previewBitmap) { int width = previewBitmap->Width; int height = previewBitmap->Height; if (previewBitmap) { ratio = 1; if (Panel1->Width-10Height-10Width-10>=width/ratio && Panel1->Height-10>=height/ratio) { break; } ratio++; } bRatio = false; } else { while (true) { if (Panel1->Width-10Height-10SetZoom(ratio, 1); originImage->Width = width*ratio; originImage->Height = height*ratio; afterImage->SetZoom(ratio, 1); afterImage->Width = width*ratio; afterImage->Height = height*ratio; } else { originImage->SetZoom(1, ratio); originImage->Width = width/ratio; originImage->Height = height/ratio; afterImage->SetZoom(1, ratio); afterImage->Width = width/ratio; afterImage->Height = height/ratio; } if (previewBitmap->CoordinateSystem==csTopLeft) { originImage->Top = 2; afterImage->Top = 2; } else { originImage->Top = Panel1->Height-originImage->Height-2; afterImage->Top = Panel2->Height-afterImage->Height-2; } } } //--------------------------------------------------------------------------- void __fastcall TblurControlForm::cancleBtnClick(TObject *Sender) { blur_OKBtn = false; Close(); } //--------------------------------------------------------------------------- void __fastcall TblurControlForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { if(Key == 'A'){ //'a' or 'A' int Ratio = 0; Key = 0; switch (originImage->ZoomIn) { //현재의 확대, 축소된 비율은 알아내어 case 1: switch (originImage->ZoomOut) { // 비율에 따라 ratio라는 변수에 적당한 값을 case 1: Ratio = 302; break; // 입력시키고, 그것은 parameter로 하는 함수(RatioZoom) case 2: Ratio = 203; break; // 를 호출한다. case 3: Ratio = 102; break; case 4: Ratio = 103; break; // 수정 By GreenFish (줌단계 확장) case 6: Ratio = 104; break; case 8: Ratio = 106; break; case 12: Ratio = 108; break; case 16: Ratio = 112; break; } break; case 2: switch (originImage->ZoomOut) { case 1: Ratio = 301; break; case 3: Ratio = 101; break; } break; case 3: switch (originImage->ZoomOut) { case 1: Ratio = 401; break; case 2: Ratio = 201; break; } break; case 4: Ratio = 601; break; case 6: Ratio = 801; break; case 8: Ratio = 1201; break; case 12: Ratio = 1601; break; default: return; } RatioZoom(Ratio); } else if(Key == 'S'){ // 's' or 'S' int Ratio = 0; Key = 0; switch (originImage->ZoomIn) { case 1: switch (originImage->ZoomOut) { case 1: Ratio = 203 ; break; case 2: Ratio = 103; break; case 3: Ratio = 104; break; case 4: Ratio = 106; break; case 6: Ratio = 108; break; case 8: Ratio = 112; break; case 12: Ratio = 116; break; default: return; } break; case 2: switch (originImage->ZoomOut) { case 1: Ratio = 302; break; case 3: Ratio = 102; break; } break; case 3: switch (originImage->ZoomOut) { case 1: Ratio = 201; break; case 2: Ratio = 101; break; } break; case 4: Ratio = 301; break; case 6: Ratio = 401; break; case 8: Ratio = 601; break; case 12 : Ratio = 801; break; case 16 : Ratio = 1201; break; default: return; } RatioZoom(Ratio); } } //--------------------------------------------------------------------------- void __fastcall TblurControlForm::RatioZoom(int r) //by qe and GreenFish { int a, b; a = r / 100; b = r % 100; ZoomChange(a, b); } //--------------------------------------------------------------------------- void __fastcall TblurControlForm::ZoomChange(int zi, int zo) { POINT ptClient; POINT ptClient_A; String sbZoom; if (zi!=originImage->ZoomIn || zo!=originImage->ZoomOut) { originImage->SetZoom(zi, zo); afterImage->SetZoom(zi, zo); } } //---------------------------------------------------------------------------