fix compile for WinCE

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

components/rx/docs/WhatsNew.rus.txt

@@ -59,6 +59,7 @@
   - Введдена обработка ситуации востановления состояния RxDBGrid-а, если количество колонок во время востановления меньше,
     чем было в момент сохранения
   + Новая компонента TRxAboutDialog - окно для отображения информации о программе (пример смотреть в демке по RxDBGrid-у)
+  + Добавлена поддержка компиляции под WinCE
   
 22.05.2008 - версия 2.0.0.136 (svn revision 100)
   + У объекта TRxCustomDBLookupCombo введён контроль на CircularDataLink

components/rx/docs/rxfpc.xml

@@ -151,6 +151,9 @@
           <p>
             <link id="TOptionRx">Набор флагов</link>, управлюящих поведением 
   
+            
+            
+            
             <link id="TRxDBGrid">RxDBGrid</link>-а.</p>
         </descr>
       </element>
@@ -544,6 +547,9 @@
         <descr>
           <p>
             <link id="TOptionRx">Набор флагов</link>, управлюящих поведением 
+            
+            
+            
             <link id="TRxDBGrid">RxDBGrid</link>-а.</p>
         </descr>
         <seealso>
@@ -1085,6 +1091,9 @@ TRxDBCalcEdit является наследником TDBCalcEdit и имеет
           
           
           
+          
+          
+          
           
           
           
@@ -1126,6 +1135,9 @@ TRxDBCalcEdit является наследником TDBCalcEdit и имеет
           
           
           
+          
+          
+          
           
           
           
@@ -2365,6 +2377,9 @@ Description
             
             
             
+            
+            
+            
             <b>const</b> SearchDomain, FileName:
             
             
@@ -2377,6 +2392,9 @@ Description
             
             
             
+            
+            
+            
             <b>String</b>;
             
             
@@ -2389,6 +2407,9 @@ Description
             
             
             
+            
+            
+            
             <b>out</b> UserName, DomainName:
             
             
@@ -2401,6 +2422,9 @@ Description
             
             
             
+            
+            
+            
             <b>String</b>);
 </p>
           <p>Процедура  возвращает имя и домен пользователя операционной системы владельца указанного файла. </p>
@@ -2430,18 +2454,27 @@ Description
             
             
             
+            
+            
+            
             <b>const</b> DirName:
             
             
             
             
             
+            
+            
+            
             <b>string</b>):
             
             
             
             
             
+            
+            
+            
             <b>string</b>;</p>
           <p>Функция проверяет все разделители каталогов в указанном имени файла/каталога и, если нужно, меняет их на значение константы<b>DirectorySeparator</b>.</p>
         </descr>
@@ -2462,6 +2495,9 @@ Description
             
             
             
+            
+            
+            
             <b>string</b>;</p>
           <p>Функция <b>GetUserName</b> возвращает имя оператора, залогиненго в системе</p>
         </descr>
@@ -2558,7 +2594,9 @@ Description
     </module>
     <module name="RxAboutDialog">
       <element name="TRxAboutDialogOption">
+        <short>Параметры отображени окна информации о программе</short>
         <descr>
+          <p>Параметры отображени окна информации о программе</p>
           <table>
             <th>
               <td>Значение</td>
@@ -2581,7 +2619,14 @@ Description
       </element>
       <element name="TRxAboutDialogOptions">
         <short>Параметры окна "О программе"</short>
-        <descr>Параметры отображения окна информации о программе</descr>
+        <descr>
+          <p>Набор флагов, определяющий 
+<link id="TRxAboutDialogOption">параметры</link> отображения окна информации о программе</p>
+        </descr>
+        <seealso>
+          <link id="TRxAboutDialogOption"/>
+          <link id="TRxAboutDialog.Options"/>
+        </seealso>
       </element>
       <element name="TRxAboutDialog">
         <descr>Компонента TRXAboutDialog предназначена для отображения информации о программе.</descr>
@@ -2599,6 +2644,11 @@ Description
         <descr>Метод отображет окно "О программе"</descr>
       </element>
       <element name="TRxAboutDialog.Options">
+        <short>Параметры окна "О программе"</short>
+        <descr>
+          <p>Набор флагов, определяющий 
+<link id="TRxAboutDialogOption">параметры</link> отображения окна информации о программе</p>
+        </descr>
         <seealso>
           <link id="TRxAboutDialogOptions"/>
         </seealso>

components/rx/languages/rxconst.es.po

@@ -17,6 +17,10 @@ msgstr "Botones disponibles"
 msgid "Browse"
 msgstr "Vista"
 
+#: rxconst.sbuilddate
+msgid "Build date : "
+msgstr ""
+
 #: rxconst.sbuttonalign
 msgid "Button align"
 msgstr "Alineaci�n de Botones"

components/rx/languages/rxconst.po

@@ -17,6 +17,10 @@ msgstr ""
 msgid "Browse"
 msgstr ""
 
