[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] Reference for unit 'GtkDef' (#lcl)

TGDIObject

Declaration

Source position: gtkdef.pp line 151

type TGDIObject = record

  RefCount: Integer;

  DCCount: Integer;

  Shared: Boolean;

  Owner: TGtkDeviceContext;

  Next: PGDIObject;

  case GDIType: TGDIType of

    gdiBitmap: (

        Depth: Integer;

        SystemVisual: Boolean;

        Visual: PGDKVisual;

        Colormap: PGDKColormap;

        case GDIBitmapType: TGDIBitmapType of

          gbBitmap: (

              GDIBitmapObject: PGdkBitmap;

            );

          gbPixmap: (

              GDIPixmapObject: record

                Image: PGdkPixmap;

                Mask: PGdkBitmap;

              end;

            );

          gbPixbuf: (

              GDIPixbufObject: PGdkPixbuf;

            );

      );

    gdiBrush: (

        IsNullBrush: Boolean;

        GDIBrushColor: TGDIColor;

        GDIBrushFill: TGdkFill;

        GDIBrushPixMap: PGdkPixmap;

      );

    gdiFont: (

        GDIFontObject: TGtkIntfFont;

        LogFont: TLogFont;

        UnTransfFontHeight: Integer;

      );

    gdiPen: (

        IsNullPen: Boolean;

        IsExtPen: Boolean;

        GDIPenColor: TGDIColor;

        GDIPenWidth: DWord;

        GDIPenStyle: DWord;

        GDIPenDashes: Pgint8;

        GDIPenDashesCount: DWord;

        UnTransfPenWidth: DWord;

      );

    gdiRegion: (

        GDIRegionObject: PGdkRegion;

      );

    gdiPalette: (

        SystemPalette: Boolean;

        PaletteRealized: Boolean;

        VisualType: TGdkVisualType;

        PaletteVisual: PGDKVisual;

        PaletteColormap: PGDKColormap;

        RGBTable: TDynHashArray;

        IndexTable: TDynHashArray;

      );

end;