GTK2 behaviors

9 messages · 5 people · 1-9-2010 – 1-10-2010

Kjow 4
Mattias Gaertner 2
cobines 1
Felipe Monteiro de Carvalho 1
Paul Ishenin 1

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Kjow1-9-2010 00:07 UTC

Hi all,

I need some GTK2 behaviors in my Lazarus application, so I added "gtk2" unit to uses... but how to "link" (???) my form with "PGtkWindow"?

e.g. new lazarus application with two buttons on the form: _________________________

unit main;
{$mode objfpc}{$H+}
interface
uses
   ..., ..., gtk2;

...
...
...

var
  Form1: TForm1;
  window :  PGtkWindow;
implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
   window :=  gtk_window_new (GTK_WINDOW_TOPLEVEL); ------> it returns
PGtkWidget, not PGtkWindow
   //I think I need something that link window to Form1, but I don't
know how/what...
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  gtk_window_fullscreen(window);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  gtk_window_unfullscreen(window);
end;
initialization
  {$I main.lrs}
end.

_________________________

Thank you!

Reply by email

Paul Ishenin1-9-2010 06:02 UTC

to Kjow

Kjow wrote
window := gtk_window_new (GTK_WINDOW_TOPLEVEL); ------> it returns PGtkWidget, not PGtkWindow

All gtk_something_new() return PGtkWidget. Just typecast it: PGtkWindow(gtk_window_new())

Best regards,
Paul Ishenin.

Reply by email

Mattias Gaertner1-9-2010 08:58 UTC

to Kjow: I need some GTK2 behaviors in my Lazarus application, so I added "gtk2" unit to uses...…

Show quoted text 46 lines

Hi all, I need some GTK2 behaviors in my Lazarus application, so I added "gtk2" unit to uses... but how to "link" (???) my form with "PGtkWindow"? e.g. new lazarus application with two buttons on the form: _________________________ unit main; {$mode objfpc}{$H+} interface uses ..., ..., gtk2; ... ... ... var Form1: TForm1; window : PGtkWindow; implementation { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin window := gtk_window_new (GTK_WINDOW_TOPLEVEL); ------> it returns PGtkWidget, not PGtkWindow //I think I need something that link window to Form1, but I don't know how/what... end; procedure TForm1.Button1Click(Sender: TObject); begin gtk_window_fullscreen(window); end; procedure TForm1.Button2Click(Sender: TObject); begin gtk_window_unfullscreen(window);

If you want to make a form full screen under gtk, use:
uses gtkproc;
SetWindowFullScreen(Form1,true);

Mattias

Reply by email

Kjow1-9-2010 09:23 UTC

to Paul Ishenin: All gtk_something_new() return PGtkWidget. Just typecast it: PGtkWindow(gtk_window_new())…

2010/1/9 Paul Ishenin :

Show quoted text 5 lines

All gtk_something_new() return PGtkWidget. Just typecast it: PGtkWindow(gtk_window_new()) Best regards, Paul Ishenin.

Thanks, but how can I pass form to gtkwindow?

Kjow

Reply by email

Kjow1-9-2010 09:24 UTC

to Mattias Gaertner: On Sat, 9 Jan 2010 01:07:46 +0100 If you want to make a form full screen under gtk, use:…

2010/1/9 Mattias Gaertner :

Show quoted text 7 lines

If you want to make a form full screen under gtk, use: uses gtkproc; SetWindowFullScreen(Form1,true); Mattias

Thank you!
It works, but can I use gtk2 calls in lazzarus apps?

Kjow

Reply by email

Mattias Gaertner1-9-2010 09:35 UTC

to Kjow

Show quoted text 11 lines

2010/1/9 Mattias Gaertner : > If you want to make a form full screen under gtk, use: > uses gtkproc; > > SetWindowFullScreen(Form1,true); > > > Mattias Thank you! It works, but can I use gtk2 calls in lazzarus apps?

It depends. They may conflict with the gtk2 interface of the LCL.

Mattias

Reply by email

Kjow1-9-2010 09:53 UTC

to Mattias Gaertner

2010/1/9 Mattias Gaertner :