Go to most recent revision | Blame | Last modification | View Log | RSS feed
Ý õ2 ±3 <pDXPictEdit.pasi½ö( rDXPictEdit.DFMi½ö(dClipbrdÈCÒïg Clipboard ÕgTClipboard.SetAsHandle,ÕgTClipboard.GetAsHandle'ÕgTClipboard.GetFormatCountÕgTClipboard.GetFormatsÕcdGraphicsÈCÒïgTPicture.SetGraphic»¬Qg GraphicFilterìõ_¬fTGraphic3/g .TGraphicùrgTPicture.LoadFromFileǬQf TGraphicClassHu_xgGraphicExtensionìõ_¬gTPicture.SaveToFileȬQgTPicture.GetWidth¸¬QgTPicture.GetHeightµ¬Qg TPicture.SupportsClipboardFormatˬQcdMenusÈCÒïf
TPopupMenu÷i³f TMenuItem%(óg.TPopupMenuQS[g
.TMenuItemÙÞgTMenuItem.GetCountZëïgTMenuItem.GetItem\ëïgTMenuItem.SetEnabledjëïcdDIB fTDIBuÉ°g.TDIBm^ gTDIB.Create78·ÔgTDIB.GetBitmapInfo8·ÔgMakeDIBPixelFormatÑgTDIB.SetBitCount#8·ÔgTDIB.GreyscaleE8·Ôg TDIB.NegativeG8·Ôg TDIB.Compress;8·ÔgTDIB.Decompress<8·ÔcdExtDlgsÈCÒïfTOpenPictureDialogl`fTSavePictureDialog}dÔg.TOpenPictureDialog`U7g.TSavePictureDialog×Mé¿cdExtCtrlsÈCÒïfTPanelENfTBevelDq¸ fTShapeû`â«fTImageð{æg.TPanelë${g.TBevelZg.TShapeUJ¹g.TImageJ|RÒgTImage.SetStretchìUi
cdStdCtrlsÈCÒïfTButton[PV.fTLabel¬n¼g.TButtonµ9-g.TLabelXcdControlsÈCÒïgTWinControl.AssignToægTWinControl.CanAutoSizeægTWinControl.CanResize ægTWinControl.ConstrainedResize¢ægTWinControl.CreateHandle¥æg#TWinControl.CustomAlignInsertBeforeªægTWinControl.CustomAlignPosition«ægTWinControl.DestroyWnd¯ægTWinControl.GetClientOrigin¿ægTWinControl.GetControlExtentsÁægTWinControl.GetDeviceContextÂægTWinControl.ShowControlÜægTWinControl.InvalidateægTWinControl.RepaintægTWinControl.SetBoundsægTWinControl.UpdateægTControl.GetActionD9`gTControl.GetDragImagesJ9`gTControl.GetEnabledK9`g!TControl.GetFloatingDockSiteClassM9`gTControl.SetAutoSize\9`gTControl.SetDragMode]9`gTControl.SetEnabled^9`gTControl.SetName_9`gTControl.SetBiDiModec9`gTControl.InitiateAction¢9`gTControl.SetVisible9`gTControl.SetLeftø9`gTControl.SetTop 9`gTControl.SetWidth9`gTControl.SetHeightô9`gTControl.SetTextÿ9`cdDialogsÈCÒïgTOpenDialog.GetFileNameJ x8cd
FormsÈCÒïfTFormg.TFormkðjgTCustomForm.AlignControls¾`þgTCustomForm.CreateParams¾`þgTCustomForm.CreateWindowHandle¾`þgTCustomForm.CreateWnd ¾`þgTCustomForm.DefineProperties¾`þgTCustomForm.DestroyWindowHandle¾`þgTCustomForm.DoCreate¾`þgTCustomForm.DoDestroy¾`þgTCustomForm.GetClientRect¾`þgTCustomForm.GetFloating¾`þgTCustomForm.Loaded¾`þgTCustomForm.Notification¾`þgTCustomForm.PaintWindow¾`þgTCustomForm.QueryInterface¾`þgTCustomForm.ReadState ¾`þgTCustomForm.SetParentBiDiMode#¾`þgTCustomForm.SetParent%¾`þgTCustomForm.UpdateActions&¾`þgTCustomForm.ValidateRename(¾`þgTCustomForm.WndProc*¾`þgTCustomForm.Resizing+¾`þgTCustomForm.Createb¾`þgTCustomForm.CreateNewc¾`þgTCustomForm.Destroyd¾`þgTCustomForm.AfterConstructione¾`þgTCustomForm.BeforeDestructionf¾`þgTCustomForm.CloseQueryh¾`þgTCustomForm.DefaultHandleri¾`þgTCustomForm.SetFocusu¾`þgTCustomForm.SetFocusedControlv¾`þgTCustomForm.ShowModalx¾`þgTCustomForm.WantChildKeyy¾`þg%TScrollingWinControl.AdjustClientRectä
NTg&TScrollingWinControl.AutoScrollEnabledæNTg%TScrollingWinControl.AutoScrollInViewçNTgTCustomForm.Closeg¾`þcdClassesÈCÒïgTComponent.UpdateRegistrysv·égTComponent.WriteStatewv·égTComponent.SafeCallExceptionv·égTPersistent.Assign6Í\cdSysUtilsÈCÒïgFormatLS¬cdWindowsÈCÒïfTHandleݳùfHPALETTEݳùgCF_DIB»DСcdSysInitÈCÒïcdSystemÈCÒïfTObject÷! GfBooleanNcÇgTObject.Dispatchûä kgTObject.NewInstanceýä kgTObject.FreeInstanceþä kgTrue§1ØofString8ÿñf
AnsiString8ÿñgTObject.Freeèä kg@LStrAsgw@g@HandleFinallyX,Tdg@HandleAnyExceptionX,Tdg@DoneExceptX,Tdg @LStrArrayClr³¢Â¿g@LStrClrãógTObject.ClassTypeëä kg@IsClassüjSfInteger|ofDoubleù©ÃVgTObject.ClassNameìä kgFalse¦1ØogRound g@LStrFromStringÉ×|g@AsClass}lÌg@ROUNDX,Tdg @CallDynaInstX,TdfWordvOklgBreak ceDXConsts gSDIBSize½ª×g SDIBColorj6¶g SDIBBitSize_K½óOugSDIBBitSizer¸¶c&.TDelphiXPictureEditFormÙ7ª0 *TDelphiXPictureEditFormN4¾2 DelphiXPictureEditFormæ´M¾2% .2f4 ( TDelphiXPictureEditForm.FormShow"â \6!Self2!Sender"c(%TDelphiXPictureEditForm.OKButtonClick"â ,6!Self2 !Sender"c()TDelphiXPictureEditForm.CancelButtonClick"â 6!Self2 !Sender"c((TDelphiXPictureEditForm.ClearButtonClick"â L6!Self2!Sender"c('TDelphiXPictureEditForm.LoadButtonClick"â
6!Selff2ø!Sender" DIBf
ðc('TDelphiXPictureEditForm.SaveButtonClick"â A6!Self2!Sender"c()TDelphiXPictureEditForm.ConvertToDIBClick"â µ6!Selff2ø!Sender" DIBf
ðcj(Draw2 ü 6!Width*!Height*ck("TDelphiXPictureEditForm.UpdateData£"â 6!Selff2ø i* rf,à r2f,Ð DIB
c(+TDelphiXPictureEditForm.geConvertColorClick"â 16!Self2!Sender"c((TDelphiXPictureEditForm.geGreyscaleClick"â 16!Self2!Sender"c('TDelphiXPictureEditForm.geNegativeClick"â v6!Self2!Sender"c('TDelphiXPictureEditForm.geCompressClick"â v6!Self2!Sender"c()TDelphiXPictureEditForm.geDecompressClick"â v6!Self2!Sender"c(#TDelphiXPictureEditForm.geCopyClick"â è6!Self2!Sender" AFormatf.ü ADatafð APalettef èc($TDelphiXPictureEditForm.gePasteClick "â %6!Selff2ø!Sender" DIBf
ðc('TDelphiXPictureEditForm.PopupMenu1Popup¡"â Ý6!Self2
!Sender" i*c(FinalizationX,Td \! 6c(
DXPictEdit !6cG 2yFhÍ !Éx©þ¸&