pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix compile for WinCE

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1179 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2010-03-10 18:48:27 +00:00
parent 5f12c4c84e
commit 990689bb63
9 changed files with 80 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/rx/docs/WhatsNew.rus.txt
View File

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

52
components/rx/docs/rxfpc.xml
View File

@ -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>

4
components/rx/languages/rxconst.es.po
View File

@ -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"

4
components/rx/languages/rxconst.po
View File

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

4
components/rx/languages/rxconst.ru.po
View File

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

18
components/rx/rxaboutformunit.lfm
View File

@ -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
Top = 340
Height = 42
Top = 338
Width = 486
TabOrder = 1
ShowButtons = [pbClose, pbHelp]

1
components/rx/rxaboutformunit.pas
View File

@ -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;

1
components/rx/rxconst.pas
View File

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

10
components/rx/rxfileutils.pas
View File

@ -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