paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 09:22:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed changing menuitem separator and normal

Browse Source 
git-svn-id: trunk@2486 -
This commit is contained in:
mattias 2002-08-17 23:41:25 +00:00
parent 23ba49b912
commit 04b48a48db
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lcl/interfaces/gtk/gtkproc.pp
View File

@ -342,6 +342,8 @@ const
var var
DesignSignalMasks: array[TDesignSignalType] of TDesignSignalMask; DesignSignalMasks: array[TDesignSignalType] of TDesignSignalMask;
var
X11Display : Pointer;
procedure InitDesignSignalMasks; procedure InitDesignSignalMasks;
function DesignSignalNameToType(Name: PChar; After: boolean): TDesignSignalType; function DesignSignalNameToType(Name: PChar; After: boolean): TDesignSignalType;
@ -366,6 +368,13 @@ procedure ConnectSignalAfter(const AnObject:PGTKObject; const ASignal: PChar;
procedure ConnectInternalWidgetsSignals(AWidget: PGtkWidget; procedure ConnectInternalWidgetsSignals(AWidget: PGtkWidget;
AWinControl: TWinControl); AWinControl: TWinControl);
// accelerators
Function DeleteAmpersands(var Str : String) : Longint;
function Ampersands2Underscore(Src: PChar) : PChar;
function RemoveAmpersands(Src: PChar; LineLength : Longint) : PChar;
Procedure GetTextExtentIgnoringAmpersands(Font : PGDKFont; Str : PChar;
LineLength : Longint; lbearing, rbearing, width, ascent, descent : Pgint);
function GetAccelGroup(const Widget: PGtkWidget; function GetAccelGroup(const Widget: PGtkWidget;
CreateIfNotExists: boolean): PGTKAccelGroup; CreateIfNotExists: boolean): PGTKAccelGroup;
procedure SetAccelGroup(const Widget: PGtkWidget; procedure SetAccelGroup(const Widget: PGtkWidget;
@ -379,10 +388,11 @@ procedure Accelerate(Component: TComponent; const Widget : PGtkWidget;
const Msg : TLMShortCut; const Signal : string); const Msg : TLMShortCut; const Signal : string);
procedure ShareWindowAccelGroups(AWindow: PGtkWidget); procedure ShareWindowAccelGroups(AWindow: PGtkWidget);
procedure UnshareWindowAccelGroups(AWindow: PGtkWidget); procedure UnshareWindowAccelGroups(AWindow: PGtkWidget);
procedure GetGdkPixmapFromGraphic(LCLGraphic: TGraphic; procedure GetGdkPixmapFromGraphic(LCLGraphic: TGraphic;
var IconImg, IconMask: PGdkPixmap; var Width, Height: integer); var IconImg, IconMask: PGdkPixmap; var Width, Height: integer);
procedure GetGdkPixmapFromMenuItem(LCLMenuItem: TMenuItem;
var IconImg, IconMask: PGdkPixmap; var Width, Height: integer); // menus
function MENU_ITEM_CLASS(widget: PGtkWidget): PGtkMenuItemClass; function MENU_ITEM_CLASS(widget: PGtkWidget): PGtkMenuItemClass;
function CHECK_MENU_ITEM_CLASS(widget: PGtkWidget): PGtkCheckMenuItemClass; function CHECK_MENU_ITEM_CLASS(widget: PGtkWidget): PGtkCheckMenuItemClass;
function GetRadioMenuItemGroup(LCLMenuItem: TMenuItem): PGSList; function GetRadioMenuItemGroup(LCLMenuItem: TMenuItem): PGSList;
@ -391,11 +401,12 @@ procedure UpdateRadioGroupChecks(RadioGroup: PGSList);
procedure DrawMenuItemIcon(MenuItem: PGtkCheckMenuItem; procedure DrawMenuItemIcon(MenuItem: PGtkCheckMenuItem;
Area: PGdkRectangle); cdecl; Area: PGdkRectangle); cdecl;
procedure MenuSizeRequest(widget:PGtkWidget; requisition:PGtkRequisition); cdecl; procedure MenuSizeRequest(widget:PGtkWidget; requisition:PGtkRequisition); cdecl;
procedure SetMenuItemLabelText(LCLMenuItem: TMenuItem; procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem;
MenuItemWidget: PGtkWidget);
procedure CreateInnerMenuItem(LCLMenuItem: TMenuItem;
MenuItemWidget: PGtkWidget); MenuItemWidget: PGtkWidget);
function CreateMenuItem(LCLMenuItem: TMenuItem): Pointer; function CreateMenuItem(LCLMenuItem: TMenuItem): Pointer;
procedure GetGdkPixmapFromMenuItem(LCLMenuItem: TMenuItem;
var IconImg, IconMask: PGdkPixmap; var Width, Height: integer);
procedure SaveSizeNotification(Widget: PGtkWidget); procedure SaveSizeNotification(Widget: PGtkWidget);
procedure SaveClientSizeNotification(FixWidget: PGtkWidget); procedure SaveClientSizeNotification(FixWidget: PGtkWidget);
function CreateTopologicalSortedWidgets(HashArray: TDynHashArray): TList; function CreateTopologicalSortedWidgets(HashArray: TDynHashArray): TList;
@ -418,13 +429,6 @@ Function GetStyleWidget(WName : String) : PGTKWidget;
function LoadDefaultFont: PGDKFont; function LoadDefaultFont: PGDKFont;
Function GetSysGCValues(Color : TColorRef) : TGDKGCValues; Function GetSysGCValues(Color : TColorRef) : TGDKGCValues;
Function DeleteAmpersands(var Str : String) : Longint;
function Ampersands2Underscore(Src: PChar) : PChar;
function RemoveAmpersands(Src: PChar; LineLength : Longint) : PChar;
Procedure GetTextExtentIgnoringAmpersands(Font : PGDKFont; Str : PChar;
LineLength : Longint; lbearing, rbearing, width, ascent, descent : Pgint);
function FontIsDoubleByteCharsFont(TheFont: PGdkFont): boolean; function FontIsDoubleByteCharsFont(TheFont: PGdkFont): boolean;
Function GDKPixel2GDIRGB(Pixel : Longint; Visual : PGDKVisual; Function GDKPixel2GDIRGB(Pixel : Longint; Visual : PGDKVisual;
@ -441,8 +445,6 @@ Procedure FreeGDKCursors;
function gtk_widget_get_xthickness(Style : PGTKStyle) : gint; function gtk_widget_get_xthickness(Style : PGTKStyle) : gint;
function gtk_widget_get_ythickness(Style : PGTKStyle) : gint; function gtk_widget_get_ythickness(Style : PGTKStyle) : gint;
var
X11Display : Pointer;
implementation implementation