//---------------------------------------------------------------------------- #ifndef MainH #define MainH //---------------------------------------------------------------------------- #include "ChildImg.h" #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "LEADTwain.hpp" #include #include "LEADDlgFile.hpp" #include "LEADDlgService.hpp" #include "LEADIsis.hpp" #include "LEADMain.hpp" #include "LEADTwain.hpp" #include "LEADDlgImgEffect.hpp" #include "LEADThmb.hpp" #define RESIZE_TYPE 0 #define DETECT_TYPE 1 #define STAMP_TYPE 2 #define RESIZEREGION_TYPE 3 #define RESAMPLE_TYPE 4 #define REGISTRYKEY_SERVER_NAME "LEAD.MainBuilderVCLDemo.Image.14" #define DLGFILE_CONTROL 0 #define DLGCOLOR_CONTROL 1 #define DLGIMAGE_CONTROL 2 #define DLGIMAGEEFX_CONTROL 3 #define DLG_IMAGE_LIST_COUNT 15 #define REG_KEYS 2 /* Max No. of image files to be load in the Dialogs*/ //---------------------------------------------------------------------------- class TMainFrm : public TForm { __published: TMainMenu *MainMenu; TMenuItem *mnuCaptureScreen1; TMenuItem *mnuExit1; TStatusBar *StatusBar; TMenuItem *mnuOpen1; TMenuItem *mnuTwainSelectSource1; TMenuItem *mnuTwainAcquire1; TMenuItem *mnuPaste1; TMenuItem *mnuDithering1; TMenuItem *mnuDitheringOrdered1; TMenuItem *mnuDitheringErrorDiffusion1; TMenuItem *mnuBitonalScalingNormal1; TMenuItem *mnuBitonalScalingFavorBlack1; TMenuItem *mnuBitonalScalingScaleToGray1; TMenuItem *mnuPaintWhileLoad1; TMenuItem *mnuPaintPalette1; TMenuItem *mnuPaintPaletteAuto1; TMenuItem *mnuPaintPaletteFixed1; TMenuItem *mnuPaintPaletteUseNetscape1; TMenuItem *mnuHelp; TMenuItem *mnuAbout1; TMenuItem *mnuLEADTOOLSOnTheWeb1; TLEADTwain *LEADTwain1; TPanel *SpeedPanel; TSpeedButton *btnOpen; TSpeedButton *btnSaveAs; TSpeedButton *btnCopy; TSpeedButton *btnPaste; TSpeedButton *btnAbout; TSpeedButton *btnPrint; TMenuItem *N2; TMenuItem *N4; TMenuItem *mnuOpenLocation1; TLEADImage *LEADImage2; TMenuItem *N5; TMenuItem *mnuISISSelect1; TMenuItem *mnuISISAcquire1; TMenuItem *mnuISISAcquireMulti1; TLEADIsis *LEADIsis1; TMenuItem *mnuImageList; TMenuItem *mnuRemoveImage1; TMenuItem *mnuInsertImage1; TMenuItem *mnuSortItems1; TMenuItem *mnuSortItemsDescending1; TMenuItem *mnuSortItemsAscending1; TMenuItem *mnuScrollStyle1; TMenuItem *mnuScrollStyleHorizontal1; TMenuItem *mnuScrollStyleVertical1; TMenuItem *mnuAllowSelection1; TMenuItem *mnuAllowSelectionMulti1; TMenuItem *mnuAllowSelectionSingle1; TMenuItem *mnuAllowSelectionNone1; TMenuItem *mnuShowSelection1; TMenuItem *mnuShowSelectionButton1; TMenuItem *mnuShowSelectionColor1; TMenuItem *mnuOptions1; TMenuItem *mnuOptionsEnableKeyboard1; TMenuItem *mnuOptionsDisplayText1; TMenuItem *mnuOptionsExpandMultipage1; TMenuItem *mnuOptionsIncludeSubDirectory1; TMenuItem *mnuOptionsStopOnErrors1; TMenuItem *mnuBrowse1; TMenuItem *mnuPaintScaling1; TMenuItem *mnuPaintScalingNormal1; TMenuItem *mnuPaintScalingResample1; TMenuItem *mnuPaintScalingBicubic1; TMenuItem *mnuShowSelectionUseBitmap1; TLEADDlgService *LEADDlgService1; TLEADDlgFile *LEADDlgFile1; TLEADThumb *LEADThumb1; TLEADThumb *LEADThumb2; TLEADDlgImgEffect *LEADDlgImgEffect1; TImage *Image1; TMenuItem *mnuConvertFile1; TMenuItem *N6; TMenuItem *mnuFileFormatAssociations1; TMenuItem *N7; TMenuItem *mnuPrintStitchedImages1; TMenuItem *N8; TMenuItem *mnuEffects; TMenuItem *mnuCalculations1; TMenuItem *mnuCalculationsAddBitmaps1; TMenuItem *mnuCalculationsStitch1; TMenuItem *mnuFile; TMenuItem *mnuEdit; TMenuItem *mnuPreferences; TMenuItem *mnuBitonalScaling1; void __fastcall FormCreate(TObject *Sender); void __fastcall FormDestroy(TObject *Sender); void __fastcall mnuOpen1Click(TObject *Sender); void __fastcall mnuExit1Click(TObject *Sender); void __fastcall mnuLEADTOOLSOnTheWeb1Click(TObject *Sender); void __fastcall mnuCaptureScreen1Click(TObject *Sender); void __fastcall mnuTwainSelectSource1Click(TObject *Sender); void __fastcall mnuTwainAcquire1Click(TObject *Sender); void __fastcall mnuPaste1Click(TObject *Sender); void __fastcall mnuAbout1Click(TObject *Sender); void __fastcall mnuDitheringOrdered1Click(TObject *Sender); void __fastcall mnuDitheringErrorDiffusion1Click(TObject *Sender); void __fastcall mnuBitonalScalingNormal1Click(TObject *Sender); void __fastcall mnuBitonalScalingFavorBlack1Click(TObject *Sender); void __fastcall mnuBitonalScalingScaleToGray1Click(TObject *Sender); void __fastcall mnuPaintWhileLoad1Click(TObject *Sender); void __fastcall mnuPaintPaletteAuto1Click(TObject *Sender); void __fastcall mnuPaintPaletteFixed1Click(TObject *Sender); void __fastcall mnuPaintPaletteUseNetscape1Click(TObject *Sender); void __fastcall btnOpenClick(TObject *Sender); void __fastcall btnPasteClick(TObject *Sender); void __fastcall btnCopyClick(TObject *Sender); void __fastcall btnSaveAsClick(TObject *Sender); void __fastcall btnAboutClick(TObject *Sender); void __fastcall btnPrintClick(TObject *Sender); void __fastcall mnuEditClick(TObject *Sender); void __fastcall mnuOpenLocation1Click(TObject *Sender); void __fastcall mnuFileClick(TObject *Sender); void __fastcall mnuISISSelect1Click(TObject *Sender); void __fastcall mnuISISAcquire1Click(TObject *Sender); void __fastcall mnuISISAcquireMulti1Click(TObject *Sender); void __fastcall mnuOptionsStopOnErrors1Click(TObject *Sender); void __fastcall mnuOptionsIncludeSubDirectory1Click(TObject *Sender); void __fastcall mnuOptionsExpandMultipage1Click(TObject *Sender); void __fastcall mnuOptionsEnableKeyboard1Click(TObject *Sender); void __fastcall mnuShowSelectionColor1Click(TObject *Sender); void __fastcall mnuShowSelectionButton1Click(TObject *Sender); void __fastcall mnuAllowSelectionNone1Click(TObject *Sender); void __fastcall mnuAllowSelectionSingle1Click(TObject *Sender); void __fastcall mnuAllowSelectionMulti1Click(TObject *Sender); void __fastcall mnuScrollStyleVertical1Click(TObject *Sender); void __fastcall mnuScrollStyleHorizontal1Click(TObject *Sender); void __fastcall mnuSortItemsAscending1Click(TObject *Sender); void __fastcall mnuSortItemsDescending1Click(TObject *Sender); void __fastcall mnuInsertImage1Click(TObject *Sender); void __fastcall mnuRemoveImage1Click(TObject *Sender); void __fastcall mnuOptionsDisplayText1Click(TObject *Sender); void __fastcall mnuBrowse1Click(TObject *Sender); void __fastcall mnuPaintScalingNormal1Click(TObject *Sender); void __fastcall mnuPaintScalingResample1Click(TObject *Sender); void __fastcall mnuPaintScalingBicubic1Click(TObject *Sender); void __fastcall mnuShowSelectionUseBitmap1Click(TObject *Sender); void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose); int __fastcall LEADTwain1AcquirePageEvent(TBitmapHandle Bitmap); void __fastcall mnuConvertFile1Click(TObject *Sender); void __fastcall mnuFileFormatAssociations1Click(TObject *Sender); void __fastcall mnuPrintStitchedImages1Click(TObject *Sender); void __fastcall mnuCalculationsAddBitmaps1Click(TObject *Sender); void __fastcall mnuCalculationsStitch1Click(TObject *Sender); void __fastcall LEADThumb2ThumbnailEvent(TObject *Sender, TBitmapHandle Bitmap, AnsiString FileName, int nStatusCode, int nPercent); void __fastcall LEADImage2LoadInfo(TObject *Sender); private: L_INT nImagesCount; AnsiString ImagesNames[DLG_IMAGE_LIST_COUNT]; bool FRawDialogDisplaied; int FLoadInfoFormat; int FLoadInfoWidth; int FLoadInfoHeight; int FLoadInfoXRes; int FLoadInfoYRes; int FLoadInfoOffset; bool FLoadInfoWhiteOnBlack; bool FLoadInfoLSBFirst; int FLoadInfoViewPerspective; int FLoadInfoColorOrder; int FLoadInfoBitsPerPixel; int FLoadInfoPalette; bool FLoadInfoPadding; int FLoadInfoFlags; bool FShowRawFormatDialog; void __fastcall CreateMDIChild(const String Name); void __fastcall ShowHint(TObject *Sender); void __fastcall OnDrawClipBoard(TMessage* msg); BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_DRAWCLIPBOARD, TMessage *, OnDrawClipBoard) END_MESSAGE_MAP(TComponent) void ConvertBitmap ( ); L_INT LoadUserCustomBitmaps ( AnsiString strDlgTitle, L_UINT uDlgControl ); public: int nNumPastes; int nNumClrMrg; bool bUsePaintWhileLoad; bool bDICOMLoadMsg; AnsiString URLDataPath; TPaletteType PaintPaletteVal; TPaintDither PaintDitherVal; TBitonalScaling BitonalScalingVal; TPaintScaling PaintScalingVal; virtual __fastcall TMainFrm(TComponent *Owner); void UnlockSupport(void); void DisplayDICOMLoadMsg(int nFileFormat); void DisplayErrorMsg ( AnsiString ErrorMsg ); void CreateNewChildForm ( AnsiString FileName, int nPage ); __property int LoadInfoFormat = {read = FLoadInfoFormat}; __property int LoadInfoWidth = {read = FLoadInfoWidth}; __property int LoadInfoHeight = {read = FLoadInfoHeight}; __property int LoadInfoXRes = {read = FLoadInfoXRes}; __property int LoadInfoYRes = {read = FLoadInfoYRes}; __property int LoadInfoOffset = {read = FLoadInfoOffset}; __property bool LoadInfoWhiteOnBlack = {read = FLoadInfoWhiteOnBlack}; __property bool LoadInfoLSBFirst= {read = FLoadInfoLSBFirst}; __property int LoadInfoViewPerspective = {read = FLoadInfoViewPerspective}; __property int LoadInfoColorOrder = {read = FLoadInfoColorOrder}; __property int LoadInfoBitsPerPixel = {read = FLoadInfoBitsPerPixel}; __property int LoadInfoPalette = {read = FLoadInfoPalette}; __property bool LoadInfoPadding = {read = FLoadInfoPadding}; __property int LoadInfoFlags = {read = FLoadInfoFlags}; }; //---------------------------------------------------------------------------- extern TMainFrm *MainFrm; extern TChildImage *__fastcall MDIChildCreate(void); extern void __fastcall DisplayDICOMSaveMsg(int nFileFormat); //---------------------------------------------------------------------------- #endif