← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/packages/gtk2/src/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/gtk2/src/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