Nope, I can't get it to work with LCL.
I created a form, with 1 button and this for OnClick:
procedure TForm1.Button1Click(Sender: TObject);
var
cursorbits: array[0..31] of char;
cursormask: array[0..31] of char;
source, mask: PGdkBitmap;
invcursor: PGdkCursor;
fg, bg: TGdkColor;
begin
FillChar(cursorbits, SizeOf(cursorbits), #0);
FillChar(cursormask, SizeOf(cursormask), #0);
FillChar(fg, SizeOf(fg), #0);
FillChar(bg, SizeOf(bg), #0);
source := gdk_bitmap_create_from_data (nil, cursorbits, 16, 16);
mask := gdk_bitmap_create_from_data (nil, cursormask, 16, 16);
invcursor := gdk_cursor_new_from_pixmap (source, mask, @fg, @bg, 8, 8);
gdk_pixmap_unref (source);
gdk_pixmap_unref (mask);
gdk_window_set_cursor(PGtkWidget(Self.Handle)^.window, invcursor);
end;
--
Felipe Monteiro de Carvalho
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
