Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 1 | # H u¹â6×0ù DIB <pDelphiXcfg.inch½ö(pDIB.pash½ö( dSystem fByteµáfWordNùfInteger fÂfBooleanúefPointerïfTObject|ê®ìgTObject.SafeCallException² |
2 | ÄgTObject.AfterConstruction³ |
||
3 | ÄgTObject.BeforeDestruction´ |
||
4 | ÄgTObject.Dispatchµ |
||
5 | ÄgTObject.DefaultHandler¶ |
||
6 | ÄgTObject.NewInstance· |
||
7 | ÄgTObject.FreeInstance¸ |
||
8 | Ąf |
||
9 | AnsiString¶+{fstring¶+{gInc g.TObject_¾>g@BeforeDestructionºS«g @ClassDestroyüÅàgDec gTObject.Free¢ |
||
10 | ÄgTObject.Create¡ |
||
11 | Äg@ClassCreateçVÃg@AfterConstructionKgTObject.Destroy¹ |
||
12 | ÄgSizeOf gExit gMove=ÉiðgTruevÉøg LoadResString[WbgGetMem g@GetMemõ+ÂgFillChar g @FillChar$g@RaiseExcepté`pÅg @LStrArrayClrüg@HandleFinallyé`pÅg |
||
13 | 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 |
||
14 | tagRGBQUADóOOZftagPALETTEENTRYÕiöîgDeleteObjectÀªBg CreatePaletteB |
||
15 | ¦[fPLogPaletteè2º>fTBitmapInfoHeaderFûftagBITMAPINFOHEADERFûgBI_BITFIELDSµ}ç1gBI_RLE4²}ç1gBI_RLE8¯}ç1gBI_RGB¬}ç1gGlobalAllocÂ-¡g |
||
16 | GMEM_FIXED¬}ç1gCreateCompatibleDCgCreateDIBSection8`ßFgDIB_RGB_COLORS¬}ç1gSelectObjectÂ-¡fPByteðüýüfTBitmapCoreHeaderÈ$TPf |
||
17 | TRGBTriple|%Ø|gGlobalAllocPtrùF«ftagRGBTRIPLE|%Ø|g GlobalFreePtr5qgDeleteDCÀªBgSetDIBColorTableÝTïfPBitmapB¦±RfPDIBSection''TgGetPaletteEntriesÝTïg GetObjectZhsfTBitmap®|ÂîfTDIBSection¼î.°g SelectPaletteðÁTÇgRealizePalettegSetStretchBltModeI½gCOLORONCOLORµ}ç1gGdiFlushÜg StretchDIBits·öºg |
||
18 | StretchBltàé½ôg |
||
19 | GlobalLockª°qg |
||
20 | GlobalSizegGlobalUnlockÀªBfTBitmapFileHeaderÌfgCF_DIBÄ}ç1gGHNDr~ç1ftagBITMAPFILEHEADERÌffPWORDÁÎýfPDWORD ¶=gGetTickCountñöãcdSysUtils g |
||
21 | CompareMem.ì|f Exception¢úÌ!gException.CreateÉâ¹gException.CreateFmtÊâ¹gOutOfMemoryErroré`pÅcdClasses fTStream¬Ï{fTFilerò)| fTPersistentÁ1Ùg$TInterfacedPersistent.QueryInterfaceü:ºÅg'TInterfacedPersistent.AfterConstructioný:ºÅgTPersistent.AssignToç!Fqf |
||
22 | 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Øó»gTCustomMemoryStream.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 |
||
23 | 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 |
||
24 | 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 ñ* |
||
25 | PArrayByte ÛÒ>4* |
||
26 | TArrayByte ñ´;G* |
||
27 | PArrayWord ¤RZ4* |
||
28 | TArrayWord "UG*PArrayDWord G±NÑ *TArrayDWord 0¿¢*TDIBPixelFormat ;Y¤&.TDIBSharedImage Ä%¦ *TDIBSharedImage á;GB¨&.TDIB ظª *TDIB ½Ûµ¬& |
||
29 | .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 |
||
30 | #Result& |