mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 12:09:32 +02:00
0ad0cefeb3
U compiler/ncal.pas U compiler/optdfa.pas A tests/webtbs/tw34438.pp --- Recording mergeinfo for merge of r40202 into '.': U . git-svn-id: branches/fixes_3_2@40740 -
43 lines
765 B
ObjectPascal
43 lines
765 B
ObjectPascal
{%norun}
|
|
{$mode objfpc}
|
|
uses
|
|
types,math;
|
|
|
|
type
|
|
PGtkWidget = pointer;
|
|
PGtkNotebook = pointer;
|
|
|
|
function MyRect(Left,Top,Right,Bottom : Integer) : TRect; inline;
|
|
|
|
begin
|
|
MyRect.Left:=Left;
|
|
MyRect.Top:=Top;
|
|
MyRect.Right:=Right;
|
|
MyRect.Bottom:=Bottom;
|
|
end;
|
|
|
|
function GetWidgetClientRect(TheWidget: PGtkWidget): TRect;
|
|
var
|
|
Widget, ClientWidget: PGtkWidget;
|
|
AChild: PGtkWidget;
|
|
|
|
procedure GetNoteBookClientRect(NBWidget: PGtkNotebook);
|
|
var
|
|
PageIndex: LongInt;
|
|
PageWidget: PGtkWidget;
|
|
FrameBorders: TRect;
|
|
aWidth: LongInt;
|
|
aHeight: LongInt;
|
|
begin
|
|
Result:=MyRect(0,0,
|
|
Max(0,AWidth-FrameBorders.Left-FrameBorders.Right),
|
|
Max(0,aHeight-FrameBorders.Top-FrameBorders.Bottom));
|
|
end;
|
|
|
|
begin
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|