gtk2 intf: reduced notes

git-svn-id: trunk@10948 -

components/synedit/synedithighlighter.pp

@@ -577,10 +577,12 @@ function TSynHighlighterAttributes.LoadFromBorlandRegistry(rootKey: HKEY;
   //     Underline: fsUnderline yes/no, 0/True (string)
   //     Default Foreground: use default foreground (clBlack) yes/no, False/-1 (string)
   //     Default Background: use default backround (clWhite) yes/no, False/-1 (string)
+{$IFNDEF SYN_LAZARUS}
 const
   Pal16: array [0..15] of TColor = (clBlack, clMaroon, clGreen, clOlive,
           clNavy, clPurple, clTeal, clLtGray, clDkGray, clRed, clLime,
           clYellow, clBlue, clFuchsia, clAqua, clWhite);
+{$ENDIF}
 
   function LoadOldStyle(rootKey: HKEY; attrKey, attrName: string): boolean;
   var

ide/buildlazdialog.pas

@@ -716,13 +716,7 @@ var
   TxtH: Integer;
   CurRect: TRect;
   ImgIndex: Integer;
-  CurIcon: TBitmap;
-  Mask: TBitMap;
   mm: TMakeMode;
-  IconWidth: Integer;
-  IconHeight: Integer;
-  IconRect: TRect;
-  DestRect: TRect;
 begin
   if (Index<0) or (Index>=Options.Count) then exit;
   CurItem:=Options.Items[Index];

lcl/include/dragimagelist.inc

@@ -20,7 +20,7 @@
 
 const
   // bad window handle. 0 is reserverd by DesktopWindow
-  NoLockedWindow: HWND = $FFFFFFFF;
+  NoLockedWindow: HWND = High(PtrInt);
   
 { TDragImageList }
 

lcl/interfaces/gtk2/gtk2lclintf.inc

@@ -56,6 +56,8 @@ begin
     True : gtk_combo_box_popup(Combo);
     False: gtk_combo_box_popdown(Combo);
   end;
+  
+  Result:=true;
 end;
 
 function TGtk2WidgetSet.SetComboMinDropDownSize(Handle: HWND; MinItemsWidth,

lcl/interfaces/gtk2/gtk2wsstdctrls.pp

@@ -775,7 +775,6 @@ var
   AChild: PGtkObject;
   AButton: PGtkObject;
   APrivate: PGtkComboBoxPrivate;
-  AMenu: PGtkMenu;
   BtnPressID: guint;
   HandlerID: guint;
 begin
@@ -1024,7 +1023,6 @@ class procedure TGtk2WSCustomComboBox.SetReadOnly(
 var
   WidgetInfo: PWidgetInfo;
   Entry: PGtkWidget;
-  Start: Integer;
 begin
   WidgetInfo := GetWidgetInfo(Pointer(ACustomComboBox.Handle));
 
@@ -1032,7 +1030,6 @@ begin
     Entry := GTK_BIN(WidgetInfo^.CoreWidget)^.child;
     gtk_entry_set_editable(PGtkEntry(Entry), not NewReadOnly);
   end;
-
 end;
 
 class function TGtk2WSCustomComboBox.GetItems(const ACustomComboBox: TCustomComboBox