← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/gtk+/gdk/gdkimage.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gtk2/gtk+/gdk/gdkimage.inc
1
 
// included by gdk2.pp
2
 
{$IFDEF read_forward_definitions}
3
 
{ Types of images.
4
 
     Normal: Normal X image type. These are slow as they involve passing
5
 
             the entire image through the X connection each time a draw
6
 
             request is required. On Win32, a bitmap.
7
 
     Shared: Shared memory X image type. These are fast as the X server
8
 
             and the program actually use the same piece of memory. They
9
 
             should be used with care though as there is the possibility
10
 
             for both the X server and the program to be reading/writing
11
 
             the image simultaneously and producing undesired results.
12
 
             On Win32, also a bitmap.
13
 
  }
14
 
   PGdkImageType = ^TGdkImageType;
15
 
   TGdkImageType = (
16
 
     GDK_IMAGE_NORMAL,
17
 
     GDK_IMAGE_SHARED,
18
 
     GDK_IMAGE_FASTEST
19
 
   );
20
 
 
21
 
   PGdkImage = ^TGdkImage;
22
 
{$ENDIF read_forward_definitions}
23
 
 
24
 
//------------------------------------------------------------------------------
25
 
 
26
 
{$IFDEF read_interface_types}
27
 
 
28
 
   PGdkImageClass = ^TGdkImageClass;
29
 
   TGdkImageClass = record
30
 
        parent_class : TGObjectClass;
31
 
     end;
32
 
 
33
 
{ visual used to create the image  }
34
 
{ bytes per pixel  }
35
 
{ bytes per line  }
36
 
{ bits per pixel  }
37
 
   TGdkImage = record
38
 
        parent_instance : TGObject;
39
 
        _type : TGdkImageType;
40
 
        visual : PGdkVisual;
41
 
        byte_order : TGdkByteOrder;
42
 
        width : gint;
43
 
        height : gint;
44
 
        depth : guint16;
45
 
        bpp : guint16;
46
 
        bpl : guint16;
47
 
        bits_per_pixel : guint16;
48
 
        mem : gpointer;
49
 
        colormap : PGdkColormap;
50
 
        windowing_data : gpointer;
51
 
     end;
52
 
{$ENDIF read_interface_types}
53
 
 
54
 
//------------------------------------------------------------------------------
55
 
 
56
 
{$IFDEF read_interface_rest}
57
 
function GDK_TYPE_IMAGE : GType;
58
 
function GDK_IMAGE(anObject : Pointer) : PGdkImage;
59
 
function GDK_IMAGE_CLASS(klass : Pointer) : PGdkImageClass;
60
 
function GDK_IS_IMAGE(anObject : Pointer) : boolean;
61
 
function GDK_IS_IMAGE_CLASS(klass : Pointer) : boolean;
62
 
function GDK_IMAGE_GET_CLASS(obj : Pointer) : PGdkImageClass;
63
 
 
64
 
 
65
 
function gdk_image_get_type:GType; cdecl; external gdklib;
66
 
function gdk_image_new(_type:TGdkImageType; visual:PGdkVisual; width:gint; height:gint):PGdkImage; cdecl; external gdklib;
67
 
 
68
 
{$ifndef GDK_DISABLE_DEPRECATED}
69
 
function gdk_image_get(drawable:PGdkDrawable; x:gint; y:gint; width:gint; height:gint):PGdkImage; cdecl; external gdklib;
70
 
function gdk_image_ref(image:PGdkImage):PGdkImage; cdecl; external gdklib;
71
 
procedure gdk_image_unref(image:PGdkImage); cdecl; external gdklib;
72
 
{$endif}
73
 
 
74
 
procedure gdk_image_put_pixel(image:PGdkImage; x:gint; y:gint; pixel:guint32); cdecl; external gdklib;
75
 
function gdk_image_get_pixel(image:PGdkImage; x:gint; y:gint):guint32; cdecl; external gdklib;
76
 
procedure gdk_image_set_colormap(image:PGdkImage; colormap:PGdkColormap); cdecl; external gdklib;
77
 
function gdk_image_get_colormap(image:PGdkImage):PGdkColormap; cdecl; external gdklib;
78
 
 
79
 
{$ifdef GDK_ENABLE_BROKEN}
80
 
function gdk_image_new_bitmap(visual:PGdkVisual; data:gpointer; width:gint; height:gint):PGdkImage; cdecl; external gdklib;
81
 
{$endif}
82
 
{ GDK_ENABLE_BROKEN  }
83
 
 
84
 
{$ifndef GDK_DISABLE_DEPRECATED}
85
 
procedure gdk_image_destroy(image:PGdkImage);
86
 
{$endif}
87
 
{ GDK_DISABLE_DEPRECATED  }
88
 
{$endif read_interface_rest}
89
 
 
90
 
//------------------------------------------------------------------------------
91
 
 
92
 
{$IFDEF read_implementation}
93
 
function GDK_TYPE_IMAGE : GType;
94
 
begin
95
 
  GDK_TYPE_IMAGE:=gdk_image_get_type;
96
 
end;
97
 
 
98
 
function GDK_IMAGE(anObject : Pointer) : PGdkImage;
99
 
begin
100
 
  GDK_IMAGE:=PGdkImage(G_TYPE_CHECK_INSTANCE_CAST(anObject,GDK_TYPE_IMAGE));
101
 
end;
102
 
 
103
 
function GDK_IMAGE_CLASS(klass : Pointer) : PGdkImageClass;
104
 
begin
105
 
  GDK_IMAGE_CLASS:=PGdkImageClass(G_TYPE_CHECK_CLASS_CAST(klass,GDK_TYPE_IMAGE));
106
 
end;
107
 
 
108
 
function GDK_IS_IMAGE(anObject : Pointer) : boolean;
109
 
begin
110
 
  GDK_IS_IMAGE:=G_TYPE_CHECK_INSTANCE_TYPE(anObject,GDK_TYPE_IMAGE);
111
 
end;
112
 
 
113
 
function GDK_IS_IMAGE_CLASS(klass : Pointer) : boolean;
114
 
begin
115
 
  GDK_IS_IMAGE_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GDK_TYPE_IMAGE);
116
 
end;
117
 
 
118
 
function GDK_IMAGE_GET_CLASS(obj : Pointer) : PGdkImageClass;
119
 
begin
120
 
  GDK_IMAGE_GET_CLASS:=PGdkImageClass(G_TYPE_INSTANCE_GET_CLASS(obj,GDK_TYPE_IMAGE));
121
 
end;
122
 
 
123
 
procedure gdk_image_destroy(image:PGdkImage);
124
 
begin
125
 
  g_object_unref(G_OBJECT(image));
126
 
end;
127
 
{$ENDIF}
128