home *** CD-ROM | disk | FTP | other *** search
- object MDIChild: TMDIChild
- Left = 329
- Top = 206
- Width = 432
- Height = 323
- HorzScrollBar.Tracking = True
- HorzScrollBar.Visible = False
- VertScrollBar.Tracking = True
- VertScrollBar.Visible = False
- Caption = 'MDI Child'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- FormStyle = fsMDIChild
- Menu = MainMenu2
- Position = poDefault
- Visible = True
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnMouseDown = FormMouseDown
- PixelsPerInch = 96
- TextHeight = 16
- object StatusBar1: TStatusBar
- Left = 0
- Top = 258
- Width = 424
- Height = 19
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- Panels = <
- item
- Width = 150
- end
- item
- Width = 150
- end
- item
- Width = 120
- end>
- ParentFont = False
- SimplePanel = False
- end
- object PGImage1: TPGImage
- Left = 0
- Top = 0
- Width = 424
- Height = 258
- Cursor = crArrow
- HorzScrollBar.Tracking = True
- VertScrollBar.Tracking = True
- Align = alClient
- Color = clBlack
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 1
- OnMouseDown = PGImage1MouseDown
- ActionMode = amMoveResizeCreateSelection
- Center = True
- PicBoxColor = clBlack
- PicBoxCursor = crCross
- PicBoxDragCursor = crDrag
- PicBoxDragMode = dmManual
- PicBoxParentColor = True
- PicBoxParentShowHint = True
- PicBoxShowHint = False
- PicBoxTag = 0
- ZoomFactor = 1.000000000000000000
- PicBoxOnDblClick = PGImage1PicBoxOnDblClick
- PicBoxOnMouseDown = PGImage1MouseDown
- PicBoxOnMouseMove = PGImage1PicBoxOnMouseMove
- PicBoxOnMouseUp = PGImage1PicBoxOnMouseUp
- PicBoxOnSetCursor = PGImage1PicBoxOnSetCursor
- OnNewAutoSize = PGImage1NewAutoSize
- OnSelectionChange = PGImage1SelectionChange
- end
- object Timer1: TTimer
- Interval = 100
- OnTimer = Timer1Timer
- Left = 18
- Top = 18
- end
- object PGSaveDialog1: TPGSaveDialog
- Filter =
- 'BMP - Bitmap|*.bmp|JPG - JPEG (JFIF compliant)|*.jpg|PBM - Porta' +
- 'ble Bitmap|*.pbm|PGM - Portable Graymap|*.pgm|PNG - Portable Net' +
- 'work Graphics|*.png|PPM - Portable Pixelmap|*.ppm|TGA - Truevisi' +
- 'on Targa|*.tga|TIF - Tagged Image File Format|*.tif|'
- Left = 98
- Top = 18
- end
- object MainMenu2: TMainMenu
- Left = 58
- Top = 18
- object File1: TMenuItem
- Caption = 'File'
- object Open1: TMenuItem
- Caption = 'Open'
- OnClick = Open1Click
- end
- object ChildClose: TMenuItem
- Caption = 'Close'
- OnClick = ChildCloseClick
- end
- object LoadfromParameterFile1: TMenuItem
- Caption = 'Load from Parameter File'
- OnClick = LoadfromParameterFile1Click
- end
- object SaveAs1: TMenuItem
- Caption = 'Save As'
- OnClick = SaveAs1Click
- end
- object Background1: TMenuItem
- Caption = 'Background'
- OnClick = Background1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object OpenNewFormulaFile1: TMenuItem
- Caption = 'Open New Formula File [FLL]'
- OnClick = OpenNewFormulaFile1Click
- end
- object OpenNewRenderFile1: TMenuItem
- Caption = 'Open New Render File [RLL]'
- OnClick = OpenNewRenderFile1Click
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object Options1: TMenuItem
- Caption = 'Options'
- OnClick = Options1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = 'Exit'
- Hint = 'Exit'
- OnClick = Exit1Click
- end
- end
- object Filter1: TMenuItem
- Caption = 'Post-Process'
- GroupIndex = 1
- object RGB1: TMenuItem
- Caption = 'RGB...'
- OnClick = RGB1Click
- end
- object CMY1: TMenuItem
- Caption = 'CMY...'
- OnClick = CMY1Click
- end
- object YCbCr1: TMenuItem
- Caption = 'YCbCr...'
- OnClick = YCbCr1Click
- end
- object HLS1: TMenuItem
- Caption = 'HLS...'
- OnClick = HLS1Click
- end
- object HSV1: TMenuItem
- Caption = 'HSV...'
- OnClick = HSV1Click
- end
- object BrightnessContrastGamma1: TMenuItem
- Caption = 'Brightness, Contrast, Gamma...'
- OnClick = BrightnessContrastGamma1Click
- end
- object Grayscale1: TMenuItem
- Caption = 'Grayscale...'
- OnClick = Grayscale1Click
- end
- object Negative1: TMenuItem
- Caption = 'Negative...'
- OnClick = Negative1Click
- end
- object Sharpen2: TMenuItem
- Caption = 'Sharpen...'
- OnClick = Sharpen2Click
- end
- object Detail1: TMenuItem
- Caption = 'Detail...'
- OnClick = Detail1Click
- end
- object Smooth1: TMenuItem
- Caption = 'Smooth...'
- OnClick = Smooth1Click
- end
- object Blur1: TMenuItem
- Caption = 'Blur...'
- OnClick = Blur1Click
- end
- object Contour1: TMenuItem
- Caption = 'Contour...'
- OnClick = Contour1Click
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object AntiAlis211: TMenuItem
- Caption = 'Anti-Alias 2:1'
- OnClick = AntiAlis211Click
- end
- object AntiAlis311: TMenuItem
- Caption = 'Anti-Alias 3:1'
- OnClick = AntiAlis311Click
- end
- object AntiAlias411: TMenuItem
- Caption = 'Anti-Alias 4:1'
- OnClick = AntiAlias411Click
- end
- object N10: TMenuItem
- Caption = '-'
- end
- object Sharpen1: TMenuItem
- Caption = 'Sharpen'
- OnClick = Sharpen1Click
- end
- object ConvertTo256Color1: TMenuItem
- Caption = 'Convert To 256 Color'
- OnClick = ConvertTo256Color1Click
- end
- object AutoFilter: TMenuItem
- Caption = 'Auto Brightness, Gamma, Contrast'
- OnClick = AutoFilterClick
- end
- end
- object Image1: TMenuItem
- Caption = 'Image'
- GroupIndex = 1
- object Draw1: TMenuItem
- Caption = 'Draw'
- OnClick = Draw1Click
- end
- object ClearRectangle1: TMenuItem
- Caption = 'Clear Rectangle'
- OnClick = ClearRectangle1Click
- end
- object JuliaMode1: TMenuItem
- Caption = 'Julia Mode'
- OnClick = JuliaMode1Click
- end
- object InsideOut1: TMenuItem
- Caption = 'Inside Out'
- Hint = 'Inside Out'
- OnClick = InsideOut1Click
- end
- object N8: TMenuItem
- Caption = '-'
- end
- object Rotate90: TMenuItem
- Caption = 'Rotate90'
- OnClick = Rotate90Click
- end
- object Rotate90Mirror: TMenuItem
- Caption = 'Rotate90Mirror'
- OnClick = Rotate90MirrorClick
- end
- object Mirror: TMenuItem
- Caption = 'Mirror'
- OnClick = MirrorClick
- end
- end
- object Options: TMenuItem
- Caption = 'Dialogs'
- GroupIndex = 1
- object ColorControls1: TMenuItem
- Caption = 'Color Controls'
- OnClick = ColorControls1Click
- end
- object Parameters1: TMenuItem
- Caption = 'Parameters'
- OnClick = Parameters1Click
- end
- object XYSize1: TMenuItem
- Caption = 'XY Size'
- OnClick = XYSize1Click
- end
- object Formulas1: TMenuItem
- Caption = 'Formulas'
- OnClick = Formulas1Click
- end
- end
- object Blend1: TMenuItem
- Caption = 'Blend'
- GroupIndex = 1
- object Blend01: TMenuItem
- Caption = '1.) r=sqrt(x*x+y*y), g=x, b=y'
- OnClick = Blend01Click
- end
- object Blend02: TMenuItem
- Caption = '2.) Sum of Squares (x*x+y*y)'
- OnClick = Blend02Click
- end
- object Blend03: TMenuItem
- Caption = '3.) Sum of Cubes (x*x*x+y*y*y)'
- OnClick = Blend03Click
- end
- object Blend04: TMenuItem
- Caption = '4.) ArcTan(Abs(cx/cy))'
- OnClick = Blend04Click
- end
- object Blend05: TMenuItem
- Caption = '5.) Sine(Abs(1/f)'
- OnClick = Blend05Click
- end
- object Blend06: TMenuItem
- Caption = '6.) Linear Grayscale'
- OnClick = Blend06Click
- end
- object Blend07: TMenuItem
- Caption = '7.) Abs(ArcTan(Abs(v.zx / v.zy)) - ArcTan(Abs(v.zy / v.zx)))'
- OnClick = Blend07Click
- end
- object Blend08: TMenuItem
- Caption = '8.) Additional, r=(x+y), g=(x*x*r), b=(y*y*r)'
- OnClick = Blend08Click
- end
- object Blend09: TMenuItem
- Caption = '9.) limit 768'
- OnClick = Blend09Click
- end
- object N9: TMenuItem
- Caption = '-'
- end
- object Blend11: TMenuItem
- Caption = '11.) r=(x*x+y*y); g=(x+r)*.5; b=(y+r)*.5'
- OnClick = Blend11Click
- end
- object Blend12: TMenuItem
- Caption = '12.) r=(x*x+y*y); g=x*x; b=y*y'
- OnClick = Blend12Click
- end
- object Blend13: TMenuItem
- Caption = '13.) r=.5*(x*x*x+y*y*y); g=.5*x*x*x+r; b=.5*y*y*y+r'
- OnClick = Blend13Click
- end
- object Blend14: TMenuItem
- Caption = '14.) ArcTan(Abs(cx/cy))'
- OnClick = Blend14Click
- end
- object Blend15: TMenuItem
- Caption = '15.) Sine(Abs(1/f)'
- OnClick = Blend15Click
- end
- object Blend16: TMenuItem
- Caption = '16.) Linear Grayscale II'
- OnClick = Blend16Click
- end
- object Blend17: TMenuItem
- Caption = '17.) Abs(ArcTan(Abs(v.zx / v.zy)) - ArcTan(Abs(v.zy / v.zx)))'
- OnClick = Blend17Click
- end
- object Blend18: TMenuItem
- Caption = '18.) Additional, r=(x+y), g=(x*x*r), b=(y*y*r)'
- OnClick = Blend18Click
- end
- end
- object RGBOrder1: TMenuItem
- Caption = 'RGBOrder'
- GroupIndex = 1
- object RGBOrder01: TMenuItem
- Caption = '1.) RGB'
- OnClick = RGBOrder01Click
- end
- object RGBOrder02: TMenuItem
- Caption = '2.) RBG'
- OnClick = RGBOrder02Click
- end
- object RGBOrder03: TMenuItem
- Caption = '3.) GBR'
- OnClick = RGBOrder03Click
- end
- object RGBOrder04: TMenuItem
- Caption = '4.) GRB'
- OnClick = RGBOrder04Click
- end
- object RGBOrder05: TMenuItem
- Caption = '5.) BRG'
- OnClick = RGBOrder05Click
- end
- object RGBOrder06: TMenuItem
- Caption = '6.) BGR'
- OnClick = RGBOrder06Click
- end
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 138
- Top = 18
- object Zoom1: TMenuItem
- Caption = 'Zoom In (double click)'
- OnClick = Zoom1Click
- end
- object N7: TMenuItem
- Caption = '-'
- end
- object JuliaMode2: TMenuItem
- Caption = 'Julia Mode'
- OnClick = JuliaMode1Click
- end
- object InsideOut2: TMenuItem
- Caption = 'Inside Out'
- OnClick = InsideOut1Click
- end
- object N6: TMenuItem
- Caption = '-'
- end
- object ClearRectangle2: TMenuItem
- Caption = 'Clear Rectangle'
- OnClick = ClearRectangle2Click
- end
- end
- object Timer2: TTimer
- Enabled = False
- Interval = 400
- OnTimer = Timer2Timer
- Left = 18
- Top = 58
- end
- object RGBFilterDialog1: TRGBFilterDialog
- Left = 34
- Top = 106
- end
- object CMYFilterDialog1: TCMYFilterDialog
- Left = 74
- Top = 106
- end
- object YCbCrFilterDialog1: TYCbCrFilterDialog
- Left = 114
- Top = 106
- end
- object HLSFilterDialog1: THLSFilterDialog
- Left = 154
- Top = 106
- end
- object HSVFilterDialog1: THSVFilterDialog
- Left = 194
- Top = 106
- end
- object BCGFilterDialog1: TBCGFilterDialog
- Contrast = 1.000000000000000000
- Gamma = 1.000000000000000000
- Left = 234
- Top = 106
- end
- object GrayScaleFilterDialog1: TGrayScaleFilterDialog
- Left = 274
- Top = 106
- end
- object NegativeFilterDialog1: TNegativeFilterDialog
- Left = 314
- Top = 106
- end
- object SharpenFilterDialog1: TSharpenFilterDialog
- StdDeviation = 0.750000000000000000
- Left = 34
- Top = 146
- end
- object DetailFilterDialog1: TDetailFilterDialog
- StdDeviation = 0.750000000000000000
- Left = 74
- Top = 146
- end
- object SmoothFilterDialog1: TSmoothFilterDialog
- StdDeviation = 1.300000000000000000
- Left = 114
- Top = 146
- end
- object BlurFilterDialog1: TBlurFilterDialog
- Radius = 2.500000000000000000
- Left = 154
- Top = 146
- end
- object ContourFilterDialog1: TContourFilterDialog
- StdDeviation = 1.000000000000000000
- Left = 194
- Top = 146
- end
- end
-