mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-01 16:33:09 +02:00
77989dc1e0
- rearrange extras - introduced TGtk2DeviceContext.DrawTextWithColor (mostly from 0009665 with modifications) - use DrawTextWithColor in TextOut and ExtTextOut git-svn-id: trunk@13987 -
81 lines
2.9 KiB
PHP
81 lines
2.9 KiB
PHP
{%MainUnit gtk2int.pp}
|
|
{ $Id$ }
|
|
|
|
{******************************************************************************
|
|
All GTK2 interface communication implementations.
|
|
Initial Revision : Sat Jan 17 19:00:00 2004
|
|
|
|
|
|
!! Keep alphabetical !!
|
|
|
|
Support routines go to gtk2proc.pp
|
|
|
|
******************************************************************************
|
|
Implementation
|
|
******************************************************************************
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.modifiedLGPL, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
|
|
//##apiwiz##sps## // Do not remove
|
|
|
|
function TGtk2WidgetSet.ExtUTF8Out(DC: HDC; X, Y: Integer; Options: Longint;
|
|
Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean;
|
|
begin
|
|
// all fonts are UTF-8 under gtk2 => no mapping needed
|
|
Result:=ExtTextOut(DC,X,Y,Options,Rect,Str,Count,Dx);
|
|
end;
|
|
|
|
function TGtk2WidgetSet.TextUTF8Out(DC: HDC; X, Y: Integer; Str: PChar;
|
|
Count: Longint): Boolean;
|
|
begin
|
|
// all fonts are UTF-8 under gtk2 => no mapping needed
|
|
Result := TextOut(DC, X, Y, Str, Count);
|
|
end;
|
|
|
|
function TGtk2WidgetSet.ComboBoxDropDown(Handle: HWND; DropDown: boolean): boolean;
|
|
var
|
|
WidgetInfo: PWidgetInfo;
|
|
Combo: PGtkComboBox;
|
|
begin
|
|
WidgetInfo := GetWidgetInfo(Pointer(Handle), False);
|
|
Combo := PGtkComboBox(WidgetInfo^.CoreWidget);
|
|
|
|
case DropDown of
|
|
True : gtk_combo_box_popup(Combo);
|
|
False: gtk_combo_box_popdown(Combo);
|
|
end;
|
|
Result:=true;
|
|
end;
|
|
|
|
function TGtk2WidgetSet.SetComboMinDropDownSize(Handle: HWND; MinItemsWidth,
|
|
MinItemsHeight, MinItemCount: integer): boolean;
|
|
var
|
|
p: PGtkWidget;
|
|
Menu: PGtkWidget;
|
|
Requisition: TGtkRequisition;
|
|
begin
|
|
Result:=True;
|
|
p := GetWidgetInfo(Pointer(Handle), False)^.CoreWidget;
|
|
|
|
Menu := PGtkWidget(g_object_get_data(G_OBJECT(p), 'Menu'));
|
|
if Menu<>nil then begin
|
|
Requisition.width := MinItemsWidth;
|
|
Requisition.height := MinItemsHeight * MinItemCount;
|
|
gtk_widget_size_request(Menu, @Requisition);
|
|
end;
|
|
end;
|
|
|
|
//##apiwiz##eps## // Do not remove, no wizard declaration after this line
|