Go to most recent revision | Blame | Last modification | View Log | RSS feed
Ý U ±CG <p VTSCompat.pasECG dClassesÈCÒïgTComponent.Loadedfv·égTComponent.Notificationgv·égTComponent.ReadStateiv·égTComponent.SetNamenv·égTComponent.UpdateRegistrysv·égTComponent.ValidateRenametv·égTComponent.WriteStatewv·égTComponent.QueryInterfacexv·égTComponent.BeforeDestructionv·égTComponent.SafeCallExceptionv·égTPersistent.AssignTo6Í\gTPersistent.Assign6Í\gPointÉ¢òcdCommDlgÈCÒïf TOpenFilenameö2gOFN_ENABLETEMPLATEóDСgOFN_ENABLEHOOKÓDСcdSysUtilsÈCÒïcdGraphicsÈCÒïfTIcon´©.JfTBitmap>cg.TBitmapð9zgTBitmap.Create[ÊP²gTBitmap.SetHandleDÊP²gTBitmap.Dormant^ÊP²gTIcon.GetHandle¦lngTBitmap.SetPixelFormatHÊP²fTPixelFormatmRgpf24bitËGúgTBitmap.GetCanvas9ÊP²gTCanvas.Draw¥Ù[²gTBitmap.SetTransparentColorIÊP²gTCanvas.GetPixelÙ[²gTBrush.SetColorúçÊ:gTBitmap.SetMonochromeGÊP²cdControlsÈCÒïf
TImageListÿ.cdWindowsÈCÒïfBOOL#ÏJfHICONݳùfTPointRLtëf TIconInfoÎÚØgGetIconInfo/*©(gDeleteObjectÉìcdDialogsÈCÒïfTOpenDialogI]fTSaveDialogõtúg.TOpenDialog£Fa gTOpenDialog.DefinePropertiesV x8gTOpenDialog.GetStaticRectX x8gTOpenDialog.WndProcY x8gTOpenDialog.CreateZ x8gTOpenDialog.Destroy[ x8gTOpenDialog.Execute\ x8gTCommonDialog.MessageHook\ gTCommonDialog.TaskModalDialog\ gTCommonDialog.DefaultHandler\ g.TSaveDialogçÞKægTSaveDialog.Execute}¸bcdSysInitÈCÒïcdSystemÈCÒïgCompilerVersion"0fInteger|ofBooleanNcÇgTObject.AfterConstructionùä kgTObject.Dispatchûä kgTObject.NewInstanceýä kgTObject.FreeInstanceþä kfPointerÅ(XgTObject.Freeèä kg@HandleFinallyX,TdgTrue§1ØoceImgListÈCÒïgTCustomImageList.SetWidthÑp ôgTCustomImageList.SetHeightÏp ôgTCustomImageList.Addàp ôceShellAPIÈCÒïceShlObjÈCÒïcePatchU fTPatchMethodä±gTPatchMethod.RestoreùÞÑÕg .TPatchMethod\»gTPatchMethod.Create÷ÞÑÕc .1f ppf,&.TExtOpenDialogAccessor "