paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 01:32:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed gtk2interface package

Browse Source 
git-svn-id: trunk@4628 -
This commit is contained in:
mattias 2003-09-15 15:43:04 +00:00
parent b1eea0db5a
commit 1db3ed1f2b
2 changed files with 30 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -1294,6 +1294,8 @@ function TgtkObject.CreateFontIndirectEx(const LogFont: TLogFont;
const LongFontName: string): HFONT;
{$IfDef USE_PANGO}
begin
writeln('ToDo: TgtkObject.CreateFontIndirectEx');
Result:=0;
end;
{$Else}
var
@ -2948,6 +2950,8 @@ function TgtkObject.ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint;
Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean;
{$Ifdef USE_PANGO}
begin
writeln('ToDo: TgtkObject.ExtTextOut');
Result:=false;
end;
{$Else}
var
@ -3760,7 +3764,12 @@ end;
------------------------------------------------------------------------------}
function TgtkObject.GetCursorPos(var lpPoint: TPoint ): Boolean;
{$IfDef GTK1}
{$IfDef GTK2}
begin
writeln('TGTKObject.TextOut ToDo');
Result:=false;
end;
{$Else}
var
root, child: pointer;
winx, winy: Integer;
@ -3788,10 +3797,8 @@ begin
if TopList <> nil
then g_list_free(TopList);
{$Else}
begin
{$EndIf}
end;
{$EndIf}
{------------------------------------------------------------------------------
Function: GetDC
@ -4974,6 +4981,8 @@ function TgtkObject.GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer;
var Size: TSize): Boolean;
{$IfDef USE_PANGO}
begin
writeln('TGTKObject.GetTextExtentPoint ToDo');
Result:=false;
end;
{$Else}
var
@ -8489,6 +8498,8 @@ Function TGTKObject.TextOut(DC: HDC; X,Y : Integer; Str : Pchar;
Count: Integer) : Boolean;
{$IfDef USE_PANGO}
begin
writeln('TGTKObject.TextOut ToDo');
Result:=false;
end;
{$ELSE}
var
@ -8764,6 +8775,9 @@ end;
{ =============================================================================
$Log$
Revision 1.281 2003/09/15 15:43:04 mattias
fixed gtk2interface package
Revision 1.280 2003/09/11 21:33:11 ajgenius
partly fixed TWinControl(csFixed)

13
lcl/interfaces/gtk2/gtk2interface.lpk
View File

@ -1,7 +1,18 @@
<?xml version="1.0"?>
<CONFIG>
<Package>
<Package Version="2">
<Name Value="GTK2Interface"/>
<CompilerOptions>
<SearchPaths>
<OtherUnitFiles Value="../gtk/;../../units/"/>
<UnitOutputDirectory Value="../../units/gtk2"/>
<LCLWidgetType Value="gtk"/>
</SearchPaths>
<Other>
<CustomOptions Value="-dGTK2"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Files Count="20">
<Item1>
<Filename Value="interfaces.pas"/>