mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-29 17:04:28 +02:00
fixed changing menuitem separator and normal
git-svn-id: trunk@2486 -
This commit is contained in:
parent
23ba49b912
commit
04b48a48db
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user