Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | daniel-mar | 1 | Ý õ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 |
| 2 | TPopupMenu÷i³f TMenuItem%(óg .TPopupMenuQS[g |
||
| 3 | .TMenuItemÙÞgTMenuItem.GetCountZëïgTMenuItem.GetItem\ëïgTMenuItem.SetEnabledjëïcdDIB fTDIBuÉ°g.TDIBm^ g TDIB.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.TBevelZ g.TShapeUJ¹g.TImageJ|RÒgTImage.SetStretchìUi |
||
| 4 | cdStdCtrlsÈCÒïfTButton[PV.fTLabel¬n¼g.TButtonµ9-g.TLabelXcdControlsÈCÒïgTWinControl.AssignToægTWinControl.CanAutoSizeægTWinControl.CanResize æg TWinControl.ConstrainedResize¢ægTWinControl.CreateHandle¥æg#TWinControl.CustomAlignInsertBeforeªæg TWinControl.CustomAlignPosition«ægTWinControl.DestroyWnd¯ægTWinControl.GetClientOrigin¿æg TWinControl.GetControlExtentsÁæg TWinControl.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 x8cdFormsÈCÒïfTFormg.TFormkðjgTCustomForm.AlignControls¾`þgTCustomForm.CreateParams ¾`þg TCustomForm.CreateWindowHandle ¾`þgTCustomForm.CreateWnd ¾`þg TCustomForm.DefineProperties¾`þg TCustomForm.DestroyWindowHandle¾`þgTCustomForm.DoCreate¾`þgTCustomForm.DoDestroy¾`þgTCustomForm.GetClientRect¾`þgTCustomForm.GetFloating¾`þgTCustomForm.Loaded¾`þgTCustomForm.Notification¾`þgTCustomForm.PaintWindow ¾`þgTCustomForm.QueryInterface ¾`þgTCustomForm.ReadState ¾`þg TCustomForm.SetParentBiDiMode#¾`þgTCustomForm.SetParent%¾`þgTCustomForm.UpdateActions&¾`þgTCustomForm.ValidateRename(¾`þgTCustomForm.WndProc*¾`þgTCustomForm.Resizing+¾`þgTCustomForm.Createb¾`þgTCustomForm.CreateNewc¾`þgTCustomForm.Destroyd¾`þg TCustomForm.AfterConstructione¾`þg TCustomForm.BeforeDestructionf¾`þgTCustomForm.CloseQueryh¾`þgTCustomForm.DefaultHandleri¾`þgTCustomForm.SetFocusu¾`þg TCustomForm.SetFocusedControlv¾`þgTCustomForm.ShowModalx¾`þgTCustomForm.WantChildKeyy¾`þg%TScrollingWinControl.AdjustClientRectäNTg&TScrollingWinControl.AutoScrollEnabledæNTg%TScrollingWinControl.AutoScrollInViewçNTgTCustomForm.Closeg¾`þcdClassesÈCÒïgTComponent.UpdateRegistrysv·égTComponent.WriteStatewv·ég TComponent.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 |
||
| 5 | AnsiString8ÿñg TObject.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½óOug SDIBBitSizer¸¶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 | 6!Selff2ø!Sender" DIBf |
||
| 7 | ðc('TDelphiXPictureEditForm.SaveButtonClick"â A6!Self2!Sender"c()TDelphiXPictureEditForm.ConvertToDIBClick"â µ6!Selff2ø!Sender" DIBf |
||
| 8 | ðcj(Draw2 ü 6!Width*!Height*ck("TDelphiXPictureEditForm.UpdateData£"â 6!Selff2ø i* rf,à r2f,Ð DIB |
||
| 9 | 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 |
||
| 10 | ðc('TDelphiXPictureEditForm.PopupMenu1Popup¡"â Ý6!Self2 |
||
| 11 | !Sender" i*c( FinalizationX,Td \! 6c( |
||
| 12 | DXPictEdit !6cG 2yFhÍ !Éx©þ¸& , |
||
| 13 | LoadButtonÁ , |
||
| 14 | SaveButtonÑ , ClearButtoná ,OKButtonñ , CancelButton ,Panel1 ,Bevel1! , NoneLabel1 ,ShapeA , SizeLabelQ , BitCountLabela ,Bevel2q , |
||
| 15 | OpenDialog , |
||
| 16 | SaveDialog , BitSizeLabel¡ ,ViewBox± , ConvertToDIBÁ ,ClassNameLabelÑ , |
||
| 17 | PopupMenu1á ,geConvertColorñ ,N15 ,N41 ,N21! ,N221 , geGreyscaleA ,N11Q ,N12a ,N13q ,N14 , |
||
| 18 | geNegative ,N1¡ , |
||
| 19 | geCompress± , geDecompressÁ ,N3Ñ ,geCopyá ,gePasteñ - OKButtonClickîå-CancelButtonClickîñ-LoadButtonClickî -SaveButtonClickî-ClearButtonClickîý-FormShowîÙ-geGreyscaleClickîe-geNegativeClickîq-geConvertColorClickîY-geCompressClickî}-geDecompressClickî-ConvertToDIBClickî%- geCopyClickî- gePasteClickî-PopupMenu1Popupî½,FChanged $- |
||
| 20 | UpdateData îA, DIBClassOnly$cD 4 ÿÿÿ@ lYTL < T $ ´ ð |
||
| 21 | LoadButtonô |
||
| 22 | SaveButtonø ClearButtonü OKButton CancelButton Panel1 Bevel1 NoneLabel Shape SizeLabel BitCountLabel Bevel2 |
||
| 23 | OpenDialog$ |
||
| 24 | SaveDialog( BitSizeLabel, ViewBox0 ConvertToDIB4 ClassNameLabel8 |
||
| 25 | PopupMenu1< geConvertColor@ N15D N41H N21L N22P geGreyscaleT N11X N12\ N13` N14d |
||
| 26 | geNegativeh N1l |
||
| 27 | geCompressp geDecompresst N3x geCopy| gePaste OKButtonClick CancelButtonClick LoadButtonClick SaveButtonClick ClearButtonClick FormShow geGreyscaleClick geNegativeClick geConvertColorClick geCompressClick geDecompressClick ConvertToDIBClick geCopyClick gePasteClick PopupMenu1PopupTDelphiXPictureEditForm |
||
| 28 | TDelphiXPictureEditFormL \ |
||
| 29 | DXPictEdit SØ ò0 è Ãè ÿÀ [ø tÇ@ è Ãè ÃSØÆ , h 3Òè Ãè [ÃUì3ÉQQQQQQQQSVWEü3ÀUhx dÿ0d Eü¸ Uô¡ è UôEü À`è Eü ÿR<ÀØ EüÆ 3ÀUh÷ dÿ0d ²¡ è Eø3ÀUhæ dÿ0d UðEü è UðEøÿQLEü, h Uøè 3ÀZYYdhí Eøè Ãé ëð3ÀZYYdë<é UìEü è UìEü, h è 3ÒEüè è Eüè é Uè¡ è UèEü À`è Eü ÿR<ÀÉ EüÆ 3ÀUh dÿ0d ²¡ è Eø3ÀUhõ dÿ0d UäEü è UäEøÿQLEü, h Uøè 3ÀZYYdhü Eøè Ãé ëð3ÀZYYdë2é UàEü è UàEü, h è è Eüè 3ÀZYYdh Eຠè Eèè Eìº è Eôè Ãé ëÎ_^[å]ÃUìj j j SVØ3ÀUh dÿ0d , h p Æ è Àt($ À`º è $ ÀtºL è ëMÆè Uüè Uü$ À`è , h @ è Uøè Uø$ Àtè $ ÿR<Àt"Uô$ è Uô, h è 3ÀZYYdh Eôè Eøº è Ãé ëã^[å]à ÿÿÿÿ$ Bitmap file(*.bmp;*.dib)|*.bmp;*.dib ÿÿÿÿ bmp UìÄøSEüEü, h X Û Ã è Àus²¡ è Eø3ÀUh dÿ0d Eü, h P EøÿQEü, h Uøè 3ÀZYYdh Eøè Ãé ëðEüè [YY]ÃUìSVWòØ}Çü, ²è , Ó+PH÷ÚÑúyÒ Âè , Ö+PL÷ÚÑúyÒ Âè , Óè , Öè _^[]ÃUìÄ´þÿÿSVW3Ò¼þÿÿÀþÿÿÌþÿÿUÐUäEü}ü3ÀUhà dÿ0d , h X ÛG ÃÿR À 8 , h è À , h è À EäP, h è EÔÆEØ , h è EÜÆEà UÔ¹ ¸Ü è Uä è Ðþÿÿ, h @ è ÐþÿÿEÐè UÐ4 è , h X à è À à è XDû u» ÌþÿÿP˸ Óà ÄþÿÿÆ Èþÿÿ Äþÿÿ3ɸì è Ìþÿÿ è , h @ è ØÃè x vH ÀþÿÿPÃè @Áè |
||
| 30 | ÄþÿÿÆ Èþÿÿ Äþÿÿ3ɸ è Àþÿÿ( è ëc ¼þÿÿPÃè @ ÄþÿÿÆ Èþÿÿ Äþÿÿ3ɸ è ¼þÿÿ( è ë 3Òè ( 3Òè , h @ è Ðò0 ÿQd ²è ø ²ÿQd 3Òè ô ²ÿQd, ºä è , ºä è , h è , ;CH h è , ;BLÀ , h è ¸þÿÿÛ ¸þÿÿÛCHÞñÝ]ð, h è ¸þÿÿÛ ¸þÿÿÛCLÞñÝ]èÝEðÜ]èßàv EèEðEìEôU, h è ¸þÿÿÛ ¸þÿÿÜMðè P, h è ´þÿÿÛ ´þÿÿÜMðè Zè Yë/U, h è P, h è Zè Y8 @4è ðN ö F3Û8 @4Óè x t8 @4Óè ²è CNuËéÖ 3Òè 3Òè ( 3Òè 4 3Òè 3Òè ø 3ÒÿQd ²è ô 3ÒÿQd0 3ÒÿQd8 @4è ðN ö|8F3Û8 @4Óè x t8 @4Óè 3Òè CNu˲f¾Ñÿè , ÿR|3ÀZYYdhÊ ¼þÿÿº è Ìþÿÿè EÐè Eäè Ãé ëÍ_^[å]à ÿÿÿÿ (%dx%d) ÿÿÿÿ %d color ÿÿÿÿ %d Kbytes ÿÿÿÿ %d bytes SVWÄÐòØ3ÒÃè Æ T¹ º ¸ è , h @ è Vt$¸ ¹ ó¥^, h @ è V è Ãè Ä0_^[ÃSVWÄÐòØ3ÒÃè Æ T¹ º ¸ è , h @ è Vt$¸ ¹ ó¥^, h @ è V è Ãè Ä0_^[ÃSØ3ÒÃè Æ , h @ è è Ãè [ÃSØ3ÒÃè Æ , h @ è è Ãè [ÃSØ3ÒÃè Æ , h @ è è Ãè [ÃUìÄôSØè ÿR3ÀUhh dÿ0d EôPMøUþ, h @ ÿS`è MøfUþè 3ÀZYYdho è ÿRÃé ëî[å]ÃUìÄøSVWEüEü¸ ù EüÆ 3ÀUhä dÿ0d ²¡ è Eø3ÀUhÓ dÿ0d è ÿR3ÀUh dÿ0d j è fº è Èfº EøÿS\3ÀZYYdh¦ è ÿRÃé ëîEü, h Uøè 3ÀZYYdhÚ Eøè Ãé ëð3ÀZYYdëVé è ÐEü, h ÿQ3ÒEüè è ë%EüÆ è ÐEü, h ÿQEüè _^[YY]ÃSVWø¿ tL| 3Òè è è ØK Û C3öè Öè føu| ²è ë_FKuÛëY| 3Òè è è ØK Û|;C3öè Öè Ð, h è Àt| ²è ëFKuÈ_^[ÃUì3ÀUh% dÿ0d ÿ 3ÀZYYdh, Ãé ëø]Ã- Ãm É É ÍÉÉɾ ðòMöQUîvÈ!ÔÖܤäÚêzx|ÐÒ ¢àÞ¦æ¨À~ÂÄÆÊØø èÌÎâìôúüþ Éiå(ñ0 ,,ý.Ù e.q,Y4},0%0$&½\p`brdRTf,.Í Í:ɼ&Ù&ªA(å" |
||
| 31 | ñ |
||
| 32 | ý2A . < |
||
| 33 | (iP : |
||
| 34 | < .¸D e m"q"¸.% |
||
| 35 | uA |
||
| 36 | (iP : |
||
| 37 | < .¸D e m"q"¸. |
||
| 38 | uA y}y} m":: |
||
| 39 | $ |
||
| 40 | i |
||
| 41 | i"i( "i:¸( }y m%P: |
||
| 42 | : |
||
| 43 | <%n%e mA56h<¬<® ° ²A`A 6"> 4"(A |
||
| 44 | ) ´< ´2: |
||
| 45 | : |
||
| 46 | ¡nA |
||
| 47 | )&´.: |
||
| 48 | ¡>.>@A |
||
| 49 | )&´ >:A |
||
| 50 | )&´"´ ´.: |
||
| 51 | Bª<ªB°$²& 0"H P""(¥( (¥ 5."( 5"0@20240´ ´ ´ ´ ª<ª\082024"©4A y}}} m¸Y %8@*: |
||
| 52 | ¡P: |
||
| 53 | ¡BAe %8@*: |
||
| 54 | ¡P: |
||
| 55 | ¡DAq%8: |
||
| 56 | ¡ |
||
| 57 | FA }%8: |
||
| 58 | ¡ |
||
| 59 | HA %8: |
||
| 60 | ¡ |
||
| 61 | JA R |
||
| 62 | mT: |
||
| 63 | |||
| 64 | m2e m"q |
||
| 65 | @% |
||
| 66 | u"<A½.4 |
||
| 67 | |||
| 68 | |||
| 69 | & &4*4 |
||
| 70 | |||
| 71 | |||
| 72 | *$"4 ÍÍÕÍ mÑÕ Ñ A å dñ f h jý lÙ ne pq rY t} v x% z | ~½ A a |