minor fix in TRxDBLookupCombo, TRxLookupEdit. New procedure in rxstrutils

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@282 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/rxappicon.pas

@@ -35,8 +35,10 @@ type
 
 implementation
 {$IFDEF WIN32}
+{$IFNDEF LCLGtk2} 
 uses Windows, win32int, InterfaceBase, vclutils;
 {$ENDIF}
+{$ENDIF}
 
 
 { TRxAppIcon }
@@ -86,6 +88,7 @@ end;
 
 procedure TRxAppIcon.ApplyIcon;
 {$IFDEF WIN32}
+{$IFNDEF LCLGtk2} 
 procedure DoApply;
 var
   H:HICON;
@@ -106,12 +109,15 @@ begin
   end;
 end;
 {$ENDIF}
+{$ENDIF}
 begin
   if FIconStream.Size>0 then
   begin
     Icon.LoadFromStream(FIconStream);
     {$IFDEF WIN32}
+{$IFNDEF LCLGtk2} 
     DoApply;
+{$ENDIF}
     {$ENDIF}
   end;
   FIconStream.Position:=0;