+#: rxconst.sbuilddate
+msgid "Build date : "
+msgstr ""
+
 #: rxconst.sbuttonalign
 msgid "Button align"
 msgstr ""

components/rx/languages/rxconst.ru.po

@@ -17,6 +17,10 @@ msgstr "Доступные кнопки"
 msgid "Browse"
 msgstr "Обзор"
 
+#: rxconst.sbuilddate
+msgid "Build date : "
+msgstr "Дата сборки : "
+
 #: rxconst.sbuttonalign
 msgid "Button align"
 msgstr "Выравнивание кнопок"

components/rx/rxaboutformunit.lfm

@@ -12,16 +12,16 @@ object rxAboutFormForm: TrxAboutFormForm
   LCLVersion = '0.9.29'
   object PageControl1: TPageControl
     Left = 0
-    Height = 334
+    Height = 332
     Top = 0
     Width = 498
-    ActivePage = TabSheet1
+    ActivePage = TabSheet2
     Align = alClient
-    TabIndex = 0
+    TabIndex = 1
     TabOrder = 0
     object TabSheet1: TTabSheet
       Caption = 'General'
-      ClientHeight = 303
+      ClientHeight = 301
       ClientWidth = 494
       object lblAppTitle: TLabel
         AnchorSideLeft.Control = Image1
@@ -69,7 +69,7 @@ object rxAboutFormForm: TrxAboutFormForm
     end
     object TabSheet2: TTabSheet
       Caption = 'Detail'
-      ClientHeight = 303
+      ClientHeight = 301
       ClientWidth = 494
       object lblBuildDate: TLabel
         AnchorSideLeft.Control = TabSheet2
@@ -168,11 +168,11 @@ object rxAboutFormForm: TrxAboutFormForm
     end
     object TabSheet3: TTabSheet
       Caption = 'License'
-      ClientHeight = 303
+      ClientHeight = 301
       ClientWidth = 494
       object Memo1: TMemo
         Left = 0
-        Height = 303
+        Height = 301
         Top = 0
         Width = 494
         Align = alClient
@@ -185,8 +185,8 @@ object rxAboutFormForm: TrxAboutFormForm
   end
   object ButtonPanel1: TButtonPanel
     Left = 6
-    Height = 40
+    Height = 42
-    Top = 340
+    Top = 338
     Width = 486
     TabOrder = 1
     ShowButtons = [pbClose, pbHelp]

components/rx/rxaboutformunit.pas

@@ -88,6 +88,7 @@ begin
   lblFPCVersion.Caption:=sFpcVersion + {$I %FPCVERSION%};
   lblTargCPU.Caption:=sTargetCPU + {$I %FPCTARGETCPU%};
   lblTargetOS.Caption:=sTargetOS + {$I %FPCTARGETOS%};
+  lblBuildDate.Caption:=sBuildDate + {$I %DATE%};
   TabSheet1.Caption:=sGeneral;
   TabSheet2.Caption:=sDetails;
   TabSheet3.Caption:=sLicense;

components/rx/rxconst.pas

@@ -109,6 +109,7 @@ resourcestring
   sFpcVersion           = 'FPC version : ';
   sTargetCPU            = 'Target CPU : ';
   sTargetOS             = 'Target OS : ';
+  sBuildDate            = 'Build date : ';
   sAbout                = 'About';
   sGeneral              = 'General';
   sLicense              = 'License';

components/rx/rxfileutils.pas

@@ -50,7 +50,7 @@ uses
 {$ENDIF}
    FileUtil;
 
-{$IFDEF WINDOWS}
+{$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)}
 function LStrError(const Ernum: Longint; const UseUTF8: Boolean = False): string;
 const
   MAX_ERROR = 1024;
@@ -139,7 +139,7 @@ function GetFileOwnerUser(const SearchDomain, FileName: String): String;
 var
   S:string;
 begin
-  {$IFDEF WINDOWS}
+  {$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)}
   GetFileNameOwner(UTF8ToSys(SearchDomain), UTF8ToSys(FileName), Result, S);
   Result:=UTF8Encode(Result);
   {$ELSE}
@@ -150,7 +150,7 @@ end;
 procedure GetFileOwnerData(const SearchDomain, FileName: String; out UserName,
   DomainName: string);
 begin
-  {$IFDEF WINDOWS}
+  {$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)}
   GetFileNameOwner(UTF8ToSys(SearchDomain), UTF8ToSys(FileName), UserName, DomainName);
   UserName:=UTF8Encode(UserName);
   DomainName:=UTF8Encode(DomainName);
@@ -172,13 +172,13 @@ begin
 end;
 
 function GetUserName: string;
-{$IFDEF WINDOWS}
+{$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)}
 var
   A:array [0..256] of Char;
   L:DWORD;
 {$ENDIF}
 begin
-  {$IFDEF WINDOWS}
+  {$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)}
   FillChar(A, SizeOf(A), 0);
   L:=SizeOf(A)-1;
   if Windows.GetUserNameA(@A, L) then