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

gtk1 intf: fixed compilation

Browse Source 
git-svn-id: trunk@25272 -
This commit is contained in:
mattias 2010-05-09 10:31:59 +00:00
parent 1bb0bd225f
commit 28419cb0f7
2 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/gtk/gtkproc.inc
View File

@ -5946,6 +5946,9 @@ begin
gtk_widget_get_xthickness(gtk_widget_get_style(Widget)) +
HorizPadding +
((PGtkMenuItem(MenuItem)^.toggle_size-ToggleSpacing-IconWidth) div 2);
if gtk_widget_get_direction(Widget) = GTK_TEXT_DIR_RTL then
ALeft := Widget^.Allocation.width - IconWidth - ALeft; //not sure it is the correct Width
{$ELSE}
ALeft := (BorderWidth + gtk_widget_get_xthickness(gtk_widget_get_style(Widget)) + 2)
+((PGtkMenuItem(MenuItem)^.toggle_size-IconWidth) div 2);
@ -5953,9 +5956,6 @@ begin
ATop := (Widget^.Allocation.Height - IconHeight) div 2;
if gtk_widget_get_direction(Widget) = GTK_TEXT_DIR_RTL then
ALeft := Widget^.Allocation.width - IconWidth - ALeft; //not sure it is the correct Width
// draw icon
AImageList := LCLMenuItem.GetImageList;
if AImageList = nil then
@ -6059,8 +6059,10 @@ end;
------------------------------------------------------------------------------}
procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem;
MenuItemWidget: PGtkWidget; NewShortCut: TShortCut);
{$ifdef GTK2}
const
WidgetDirection : array[boolean] of longint = (GTK_TEXT_DIR_LTR, GTK_TEXT_DIR_RTL);
{$endif}
function UseRTL: Boolean;
begin
Result := LCLMenuItem.GetIsRightToLeft;
@ -6077,7 +6079,9 @@ var
Exit;
LabelWidget := gtk_object_get_data(PGtkObject(MenuItemWidget), 'LCLLabel');
GtkWidgetset.SetLabelCaption(LabelWidget, LCLMenuItem.Caption);
{$ifdef GTK2}
gtk_widget_set_direction(PGtkWidget(LabelWidget), WidgetDirection[UseRTL]);
{$endif}
end;
procedure UpdateShortCutLabel;
@ -6123,7 +6127,9 @@ var
begin
gtk_label_set_text(LabelWidget, PChar(Pointer(s)));
end;
{$ifdef GTK2}
gtk_widget_set_direction(PGtkWidget(LabelWidget), GTK_TEXT_DIR_LTR); //Shortcut always LTR
{$endif}
if UseRTL then
gtk_misc_set_alignment(GTK_MISC(LabelWidget), 0.0, 0.5)
else
@ -6206,7 +6212,9 @@ begin
exit;
end;
HBoxWidget := gtk_hbox_new(false, 20);
{$ifdef GTK2}
gtk_widget_set_direction(PGtkWidget(HBoxWidget), WidgetDirection[UseRTL]);
{$endif}
gtk_object_set_data(PGtkObject(MenuItemWidget), 'LCLHBox', HBoxWidget);
CreateIcon;
CreateLabel;
@ -6224,7 +6232,9 @@ begin
end else
begin
// just update the content
{$ifdef GTK2}
gtk_widget_set_direction(PGtkWidget(HBoxWidget), WidgetDirection[UseRTL]);
{$endif}
SetMenuItemLabelText(LCLMenuItem, MenuItemWidget);
UpdateShortCutLabel;
end;

8
lcl/interfaces/gtk/gtkwsmenus.pp
View File

@ -337,6 +337,12 @@ var
WidgetInfo: PWidgetInfo;
Box: Pointer;
ParentForm: TCustomForm;
{$ifdef GTK2}
const
MenuDirection : array[Boolean] of Longint = (
GTK_PACK_DIRECTION_LTR,
GTK_PACK_DIRECTION_RTL);
{$endif}
begin
Widget := gtk_menu_bar_new();
// get the VBox, the form has one child, a VBox
@ -351,7 +357,7 @@ begin
gtk_box_pack_start(Box, Widget, False, False, 0);
end;
{$ifdef GTK_2_8}
{$ifdef GTK2}
gtk_menu_bar_set_pack_direction(PGtkMenuBar(Widget), MenuDirection[AMenu.UseRightToLeftAlignment]);
{$endif}