Go to most recent revision | Blame | Last modification | View Log | RSS feed
# H u¹â6×0ù DIB <pDelphiXcfg.inch½ö(pDIB.pash½ö( dSystem fByteµáfWordNùfInteger fÂfBooleanúefPointerïfTObject|ê®ìgTObject.SafeCallException²
ÄgTObject.AfterConstruction³
ÄgTObject.BeforeDestruction´
ÄgTObject.Dispatchµ
ÄgTObject.DefaultHandler¶
ÄgTObject.NewInstance·
ÄgTObject.FreeInstance¸
Ąf
AnsiString¶+{fstring¶+{gInc g.TObject_¾>g@BeforeDestructionºS«g @ClassDestroyüÅàgDec gTObject.Free¢
ÄgTObject.Create¡
Äg@ClassCreateçVÃg@AfterConstructionKgTObject.Destroy¹
ÄgSizeOf gExit gMove=ÉiðgTruevÉøg LoadResString[WbgGetMem g@GetMemõ+ÂgFillChar g @FillChar$g@RaiseExcepté`pÅg @LStrArrayClrüg@HandleFinallyé`pÅg
ReallocMem g@ReallocMem,Ä«\gBreak fLongint fÂgFalsesÉøgAbs gFreeMem g@FreeMemõ+Âg@IsClass¡g@HandleAnyExceptioné`pÅg@RaiseAgainé`pÅg@DoneExcepté`pÅg@LStrClr\ª«>gOrd g@TryFinallyExité`pÅg@LStrAsgÔg @CallDynaInsté`pÅgTrunc g@TRUNCé`pÅfSingleñ×gRound g@ROUNDé`pÅcdSysInit cdWindows fTRGBQuadóOOZf TPaletteEntryÕiöîfDWORDIÐáKfPBitmapInfo£ÍT fTHandleIÐáKfHPALETTEIÐáKfTRectuÿÁf
tagRGBQUADóOOZftagPALETTEENTRYÕiöîgDeleteObjectÀªBg CreatePaletteB
¦[fPLogPaletteè2º>fTBitmapInfoHeaderFûftagBITMAPINFOHEADERFûgBI_BITFIELDSµ}ç1gBI_RLE4²}ç1gBI_RLE8¯}ç1gBI_RGB¬}ç1gGlobalAllocÂ-¡g
GMEM_FIXED¬}ç1gCreateCompatibleDCgCreateDIBSection8`ßFgDIB_RGB_COLORS¬}ç1gSelectObjectÂ-¡fPByteðüýüfTBitmapCoreHeaderÈ$TPf
TRGBTriple|%Ø|gGlobalAllocPtrùF«ftagRGBTRIPLE|%Ø|g GlobalFreePtr5qgDeleteDCÀªBgSetDIBColorTableÝTïfPBitmapB¦±RfPDIBSection''TgGetPaletteEntriesÝTïg GetObjectZhsfTBitmap®|ÂîfTDIBSection¼î.°g SelectPaletteðÁTÇgRealizePalettegSetStretchBltModeI½gCOLORONCOLORµ}ç1gGdiFlushÜg StretchDIBits·öºg
StretchBltàé½ôg
GlobalLockª°qg
GlobalSizegGlobalUnlockÀªBfTBitmapFileHeaderÌfgCF_DIBÄ}ç1gGHNDr~ç1ftagBITMAPFILEHEADERÌffPWORDÁÎýfPDWORD ¶=gGetTickCountñöãcdSysUtils g
CompareMem.ì|f Exception¢úÌ!gException.CreateÉâ¹gException.CreateFmtÊâ¹gOutOfMemoryErroré`pÅcdClasses fTStream¬Ï{fTFilerò)| fTPersistentÁ1Ùg$TInterfacedPersistent.QueryInterfaceü:ºÅg'TInterfacedPersistent.AfterConstructioný:ºÅgTPersistent.AssignToç!Fqf
TComponentAfg.TComponentfù·gTComponent.DefinePropertiesÀa0þgTComponent.LoadedÅa0þgTComponent.NotificationÆa0þgTComponent.ReadStateÈa0þgTComponent.SetNameÍa0þgTComponent.UpdateRegistryÒa0þgTComponent.ValidateRenameÓa0þgTComponent.WriteStateÖa0þgTComponent.QueryInterface×a0þgTComponent.BeforeDestructionàa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqfTNotifyEventè³öfTCollectionItemk GÐg.TCollectionItemNá$"gTCollectionItem.GetDisplayName-\hgTCollectionItem.SetCollection-\hgTCollectionItem.SetIndex-\hgTCollectionItem.SetDisplayName-\hgTCollectionItem.Create-\hgTPersistent.DefinePropertiesè!FqfTCollection\.ÈgTCollectionItem.Destroy-\hg.TCollection?¦ÚgTCollection.CreateNÝ gTCollection.GetCountNÝ gTCollection.GetItemNÝ fEOutOfResources¹<*#g.EOutOfResourcesugTStream.ReadBufferÛïgTPersistent.Destroyê!Fqf TMemoryStreamU8g.TMemoryStream8àxgTMemoryStream.Realloc|,°ÐgTMemoryStream.SetSize,°ÐgTMemoryStream.Write,°ÐgTCustomMemoryStream.ReadGØó»gTCus
tomMemoryStream.SeekHØó»gTStream.GetSizeÔïgTStream.SetSizeÖïgTStream.SeekÚïgTCustomMemoryStream.SetPointerFØó»gTMemoryStream.Destroy~,°ÐgTStream.WriteBufferÜïgRectS2ÙLgTComponent.CreateÞa0þgTComponent.Destroyßa0þgBoundsÉYm f.35È@ÙXgcsDesigningMêÖëcdGraphics fTSharedImage¦çòg .TSharedImageyzÅDfTGraphicÂ/÷/fTCanvas°68g .TGraphic¥ÕgTGraphic.ChangedíOÈgTGraphic.EqualsðOÈgTGraphic.GetTransparentôOÈgTGraphic.SetTransparentúOÈgTGraphic.LoadFromFileþOÈgTGraphic.SaveToFileÿOÈgTGraphic.SetSizePÈfEInvalidGraphicOperation×ö¯g.EInvalidGraphicOperationºÊàfEInvalidGraphicv7ýÿg.EInvalidGraphicYÛQgTSharedImage.Reference¼ÆügTGraphic.CreateýOÈfTBitmapa+8gTCanvas.Drawý2KÐg.TBitmapD×fTPicture"tëg .TPictureH]=gTCanvas.GetHandleè2KÐg.TCanvasægTCanvas.Create÷2KÐgTCanvas.SetHandleï2KÐgTGraphic.DefinePropertiesîOÈgTSharedImage.Release½ÆüfTProgressStageíÔï.g
psStartingf~íÁgpsEndingl~íÁg psRunningi~íÁgTCanvas.StretchDraw3KÐg TPen.SetStyle£ÿ f TPenStyleÂ×·gpsDash>µgTBrush.SetStyleVAºXfTBrushStyle¼wúgbsClear8!øgTCanvas.Rectangle 3KÐg TPicture.RegisterClipboardFormatggTPicture.RegisterFileFormategTPicture.UnregisterGraphicClasshcdControls fTGraphicControloW¤fTControlɶÚÁg.TGraphicControlC5ögTControl.AssignTo©×ïYgTControl.CanResize«×ïYgTControl.CanAutoSize¬×ïYgTControl.ConstrainedResize°×ïYgTControl.DefinePropertiesµ×ïYgTControl.GetActionÄ×ïYgTControl.GetClientOriginÆ×ïYgTControl.GetClientRectÇ×ïYgTControl.GetDeviceContextÈ×ïYgTControl.GetDragImagesÊ×ïYgTControl.GetEnabledË×ïYgTControl.GetFloatingÌ×ïYg!TControl.GetFloatingDockSiteClassÍ×ïYgTControl.LoadedÐ×ïYgTControl.NotificationÕ×ïYgTControl.ReadStateØ×ïYgTControl.RequestAlignÙ×ïYgTControl.SetAutoSizeÞ×ïYgTControl.SetDragModeß×ïYgTControl.SetEnabledà×ïYgTControl.SetNameá×ïYgTControl.SetParentâ×ïYgTControl.SetParentBiDiModeä×ïYgTControl.SetBiDiModeå×ïYgTControl
.WndProcê×ïYgTControl.DefaultHandlerØïYgTControl.InitiateAction(ØïYgTControl.Invalidate)ØïYgTControl.Repaint0ØïYgTControl.SetBounds5ØïYgTControl.Update9ØïYfTAlignûP`gTControl.SetAlign]×ïYfTCursoræUf TDragModep|éògTControl.IsEnabledStoredN×ïYgTControl.SetParentShowHinto×ïYgTControl.SetPopupMenup×ïYgTControl.SetShowHintn×ïYgTControl.IsShowHintStoredS×ïYgTControl.SetVisibles×ïYgTControl.IsVisibleStoredT×ïYgTControl.IsOnClickStoredR×ïYfTDragDropEventr2ÆJfTDragOverEventtf TEndDragEvent$wÃOfTMouseEvent$(.åfTMouseMoveEventKÑáÿfTStartDragEventTÌgTGraphicControl.CreateGl<f.31®AÙXgcsReplicatableHëÖëgTControl.SetHeightf×ïYgTControl.SetWidtht×ïYgTGraphicControl.DestroyHl<gTControl.GetClientWidthB×ïYgTControl.GetClientHeightA×ïYgTGraphicControl.PaintEl<cdMenus f
TPopupMenu <ceDXConsts gSInvalidDIBPixelFormatiif@gSInvalidDIBBitCountiif@gSCannotMadeiif@gSInvalidDIBiif@g SScanlineiif@ceTypes fTRectuÿÁc5DIB _¸Ïc5System c5SysInit |c5Windows ~c5SysUtils îc5Classes úc5Graphics ác5Controls c* TRGBQuads k"Ë*TPaletteEntries Ïq5*PBGR µ8ð*TBGR ®ø* PArrayBGR "ª¿Ö* TArrayBGR ñ*
PArrayByte ÛÒ>4*
TArrayByte ñ´;G*
PArrayWord ¤RZ4*
TArrayWord "UG*PArrayDWord G±NÑ *TArrayDWord 0¿¢*TDIBPixelFormat ;Y¤&.TDIBSharedImage Ä%¦ *TDIBSharedImage á;GB¨&.TDIB ظª *TDIB ½Ûµ¬&
.TDIBitmap =ëÂþ® * TDIBitmap Z嬰& .TCustomDXDIB »Í² *TCustomDXDIB ØÂï6´&.TDXDIB ã6¶¶ *TDXDIB cØ-¸&.TCustomDXPaintBox øÚBº *TCustomDXPaintBox °üð¼&.TDXPaintBox jNC¾ *TDXPaintBox ÊpñÀ7.8F  5DXConsts c(Max !B1 !B2 Result c(MakeDIBPixelFormat ¾Ëü =¤ ! RBitCount ! GBitCount ! BBitCount #Result ¤cj(GetBitCount b !b Result i ck(MakeDIBPixelFormatMask ¾Ëü j¤ !RBitMask !GBitMask !BBitMask
#Result&