• R/O
  • SSH
  • HTTPS

brutaldelphi: Commit


Commit MetaInfo

Révision3 (tree)
l'heure2022-01-08 09:19:19
Auteurderekwildstar

Message de Log

Componente TBRDMasterNavigator

Change Summary

Modification

--- trunk/prj/BrutalDelphi.groupproj (nonexistent)
+++ trunk/prj/BrutalDelphi.groupproj (revision 3)
@@ -0,0 +1,48 @@
1+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+ <PropertyGroup>
3+ <ProjectGuid>{93CA1098-B4C4-49EC-887D-E5AD1D342456}</ProjectGuid>
4+ </PropertyGroup>
5+ <ItemGroup>
6+ <Projects Include="BrutalDelphiR.dproj">
7+ <Dependencies/>
8+ </Projects>
9+ <Projects Include="BrutalDelphiD.dproj">
10+ <Dependencies/>
11+ </Projects>
12+ </ItemGroup>
13+ <ProjectExtensions>
14+ <Borland.Personality>Default.Personality.12</Borland.Personality>
15+ <Borland.ProjectType/>
16+ <BorlandProject>
17+ <Default.Personality/>
18+ </BorlandProject>
19+ </ProjectExtensions>
20+ <Target Name="BrutalDelphiR">
21+ <MSBuild Projects="BrutalDelphiR.dproj"/>
22+ </Target>
23+ <Target Name="BrutalDelphiR:Clean">
24+ <MSBuild Projects="BrutalDelphiR.dproj" Targets="Clean"/>
25+ </Target>
26+ <Target Name="BrutalDelphiR:Make">
27+ <MSBuild Projects="BrutalDelphiR.dproj" Targets="Make"/>
28+ </Target>
29+ <Target Name="BrutalDelphiD">
30+ <MSBuild Projects="BrutalDelphiD.dproj"/>
31+ </Target>
32+ <Target Name="BrutalDelphiD:Clean">
33+ <MSBuild Projects="BrutalDelphiD.dproj" Targets="Clean"/>
34+ </Target>
35+ <Target Name="BrutalDelphiD:Make">
36+ <MSBuild Projects="BrutalDelphiD.dproj" Targets="Make"/>
37+ </Target>
38+ <Target Name="Build">
39+ <CallTarget Targets="BrutalDelphiR;BrutalDelphiD"/>
40+ </Target>
41+ <Target Name="Clean">
42+ <CallTarget Targets="BrutalDelphiR:Clean;BrutalDelphiD:Clean"/>
43+ </Target>
44+ <Target Name="Make">
45+ <CallTarget Targets="BrutalDelphiR:Make;BrutalDelphiD:Make"/>
46+ </Target>
47+ <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
48+</Project>
--- trunk/prj/BrutalDelphiD.dpk (nonexistent)
+++ trunk/prj/BrutalDelphiD.dpk (revision 3)
@@ -0,0 +1,40 @@
1+package BrutalDelphiD;
2+
3+{$R *.res}
4+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
5+{$ALIGN 8}
6+{$ASSERTIONS ON}
7+{$BOOLEVAL OFF}
8+{$DEBUGINFO OFF}
9+{$EXTENDEDSYNTAX ON}
10+{$IMPORTEDDATA ON}
11+{$IOCHECKS ON}
12+{$LOCALSYMBOLS ON}
13+{$LONGSTRINGS ON}
14+{$OPENSTRINGS ON}
15+{$OPTIMIZATION OFF}
16+{$OVERFLOWCHECKS OFF}
17+{$RANGECHECKS OFF}
18+{$REFERENCEINFO ON}
19+{$SAFEDIVIDE OFF}
20+{$STACKFRAMES ON}
21+{$TYPEDADDRESS OFF}
22+{$VARSTRINGCHECKS ON}
23+{$WRITEABLECONST OFF}
24+{$MINENUMSIZE 1}
25+{$IMAGEBASE $400000}
26+{$DEFINE DEBUG}
27+{$ENDIF IMPLICITBUILDING}
28+{$DESCRIPTION 'Brutal Delphi (Designtime)'}
29+{$LIBSUFFIX '260'}
30+{$DESIGNONLY}
31+{$IMPLICITBUILD ON}
32+
33+requires
34+ rtl,
35+ BrutalDelphiR;
36+
37+contains
38+ BRD.Register in '..\src\BRD.Register.pas';
39+
40+end.
--- trunk/prj/BrutalDelphiD.dproj (nonexistent)
+++ trunk/prj/BrutalDelphiD.dproj (revision 3)
@@ -0,0 +1,902 @@
1+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+ <PropertyGroup>
3+ <ProjectGuid>{F0ACBC40-18FA-460A-BA60-A2406C2745EE}</ProjectGuid>
4+ <MainSource>BrutalDelphiD.dpk</MainSource>
5+ <ProjectVersion>18.8</ProjectVersion>
6+ <FrameworkType>None</FrameworkType>
7+ <Base>True</Base>
8+ <Config Condition="'$(Config)'==''">Debug</Config>
9+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
10+ <TargetedPlatforms>1</TargetedPlatforms>
11+ <AppType>Package</AppType>
12+ </PropertyGroup>
13+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
14+ <Base>true</Base>
15+ </PropertyGroup>
16+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
17+ <Base_Win32>true</Base_Win32>
18+ <CfgParent>Base</CfgParent>
19+ <Base>true</Base>
20+ </PropertyGroup>
21+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
22+ <Cfg_1>true</Cfg_1>
23+ <CfgParent>Base</CfgParent>
24+ <Base>true</Base>
25+ </PropertyGroup>
26+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
27+ <Cfg_1_Win32>true</Cfg_1_Win32>
28+ <CfgParent>Cfg_1</CfgParent>
29+ <Cfg_1>true</Cfg_1>
30+ <Base>true</Base>
31+ </PropertyGroup>
32+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
33+ <Cfg_2>true</Cfg_2>
34+ <CfgParent>Base</CfgParent>
35+ <Base>true</Base>
36+ </PropertyGroup>
37+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
38+ <Cfg_2_Win32>true</Cfg_2_Win32>
39+ <CfgParent>Cfg_2</CfgParent>
40+ <Cfg_2>true</Cfg_2>
41+ <Base>true</Base>
42+ </PropertyGroup>
43+ <PropertyGroup Condition="'$(Base)'!=''">
44+ <DCC_DcuOutput>..\dcu</DCC_DcuOutput>
45+ <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
46+ <DCC_E>false</DCC_E>
47+ <DCC_N>false</DCC_N>
48+ <DCC_S>false</DCC_S>
49+ <DCC_F>false</DCC_F>
50+ <DCC_K>false</DCC_K>
51+ <GenDll>true</GenDll>
52+ <GenPackage>true</GenPackage>
53+ <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
54+ <DCC_CBuilderOutput>All</DCC_CBuilderOutput>
55+ <SanitizedProjectName>BrutalDelphiD</SanitizedProjectName>
56+ <DesignOnlyPackage>true</DesignOnlyPackage>
57+ <VerInfo_Locale>1046</VerInfo_Locale>
58+ <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
59+ <DCC_Description>Brutal Delphi (Designtime)</DCC_Description>
60+ <DllSuffix>260</DllSuffix>
61+ </PropertyGroup>
62+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
63+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
64+ <BT_BuildType>Debug</BT_BuildType>
65+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
66+ <VerInfo_Locale>1033</VerInfo_Locale>
67+ </PropertyGroup>
68+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
69+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
70+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
71+ <DCC_Optimize>false</DCC_Optimize>
72+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
73+ <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
74+ <DCC_RemoteDebug>true</DCC_RemoteDebug>
75+ </PropertyGroup>
76+ <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
77+ <DCC_RemoteDebug>false</DCC_RemoteDebug>
78+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
79+ <VerInfo_Locale>1033</VerInfo_Locale>
80+ </PropertyGroup>
81+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
82+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
83+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
84+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
85+ <DCC_DebugInformation>0</DCC_DebugInformation>
86+ </PropertyGroup>
87+ <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
88+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
89+ <VerInfo_Locale>1033</VerInfo_Locale>
90+ </PropertyGroup>
91+ <ItemGroup>
92+ <DelphiCompile Include="$(MainSource)">
93+ <MainSource>MainSource</MainSource>
94+ </DelphiCompile>
95+ <DCCReference Include="rtl.dcp"/>
96+ <DCCReference Include="BrutalDelphiR.dcp"/>
97+ <DCCReference Include="..\src\BRD.Register.pas"/>
98+ <BuildConfiguration Include="Release">
99+ <Key>Cfg_2</Key>
100+ <CfgParent>Base</CfgParent>
101+ </BuildConfiguration>
102+ <BuildConfiguration Include="Base">
103+ <Key>Base</Key>
104+ </BuildConfiguration>
105+ <BuildConfiguration Include="Debug">
106+ <Key>Cfg_1</Key>
107+ <CfgParent>Base</CfgParent>
108+ </BuildConfiguration>
109+ </ItemGroup>
110+ <ProjectExtensions>
111+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
112+ <Borland.ProjectType>Package</Borland.ProjectType>
113+ <BorlandProject>
114+ <Delphi.Personality>
115+ <Source>
116+ <Source Name="MainSource">BrutalDelphiD.dpk</Source>
117+ </Source>
118+ </Delphi.Personality>
119+ <Deployment Version="3">
120+ <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
121+ <Platform Name="OSX32">
122+ <Overwrite>true</Overwrite>
123+ </Platform>
124+ </DeployFile>
125+ <DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule">
126+ <Platform Name="iOSSimulator">
127+ <Overwrite>true</Overwrite>
128+ </Platform>
129+ </DeployFile>
130+ <DeployFile LocalName="$(BDS)\Redist\iossimulator\libpcre.dylib" Class="DependencyModule">
131+ <Platform Name="iOSSimulator">
132+ <Overwrite>true</Overwrite>
133+ </Platform>
134+ </DeployFile>
135+ <DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\BrutalDelphiD260.bpl" Configuration="Debug" Class="ProjectOutput">
136+ <Platform Name="Win32">
137+ <RemoteName>BrutalDelphiD.bpl</RemoteName>
138+ <Overwrite>true</Overwrite>
139+ </Platform>
140+ </DeployFile>
141+ <DeployClass Name="AdditionalDebugSymbols">
142+ <Platform Name="OSX32">
143+ <Operation>1</Operation>
144+ </Platform>
145+ <Platform Name="Win32">
146+ <Operation>0</Operation>
147+ </Platform>
148+ </DeployClass>
149+ <DeployClass Name="AndroidClassesDexFile">
150+ <Platform Name="Android">
151+ <RemoteDir>classes</RemoteDir>
152+ <Operation>1</Operation>
153+ </Platform>
154+ <Platform Name="Android64">
155+ <RemoteDir>classes</RemoteDir>
156+ <Operation>1</Operation>
157+ </Platform>
158+ </DeployClass>
159+ <DeployClass Name="AndroidFileProvider">
160+ <Platform Name="Android">
161+ <RemoteDir>res\xml</RemoteDir>
162+ <Operation>1</Operation>
163+ </Platform>
164+ <Platform Name="Android64">
165+ <RemoteDir>res\xml</RemoteDir>
166+ <Operation>1</Operation>
167+ </Platform>
168+ </DeployClass>
169+ <DeployClass Name="AndroidGDBServer">
170+ <Platform Name="Android">
171+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
172+ <Operation>1</Operation>
173+ </Platform>
174+ </DeployClass>
175+ <DeployClass Name="AndroidLibnativeArmeabiFile">
176+ <Platform Name="Android">
177+ <RemoteDir>library\lib\armeabi</RemoteDir>
178+ <Operation>1</Operation>
179+ </Platform>
180+ <Platform Name="Android64">
181+ <RemoteDir>library\lib\armeabi</RemoteDir>
182+ <Operation>1</Operation>
183+ </Platform>
184+ </DeployClass>
185+ <DeployClass Name="AndroidLibnativeArmeabiv7aFile">
186+ <Platform Name="Android64">
187+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
188+ <Operation>1</Operation>
189+ </Platform>
190+ </DeployClass>
191+ <DeployClass Name="AndroidLibnativeMipsFile">
192+ <Platform Name="Android">
193+ <RemoteDir>library\lib\mips</RemoteDir>
194+ <Operation>1</Operation>
195+ </Platform>
196+ <Platform Name="Android64">
197+ <RemoteDir>library\lib\mips</RemoteDir>
198+ <Operation>1</Operation>
199+ </Platform>
200+ </DeployClass>
201+ <DeployClass Name="AndroidServiceOutput">
202+ <Platform Name="Android">
203+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
204+ <Operation>1</Operation>
205+ </Platform>
206+ <Platform Name="Android64">
207+ <RemoteDir>library\lib\arm64-v8a</RemoteDir>
208+ <Operation>1</Operation>
209+ </Platform>
210+ </DeployClass>
211+ <DeployClass Name="AndroidServiceOutput_Android32">
212+ <Platform Name="Android64">
213+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
214+ <Operation>1</Operation>
215+ </Platform>
216+ </DeployClass>
217+ <DeployClass Name="AndroidSplashImageDef">
218+ <Platform Name="Android">
219+ <RemoteDir>res\drawable</RemoteDir>
220+ <Operation>1</Operation>
221+ </Platform>
222+ <Platform Name="Android64">
223+ <RemoteDir>res\drawable</RemoteDir>
224+ <Operation>1</Operation>
225+ </Platform>
226+ </DeployClass>
227+ <DeployClass Name="AndroidSplashStyles">
228+ <Platform Name="Android">
229+ <RemoteDir>res\values</RemoteDir>
230+ <Operation>1</Operation>
231+ </Platform>
232+ <Platform Name="Android64">
233+ <RemoteDir>res\values</RemoteDir>
234+ <Operation>1</Operation>
235+ </Platform>
236+ </DeployClass>
237+ <DeployClass Name="AndroidSplashStylesV21">
238+ <Platform Name="Android">
239+ <RemoteDir>res\values-v21</RemoteDir>
240+ <Operation>1</Operation>
241+ </Platform>
242+ <Platform Name="Android64">
243+ <RemoteDir>res\values-v21</RemoteDir>
244+ <Operation>1</Operation>
245+ </Platform>
246+ </DeployClass>
247+ <DeployClass Name="Android_Colors">
248+ <Platform Name="Android">
249+ <RemoteDir>res\values</RemoteDir>
250+ <Operation>1</Operation>
251+ </Platform>
252+ <Platform Name="Android64">
253+ <RemoteDir>res\values</RemoteDir>
254+ <Operation>1</Operation>
255+ </Platform>
256+ </DeployClass>
257+ <DeployClass Name="Android_DefaultAppIcon">
258+ <Platform Name="Android">
259+ <RemoteDir>res\drawable</RemoteDir>
260+ <Operation>1</Operation>
261+ </Platform>
262+ <Platform Name="Android64">
263+ <RemoteDir>res\drawable</RemoteDir>
264+ <Operation>1</Operation>
265+ </Platform>
266+ </DeployClass>
267+ <DeployClass Name="Android_LauncherIcon144">
268+ <Platform Name="Android">
269+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
270+ <Operation>1</Operation>
271+ </Platform>
272+ <Platform Name="Android64">
273+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
274+ <Operation>1</Operation>
275+ </Platform>
276+ </DeployClass>
277+ <DeployClass Name="Android_LauncherIcon36">
278+ <Platform Name="Android">
279+ <RemoteDir>res\drawable-ldpi</RemoteDir>
280+ <Operation>1</Operation>
281+ </Platform>
282+ <Platform Name="Android64">
283+ <RemoteDir>res\drawable-ldpi</RemoteDir>
284+ <Operation>1</Operation>
285+ </Platform>
286+ </DeployClass>
287+ <DeployClass Name="Android_LauncherIcon48">
288+ <Platform Name="Android">
289+ <RemoteDir>res\drawable-mdpi</RemoteDir>
290+ <Operation>1</Operation>
291+ </Platform>
292+ <Platform Name="Android64">
293+ <RemoteDir>res\drawable-mdpi</RemoteDir>
294+ <Operation>1</Operation>
295+ </Platform>
296+ </DeployClass>
297+ <DeployClass Name="Android_LauncherIcon72">
298+ <Platform Name="Android">
299+ <RemoteDir>res\drawable-hdpi</RemoteDir>
300+ <Operation>1</Operation>
301+ </Platform>
302+ <Platform Name="Android64">
303+ <RemoteDir>res\drawable-hdpi</RemoteDir>
304+ <Operation>1</Operation>
305+ </Platform>
306+ </DeployClass>
307+ <DeployClass Name="Android_LauncherIcon96">
308+ <Platform Name="Android">
309+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
310+ <Operation>1</Operation>
311+ </Platform>
312+ <Platform Name="Android64">
313+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
314+ <Operation>1</Operation>
315+ </Platform>
316+ </DeployClass>
317+ <DeployClass Name="Android_NotificationIcon24">
318+ <Platform Name="Android">
319+ <RemoteDir>res\drawable-mdpi</RemoteDir>
320+ <Operation>1</Operation>
321+ </Platform>
322+ <Platform Name="Android64">
323+ <RemoteDir>res\drawable-mdpi</RemoteDir>
324+ <Operation>1</Operation>
325+ </Platform>
326+ </DeployClass>
327+ <DeployClass Name="Android_NotificationIcon36">
328+ <Platform Name="Android">
329+ <RemoteDir>res\drawable-hdpi</RemoteDir>
330+ <Operation>1</Operation>
331+ </Platform>
332+ <Platform Name="Android64">
333+ <RemoteDir>res\drawable-hdpi</RemoteDir>
334+ <Operation>1</Operation>
335+ </Platform>
336+ </DeployClass>
337+ <DeployClass Name="Android_NotificationIcon48">
338+ <Platform Name="Android">
339+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
340+ <Operation>1</Operation>
341+ </Platform>
342+ <Platform Name="Android64">
343+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
344+ <Operation>1</Operation>
345+ </Platform>
346+ </DeployClass>
347+ <DeployClass Name="Android_NotificationIcon72">
348+ <Platform Name="Android">
349+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
350+ <Operation>1</Operation>
351+ </Platform>
352+ <Platform Name="Android64">
353+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
354+ <Operation>1</Operation>
355+ </Platform>
356+ </DeployClass>
357+ <DeployClass Name="Android_NotificationIcon96">
358+ <Platform Name="Android">
359+ <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
360+ <Operation>1</Operation>
361+ </Platform>
362+ <Platform Name="Android64">
363+ <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
364+ <Operation>1</Operation>
365+ </Platform>
366+ </DeployClass>
367+ <DeployClass Name="Android_SplashImage426">
368+ <Platform Name="Android">
369+ <RemoteDir>res\drawable-small</RemoteDir>
370+ <Operation>1</Operation>
371+ </Platform>
372+ <Platform Name="Android64">
373+ <RemoteDir>res\drawable-small</RemoteDir>
374+ <Operation>1</Operation>
375+ </Platform>
376+ </DeployClass>
377+ <DeployClass Name="Android_SplashImage470">
378+ <Platform Name="Android">
379+ <RemoteDir>res\drawable-normal</RemoteDir>
380+ <Operation>1</Operation>
381+ </Platform>
382+ <Platform Name="Android64">
383+ <RemoteDir>res\drawable-normal</RemoteDir>
384+ <Operation>1</Operation>
385+ </Platform>
386+ </DeployClass>
387+ <DeployClass Name="Android_SplashImage640">
388+ <Platform Name="Android">
389+ <RemoteDir>res\drawable-large</RemoteDir>
390+ <Operation>1</Operation>
391+ </Platform>
392+ <Platform Name="Android64">
393+ <RemoteDir>res\drawable-large</RemoteDir>
394+ <Operation>1</Operation>
395+ </Platform>
396+ </DeployClass>
397+ <DeployClass Name="Android_SplashImage960">
398+ <Platform Name="Android">
399+ <RemoteDir>res\drawable-xlarge</RemoteDir>
400+ <Operation>1</Operation>
401+ </Platform>
402+ <Platform Name="Android64">
403+ <RemoteDir>res\drawable-xlarge</RemoteDir>
404+ <Operation>1</Operation>
405+ </Platform>
406+ </DeployClass>
407+ <DeployClass Name="Android_Strings">
408+ <Platform Name="Android">
409+ <RemoteDir>res\values</RemoteDir>
410+ <Operation>1</Operation>
411+ </Platform>
412+ <Platform Name="Android64">
413+ <RemoteDir>res\values</RemoteDir>
414+ <Operation>1</Operation>
415+ </Platform>
416+ </DeployClass>
417+ <DeployClass Name="DebugSymbols">
418+ <Platform Name="iOSSimulator">
419+ <Operation>1</Operation>
420+ </Platform>
421+ <Platform Name="OSX32">
422+ <Operation>1</Operation>
423+ </Platform>
424+ <Platform Name="Win32">
425+ <Operation>0</Operation>
426+ </Platform>
427+ </DeployClass>
428+ <DeployClass Name="DependencyFramework">
429+ <Platform Name="OSX32">
430+ <Operation>1</Operation>
431+ <Extensions>.framework</Extensions>
432+ </Platform>
433+ <Platform Name="OSX64">
434+ <Operation>1</Operation>
435+ <Extensions>.framework</Extensions>
436+ </Platform>
437+ <Platform Name="Win32">
438+ <Operation>0</Operation>
439+ </Platform>
440+ </DeployClass>
441+ <DeployClass Name="DependencyModule">
442+ <Platform Name="OSX32">
443+ <Operation>1</Operation>
444+ <Extensions>.dylib</Extensions>
445+ </Platform>
446+ <Platform Name="OSX64">
447+ <Operation>1</Operation>
448+ <Extensions>.dylib</Extensions>
449+ </Platform>
450+ <Platform Name="Win32">
451+ <Operation>0</Operation>
452+ <Extensions>.dll;.bpl</Extensions>
453+ </Platform>
454+ </DeployClass>
455+ <DeployClass Required="true" Name="DependencyPackage">
456+ <Platform Name="iOSDevice32">
457+ <Operation>1</Operation>
458+ <Extensions>.dylib</Extensions>
459+ </Platform>
460+ <Platform Name="iOSDevice64">
461+ <Operation>1</Operation>
462+ <Extensions>.dylib</Extensions>
463+ </Platform>
464+ <Platform Name="iOSSimulator">
465+ <Operation>1</Operation>
466+ <Extensions>.dylib</Extensions>
467+ </Platform>
468+ <Platform Name="OSX32">
469+ <Operation>1</Operation>
470+ <Extensions>.dylib</Extensions>
471+ </Platform>
472+ <Platform Name="OSX64">
473+ <Operation>1</Operation>
474+ <Extensions>.dylib</Extensions>
475+ </Platform>
476+ <Platform Name="Win32">
477+ <Operation>0</Operation>
478+ <Extensions>.bpl</Extensions>
479+ </Platform>
480+ </DeployClass>
481+ <DeployClass Name="File">
482+ <Platform Name="Android">
483+ <Operation>0</Operation>
484+ </Platform>
485+ <Platform Name="Android64">
486+ <Operation>0</Operation>
487+ </Platform>
488+ <Platform Name="iOSDevice32">
489+ <Operation>0</Operation>
490+ </Platform>
491+ <Platform Name="iOSDevice64">
492+ <Operation>0</Operation>
493+ </Platform>
494+ <Platform Name="iOSSimulator">
495+ <Operation>0</Operation>
496+ </Platform>
497+ <Platform Name="OSX32">
498+ <Operation>0</Operation>
499+ </Platform>
500+ <Platform Name="OSX64">
501+ <Operation>0</Operation>
502+ </Platform>
503+ <Platform Name="Win32">
504+ <Operation>0</Operation>
505+ </Platform>
506+ </DeployClass>
507+ <DeployClass Name="iPad_Launch1024x768">
508+ <Platform Name="iOSDevice32">
509+ <Operation>1</Operation>
510+ </Platform>
511+ <Platform Name="iOSDevice64">
512+ <Operation>1</Operation>
513+ </Platform>
514+ <Platform Name="iOSSimulator">
515+ <Operation>1</Operation>
516+ </Platform>
517+ </DeployClass>
518+ <DeployClass Name="iPad_Launch1536x2048">
519+ <Platform Name="iOSDevice32">
520+ <Operation>1</Operation>
521+ </Platform>
522+ <Platform Name="iOSDevice64">
523+ <Operation>1</Operation>
524+ </Platform>
525+ <Platform Name="iOSSimulator">
526+ <Operation>1</Operation>
527+ </Platform>
528+ </DeployClass>
529+ <DeployClass Name="iPad_Launch1668">
530+ <Platform Name="iOSDevice32">
531+ <Operation>1</Operation>
532+ </Platform>
533+ <Platform Name="iOSDevice64">
534+ <Operation>1</Operation>
535+ </Platform>
536+ <Platform Name="iOSSimulator">
537+ <Operation>1</Operation>
538+ </Platform>
539+ </DeployClass>
540+ <DeployClass Name="iPad_Launch1668x2388">
541+ <Platform Name="iOSDevice32">
542+ <Operation>1</Operation>
543+ </Platform>
544+ <Platform Name="iOSDevice64">
545+ <Operation>1</Operation>
546+ </Platform>
547+ <Platform Name="iOSSimulator">
548+ <Operation>1</Operation>
549+ </Platform>
550+ </DeployClass>
551+ <DeployClass Name="iPad_Launch2048x1536">
552+ <Platform Name="iOSDevice32">
553+ <Operation>1</Operation>
554+ </Platform>
555+ <Platform Name="iOSDevice64">
556+ <Operation>1</Operation>
557+ </Platform>
558+ <Platform Name="iOSSimulator">
559+ <Operation>1</Operation>
560+ </Platform>
561+ </DeployClass>
562+ <DeployClass Name="iPad_Launch2048x2732">
563+ <Platform Name="iOSDevice32">
564+ <Operation>1</Operation>
565+ </Platform>
566+ <Platform Name="iOSDevice64">
567+ <Operation>1</Operation>
568+ </Platform>
569+ <Platform Name="iOSSimulator">
570+ <Operation>1</Operation>
571+ </Platform>
572+ </DeployClass>
573+ <DeployClass Name="iPad_Launch2224">
574+ <Platform Name="iOSDevice32">
575+ <Operation>1</Operation>
576+ </Platform>
577+ <Platform Name="iOSDevice64">
578+ <Operation>1</Operation>
579+ </Platform>
580+ <Platform Name="iOSSimulator">
581+ <Operation>1</Operation>
582+ </Platform>
583+ </DeployClass>
584+ <DeployClass Name="iPad_Launch2388x1668">
585+ <Platform Name="iOSDevice32">
586+ <Operation>1</Operation>
587+ </Platform>
588+ <Platform Name="iOSDevice64">
589+ <Operation>1</Operation>
590+ </Platform>
591+ <Platform Name="iOSSimulator">
592+ <Operation>1</Operation>
593+ </Platform>
594+ </DeployClass>
595+ <DeployClass Name="iPad_Launch2732x2048">
596+ <Platform Name="iOSDevice32">
597+ <Operation>1</Operation>
598+ </Platform>
599+ <Platform Name="iOSDevice64">
600+ <Operation>1</Operation>
601+ </Platform>
602+ <Platform Name="iOSSimulator">
603+ <Operation>1</Operation>
604+ </Platform>
605+ </DeployClass>
606+ <DeployClass Name="iPad_Launch768x1024">
607+ <Platform Name="iOSDevice32">
608+ <Operation>1</Operation>
609+ </Platform>
610+ <Platform Name="iOSDevice64">
611+ <Operation>1</Operation>
612+ </Platform>
613+ <Platform Name="iOSSimulator">
614+ <Operation>1</Operation>
615+ </Platform>
616+ </DeployClass>
617+ <DeployClass Name="iPhone_Launch1125">
618+ <Platform Name="iOSDevice32">
619+ <Operation>1</Operation>
620+ </Platform>
621+ <Platform Name="iOSDevice64">
622+ <Operation>1</Operation>
623+ </Platform>
624+ <Platform Name="iOSSimulator">
625+ <Operation>1</Operation>
626+ </Platform>
627+ </DeployClass>
628+ <DeployClass Name="iPhone_Launch1136x640">
629+ <Platform Name="iOSDevice32">
630+ <Operation>1</Operation>
631+ </Platform>
632+ <Platform Name="iOSDevice64">
633+ <Operation>1</Operation>
634+ </Platform>
635+ <Platform Name="iOSSimulator">
636+ <Operation>1</Operation>
637+ </Platform>
638+ </DeployClass>
639+ <DeployClass Name="iPhone_Launch1242">
640+ <Platform Name="iOSDevice32">
641+ <Operation>1</Operation>
642+ </Platform>
643+ <Platform Name="iOSDevice64">
644+ <Operation>1</Operation>
645+ </Platform>
646+ <Platform Name="iOSSimulator">
647+ <Operation>1</Operation>
648+ </Platform>
649+ </DeployClass>
650+ <DeployClass Name="iPhone_Launch1242x2688">
651+ <Platform Name="iOSDevice32">
652+ <Operation>1</Operation>
653+ </Platform>
654+ <Platform Name="iOSDevice64">
655+ <Operation>1</Operation>
656+ </Platform>
657+ <Platform Name="iOSSimulator">
658+ <Operation>1</Operation>
659+ </Platform>
660+ </DeployClass>
661+ <DeployClass Name="iPhone_Launch1334">
662+ <Platform Name="iOSDevice32">
663+ <Operation>1</Operation>
664+ </Platform>
665+ <Platform Name="iOSDevice64">
666+ <Operation>1</Operation>
667+ </Platform>
668+ <Platform Name="iOSSimulator">
669+ <Operation>1</Operation>
670+ </Platform>
671+ </DeployClass>
672+ <DeployClass Name="iPhone_Launch1792">
673+ <Platform Name="iOSDevice32">
674+ <Operation>1</Operation>
675+ </Platform>
676+ <Platform Name="iOSDevice64">
677+ <Operation>1</Operation>
678+ </Platform>
679+ <Platform Name="iOSSimulator">
680+ <Operation>1</Operation>
681+ </Platform>
682+ </DeployClass>
683+ <DeployClass Name="iPhone_Launch2208">
684+ <Platform Name="iOSDevice32">
685+ <Operation>1</Operation>
686+ </Platform>
687+ <Platform Name="iOSDevice64">
688+ <Operation>1</Operation>
689+ </Platform>
690+ <Platform Name="iOSSimulator">
691+ <Operation>1</Operation>
692+ </Platform>
693+ </DeployClass>
694+ <DeployClass Name="iPhone_Launch2436">
695+ <Platform Name="iOSDevice32">
696+ <Operation>1</Operation>
697+ </Platform>
698+ <Platform Name="iOSDevice64">
699+ <Operation>1</Operation>
700+ </Platform>
701+ <Platform Name="iOSSimulator">
702+ <Operation>1</Operation>
703+ </Platform>
704+ </DeployClass>
705+ <DeployClass Name="iPhone_Launch2688x1242">
706+ <Platform Name="iOSDevice32">
707+ <Operation>1</Operation>
708+ </Platform>
709+ <Platform Name="iOSDevice64">
710+ <Operation>1</Operation>
711+ </Platform>
712+ <Platform Name="iOSSimulator">
713+ <Operation>1</Operation>
714+ </Platform>
715+ </DeployClass>
716+ <DeployClass Name="iPhone_Launch320">
717+ <Platform Name="iOSDevice32">
718+ <Operation>1</Operation>
719+ </Platform>
720+ <Platform Name="iOSDevice64">
721+ <Operation>1</Operation>
722+ </Platform>
723+ <Platform Name="iOSSimulator">
724+ <Operation>1</Operation>
725+ </Platform>
726+ </DeployClass>
727+ <DeployClass Name="iPhone_Launch640">
728+ <Platform Name="iOSDevice32">
729+ <Operation>1</Operation>
730+ </Platform>
731+ <Platform Name="iOSDevice64">
732+ <Operation>1</Operation>
733+ </Platform>
734+ <Platform Name="iOSSimulator">
735+ <Operation>1</Operation>
736+ </Platform>
737+ </DeployClass>
738+ <DeployClass Name="iPhone_Launch640x1136">
739+ <Platform Name="iOSDevice32">
740+ <Operation>1</Operation>
741+ </Platform>
742+ <Platform Name="iOSDevice64">
743+ <Operation>1</Operation>
744+ </Platform>
745+ <Platform Name="iOSSimulator">
746+ <Operation>1</Operation>
747+ </Platform>
748+ </DeployClass>
749+ <DeployClass Name="iPhone_Launch750">
750+ <Platform Name="iOSDevice32">
751+ <Operation>1</Operation>
752+ </Platform>
753+ <Platform Name="iOSDevice64">
754+ <Operation>1</Operation>
755+ </Platform>
756+ <Platform Name="iOSSimulator">
757+ <Operation>1</Operation>
758+ </Platform>
759+ </DeployClass>
760+ <DeployClass Name="iPhone_Launch828">
761+ <Platform Name="iOSDevice32">
762+ <Operation>1</Operation>
763+ </Platform>
764+ <Platform Name="iOSDevice64">
765+ <Operation>1</Operation>
766+ </Platform>
767+ <Platform Name="iOSSimulator">
768+ <Operation>1</Operation>
769+ </Platform>
770+ </DeployClass>
771+ <DeployClass Name="ProjectAndroidManifest">
772+ <Platform Name="Android">
773+ <Operation>1</Operation>
774+ </Platform>
775+ <Platform Name="Android64">
776+ <Operation>1</Operation>
777+ </Platform>
778+ </DeployClass>
779+ <DeployClass Name="ProjectiOSDeviceDebug">
780+ <Platform Name="iOSDevice32">
781+ <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
782+ <Operation>1</Operation>
783+ </Platform>
784+ <Platform Name="iOSDevice64">
785+ <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
786+ <Operation>1</Operation>
787+ </Platform>
788+ </DeployClass>
789+ <DeployClass Name="ProjectiOSDeviceResourceRules"/>
790+ <DeployClass Name="ProjectiOSEntitlements"/>
791+ <DeployClass Name="ProjectiOSInfoPList"/>
792+ <DeployClass Name="ProjectiOSResource">
793+ <Platform Name="iOSDevice32">
794+ <Operation>1</Operation>
795+ </Platform>
796+ <Platform Name="iOSDevice64">
797+ <Operation>1</Operation>
798+ </Platform>
799+ <Platform Name="iOSSimulator">
800+ <Operation>1</Operation>
801+ </Platform>
802+ </DeployClass>
803+ <DeployClass Name="ProjectOSXDebug"/>
804+ <DeployClass Name="ProjectOSXEntitlements"/>
805+ <DeployClass Name="ProjectOSXInfoPList"/>
806+ <DeployClass Name="ProjectOSXResource">
807+ <Platform Name="OSX32">
808+ <RemoteDir>Contents\Resources</RemoteDir>
809+ <Operation>1</Operation>
810+ </Platform>
811+ <Platform Name="OSX64">
812+ <RemoteDir>Contents\Resources</RemoteDir>
813+ <Operation>1</Operation>
814+ </Platform>
815+ </DeployClass>
816+ <DeployClass Required="true" Name="ProjectOutput">
817+ <Platform Name="Android">
818+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
819+ <Operation>1</Operation>
820+ </Platform>
821+ <Platform Name="Android64">
822+ <RemoteDir>library\lib\arm64-v8a</RemoteDir>
823+ <Operation>1</Operation>
824+ </Platform>
825+ <Platform Name="iOSDevice32">
826+ <Operation>1</Operation>
827+ </Platform>
828+ <Platform Name="iOSDevice64">
829+ <Operation>1</Operation>
830+ </Platform>
831+ <Platform Name="iOSSimulator">
832+ <Operation>1</Operation>
833+ </Platform>
834+ <Platform Name="Linux64">
835+ <Operation>1</Operation>
836+ </Platform>
837+ <Platform Name="OSX32">
838+ <Operation>1</Operation>
839+ </Platform>
840+ <Platform Name="OSX64">
841+ <Operation>1</Operation>
842+ </Platform>
843+ <Platform Name="Win32">
844+ <Operation>0</Operation>
845+ </Platform>
846+ </DeployClass>
847+ <DeployClass Name="ProjectOutput_Android32">
848+ <Platform Name="Android64">
849+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
850+ <Operation>1</Operation>
851+ </Platform>
852+ </DeployClass>
853+ <DeployClass Name="ProjectUWPManifest">
854+ <Platform Name="Win32">
855+ <Operation>1</Operation>
856+ </Platform>
857+ <Platform Name="Win64">
858+ <Operation>1</Operation>
859+ </Platform>
860+ </DeployClass>
861+ <DeployClass Name="UWP_DelphiLogo150">
862+ <Platform Name="Win32">
863+ <RemoteDir>Assets</RemoteDir>
864+ <Operation>1</Operation>
865+ </Platform>
866+ <Platform Name="Win64">
867+ <RemoteDir>Assets</RemoteDir>
868+ <Operation>1</Operation>
869+ </Platform>
870+ </DeployClass>
871+ <DeployClass Name="UWP_DelphiLogo44">
872+ <Platform Name="Win32">
873+ <RemoteDir>Assets</RemoteDir>
874+ <Operation>1</Operation>
875+ </Platform>
876+ <Platform Name="Win64">
877+ <RemoteDir>Assets</RemoteDir>
878+ <Operation>1</Operation>
879+ </Platform>
880+ </DeployClass>
881+ <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
882+ <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
883+ <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
884+ <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
885+ <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
886+ <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
887+ <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
888+ <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME)"/>
889+ <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
890+ <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
891+ </Deployment>
892+ <Platforms>
893+ <Platform value="Win32">True</Platform>
894+ <Platform value="Win64">False</Platform>
895+ </Platforms>
896+ </BorlandProject>
897+ <ProjectFileVersion>12</ProjectFileVersion>
898+ </ProjectExtensions>
899+ <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
900+ <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
901+ <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
902+</Project>
--- trunk/prj/BrutalDelphiR.dpk (nonexistent)
+++ trunk/prj/BrutalDelphiR.dpk (revision 3)
@@ -0,0 +1,41 @@
1+package BrutalDelphiR;
2+
3+{$R *.res}
4+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
5+{$ALIGN 8}
6+{$ASSERTIONS ON}
7+{$BOOLEVAL OFF}
8+{$DEBUGINFO OFF}
9+{$EXTENDEDSYNTAX ON}
10+{$IMPORTEDDATA ON}
11+{$IOCHECKS ON}
12+{$LOCALSYMBOLS ON}
13+{$LONGSTRINGS ON}
14+{$OPENSTRINGS ON}
15+{$OPTIMIZATION OFF}
16+{$OVERFLOWCHECKS OFF}
17+{$RANGECHECKS OFF}
18+{$REFERENCEINFO ON}
19+{$SAFEDIVIDE OFF}
20+{$STACKFRAMES ON}
21+{$TYPEDADDRESS OFF}
22+{$VARSTRINGCHECKS ON}
23+{$WRITEABLECONST OFF}
24+{$MINENUMSIZE 1}
25+{$IMAGEBASE $400000}
26+{$DEFINE DEBUG}
27+{$ENDIF IMPLICITBUILDING}
28+{$DESCRIPTION 'Brutal Delphi (Runtime)'}
29+{$LIBSUFFIX '260'}
30+{$RUNONLY}
31+{$IMPLICITBUILD ON}
32+
33+requires
34+ rtl,
35+ vcl,
36+ dbrtl;
37+
38+contains
39+ BRD.MasterNavigator in '..\src\BRD.MasterNavigator.pas';
40+
41+end.
--- trunk/prj/BrutalDelphiR.dproj (nonexistent)
+++ trunk/prj/BrutalDelphiR.dproj (revision 3)
@@ -0,0 +1,921 @@
1+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+ <PropertyGroup>
3+ <ProjectGuid>{409C8BFD-FE6E-46CA-89A2-3851E469194A}</ProjectGuid>
4+ <MainSource>BrutalDelphiR.dpk</MainSource>
5+ <ProjectVersion>18.8</ProjectVersion>
6+ <FrameworkType>VCL</FrameworkType>
7+ <Base>True</Base>
8+ <Config Condition="'$(Config)'==''">Debug</Config>
9+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
10+ <TargetedPlatforms>1</TargetedPlatforms>
11+ <AppType>Package</AppType>
12+ </PropertyGroup>
13+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
14+ <Base>true</Base>
15+ </PropertyGroup>
16+ <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
17+ <Base_Android>true</Base_Android>
18+ <CfgParent>Base</CfgParent>
19+ <Base>true</Base>
20+ </PropertyGroup>
21+ <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
22+ <Base_Android64>true</Base_Android64>
23+ <CfgParent>Base</CfgParent>
24+ <Base>true</Base>
25+ </PropertyGroup>
26+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
27+ <Base_Win32>true</Base_Win32>
28+ <CfgParent>Base</CfgParent>
29+ <Base>true</Base>
30+ </PropertyGroup>
31+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
32+ <Cfg_1>true</Cfg_1>
33+ <CfgParent>Base</CfgParent>
34+ <Base>true</Base>
35+ </PropertyGroup>
36+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
37+ <Cfg_1_Win32>true</Cfg_1_Win32>
38+ <CfgParent>Cfg_1</CfgParent>
39+ <Cfg_1>true</Cfg_1>
40+ <Base>true</Base>
41+ </PropertyGroup>
42+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
43+ <Cfg_2>true</Cfg_2>
44+ <CfgParent>Base</CfgParent>
45+ <Base>true</Base>
46+ </PropertyGroup>
47+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
48+ <Cfg_2_Win32>true</Cfg_2_Win32>
49+ <CfgParent>Cfg_2</CfgParent>
50+ <Cfg_2>true</Cfg_2>
51+ <Base>true</Base>
52+ </PropertyGroup>
53+ <PropertyGroup Condition="'$(Base)'!=''">
54+ <DCC_DcuOutput>..\dcu</DCC_DcuOutput>
55+ <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
56+ <DCC_E>false</DCC_E>
57+ <DCC_N>false</DCC_N>
58+ <DCC_S>false</DCC_S>
59+ <DCC_F>false</DCC_F>
60+ <DCC_K>false</DCC_K>
61+ <GenDll>true</GenDll>
62+ <GenPackage>true</GenPackage>
63+ <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
64+ <DCC_CBuilderOutput>All</DCC_CBuilderOutput>
65+ <SanitizedProjectName>BrutalDelphiR</SanitizedProjectName>
66+ <VerInfo_Locale>1046</VerInfo_Locale>
67+ <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
68+ <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
69+ <DllSuffix>260</DllSuffix>
70+ <DCC_Description>Brutal Delphi (Runtime)</DCC_Description>
71+ </PropertyGroup>
72+ <PropertyGroup Condition="'$(Base_Android)'!=''">
73+ <DCC_CBuilderOutput>None</DCC_CBuilderOutput>
74+ </PropertyGroup>
75+ <PropertyGroup Condition="'$(Base_Android64)'!=''">
76+ <DCC_CBuilderOutput>None</DCC_CBuilderOutput>
77+ </PropertyGroup>
78+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
79+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
80+ <BT_BuildType>Debug</BT_BuildType>
81+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
82+ <VerInfo_Locale>1033</VerInfo_Locale>
83+ </PropertyGroup>
84+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
85+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
86+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
87+ <DCC_Optimize>false</DCC_Optimize>
88+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
89+ <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
90+ <DCC_RemoteDebug>true</DCC_RemoteDebug>
91+ </PropertyGroup>
92+ <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
93+ <DCC_RemoteDebug>false</DCC_RemoteDebug>
94+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
95+ <VerInfo_Locale>1033</VerInfo_Locale>
96+ </PropertyGroup>
97+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
98+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
99+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
100+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
101+ <DCC_DebugInformation>0</DCC_DebugInformation>
102+ </PropertyGroup>
103+ <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
104+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
105+ <VerInfo_Locale>1033</VerInfo_Locale>
106+ </PropertyGroup>
107+ <ItemGroup>
108+ <DelphiCompile Include="$(MainSource)">
109+ <MainSource>MainSource</MainSource>
110+ </DelphiCompile>
111+ <DCCReference Include="rtl.dcp"/>
112+ <DCCReference Include="vcl.dcp"/>
113+ <DCCReference Include="dbrtl.dcp"/>
114+ <DCCReference Include="..\src\BRD.MasterNavigator.pas"/>
115+ <BuildConfiguration Include="Release">
116+ <Key>Cfg_2</Key>
117+ <CfgParent>Base</CfgParent>
118+ </BuildConfiguration>
119+ <BuildConfiguration Include="Base">
120+ <Key>Base</Key>
121+ </BuildConfiguration>
122+ <BuildConfiguration Include="Debug">
123+ <Key>Cfg_1</Key>
124+ <CfgParent>Base</CfgParent>
125+ </BuildConfiguration>
126+ </ItemGroup>
127+ <ProjectExtensions>
128+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
129+ <Borland.ProjectType>Package</Borland.ProjectType>
130+ <BorlandProject>
131+ <Delphi.Personality>
132+ <Source>
133+ <Source Name="MainSource">BrutalDelphiR.dpk</Source>
134+ </Source>
135+ </Delphi.Personality>
136+ <Deployment Version="3">
137+ <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
138+ <Platform Name="OSX32">
139+ <Overwrite>true</Overwrite>
140+ </Platform>
141+ </DeployFile>
142+ <DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule">
143+ <Platform Name="iOSSimulator">
144+ <Overwrite>true</Overwrite>
145+ </Platform>
146+ </DeployFile>
147+ <DeployFile LocalName="$(BDS)\Redist\iossimulator\libpcre.dylib" Class="DependencyModule">
148+ <Platform Name="iOSSimulator">
149+ <Overwrite>true</Overwrite>
150+ </Platform>
151+ </DeployFile>
152+ <DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\BrutalDelphiR260.bpl" Configuration="Debug" Class="ProjectOutput">
153+ <Platform Name="Win32">
154+ <RemoteName>BrutalDelphiR.bpl</RemoteName>
155+ <Overwrite>true</Overwrite>
156+ </Platform>
157+ </DeployFile>
158+ <DeployClass Name="AdditionalDebugSymbols">
159+ <Platform Name="OSX32">
160+ <Operation>1</Operation>
161+ </Platform>
162+ <Platform Name="Win32">
163+ <Operation>0</Operation>
164+ </Platform>
165+ </DeployClass>
166+ <DeployClass Name="AndroidClassesDexFile">
167+ <Platform Name="Android">
168+ <RemoteDir>classes</RemoteDir>
169+ <Operation>1</Operation>
170+ </Platform>
171+ <Platform Name="Android64">
172+ <RemoteDir>classes</RemoteDir>
173+ <Operation>1</Operation>
174+ </Platform>
175+ </DeployClass>
176+ <DeployClass Name="AndroidFileProvider">
177+ <Platform Name="Android">
178+ <RemoteDir>res\xml</RemoteDir>
179+ <Operation>1</Operation>
180+ </Platform>
181+ <Platform Name="Android64">
182+ <RemoteDir>res\xml</RemoteDir>
183+ <Operation>1</Operation>
184+ </Platform>
185+ </DeployClass>
186+ <DeployClass Name="AndroidGDBServer">
187+ <Platform Name="Android">
188+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
189+ <Operation>1</Operation>
190+ </Platform>
191+ </DeployClass>
192+ <DeployClass Name="AndroidLibnativeArmeabiFile">
193+ <Platform Name="Android">
194+ <RemoteDir>library\lib\armeabi</RemoteDir>
195+ <Operation>1</Operation>
196+ </Platform>
197+ <Platform Name="Android64">
198+ <RemoteDir>library\lib\armeabi</RemoteDir>
199+ <Operation>1</Operation>
200+ </Platform>
201+ </DeployClass>
202+ <DeployClass Name="AndroidLibnativeArmeabiv7aFile">
203+ <Platform Name="Android64">
204+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
205+ <Operation>1</Operation>
206+ </Platform>
207+ </DeployClass>
208+ <DeployClass Name="AndroidLibnativeMipsFile">
209+ <Platform Name="Android">
210+ <RemoteDir>library\lib\mips</RemoteDir>
211+ <Operation>1</Operation>
212+ </Platform>
213+ <Platform Name="Android64">
214+ <RemoteDir>library\lib\mips</RemoteDir>
215+ <Operation>1</Operation>
216+ </Platform>
217+ </DeployClass>
218+ <DeployClass Name="AndroidServiceOutput">
219+ <Platform Name="Android">
220+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
221+ <Operation>1</Operation>
222+ </Platform>
223+ <Platform Name="Android64">
224+ <RemoteDir>library\lib\arm64-v8a</RemoteDir>
225+ <Operation>1</Operation>
226+ </Platform>
227+ </DeployClass>
228+ <DeployClass Name="AndroidServiceOutput_Android32">
229+ <Platform Name="Android64">
230+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
231+ <Operation>1</Operation>
232+ </Platform>
233+ </DeployClass>
234+ <DeployClass Name="AndroidSplashImageDef">
235+ <Platform Name="Android">
236+ <RemoteDir>res\drawable</RemoteDir>
237+ <Operation>1</Operation>
238+ </Platform>
239+ <Platform Name="Android64">
240+ <RemoteDir>res\drawable</RemoteDir>
241+ <Operation>1</Operation>
242+ </Platform>
243+ </DeployClass>
244+ <DeployClass Name="AndroidSplashStyles">
245+ <Platform Name="Android">
246+ <RemoteDir>res\values</RemoteDir>
247+ <Operation>1</Operation>
248+ </Platform>
249+ <Platform Name="Android64">
250+ <RemoteDir>res\values</RemoteDir>
251+ <Operation>1</Operation>
252+ </Platform>
253+ </DeployClass>
254+ <DeployClass Name="AndroidSplashStylesV21">
255+ <Platform Name="Android">
256+ <RemoteDir>res\values-v21</RemoteDir>
257+ <Operation>1</Operation>
258+ </Platform>
259+ <Platform Name="Android64">
260+ <RemoteDir>res\values-v21</RemoteDir>
261+ <Operation>1</Operation>
262+ </Platform>
263+ </DeployClass>
264+ <DeployClass Name="Android_Colors">
265+ <Platform Name="Android">
266+ <RemoteDir>res\values</RemoteDir>
267+ <Operation>1</Operation>
268+ </Platform>
269+ <Platform Name="Android64">
270+ <RemoteDir>res\values</RemoteDir>
271+ <Operation>1</Operation>
272+ </Platform>
273+ </DeployClass>
274+ <DeployClass Name="Android_DefaultAppIcon">
275+ <Platform Name="Android">
276+ <RemoteDir>res\drawable</RemoteDir>
277+ <Operation>1</Operation>
278+ </Platform>
279+ <Platform Name="Android64">
280+ <RemoteDir>res\drawable</RemoteDir>
281+ <Operation>1</Operation>
282+ </Platform>
283+ </DeployClass>
284+ <DeployClass Name="Android_LauncherIcon144">
285+ <Platform Name="Android">
286+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
287+ <Operation>1</Operation>
288+ </Platform>
289+ <Platform Name="Android64">
290+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
291+ <Operation>1</Operation>
292+ </Platform>
293+ </DeployClass>
294+ <DeployClass Name="Android_LauncherIcon36">
295+ <Platform Name="Android">
296+ <RemoteDir>res\drawable-ldpi</RemoteDir>
297+ <Operation>1</Operation>
298+ </Platform>
299+ <Platform Name="Android64">
300+ <RemoteDir>res\drawable-ldpi</RemoteDir>
301+ <Operation>1</Operation>
302+ </Platform>
303+ </DeployClass>
304+ <DeployClass Name="Android_LauncherIcon48">
305+ <Platform Name="Android">
306+ <RemoteDir>res\drawable-mdpi</RemoteDir>
307+ <Operation>1</Operation>
308+ </Platform>
309+ <Platform Name="Android64">
310+ <RemoteDir>res\drawable-mdpi</RemoteDir>
311+ <Operation>1</Operation>
312+ </Platform>
313+ </DeployClass>
314+ <DeployClass Name="Android_LauncherIcon72">
315+ <Platform Name="Android">
316+ <RemoteDir>res\drawable-hdpi</RemoteDir>
317+ <Operation>1</Operation>
318+ </Platform>
319+ <Platform Name="Android64">
320+ <RemoteDir>res\drawable-hdpi</RemoteDir>
321+ <Operation>1</Operation>
322+ </Platform>
323+ </DeployClass>
324+ <DeployClass Name="Android_LauncherIcon96">
325+ <Platform Name="Android">
326+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
327+ <Operation>1</Operation>
328+ </Platform>
329+ <Platform Name="Android64">
330+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
331+ <Operation>1</Operation>
332+ </Platform>
333+ </DeployClass>
334+ <DeployClass Name="Android_NotificationIcon24">
335+ <Platform Name="Android">
336+ <RemoteDir>res\drawable-mdpi</RemoteDir>
337+ <Operation>1</Operation>
338+ </Platform>
339+ <Platform Name="Android64">
340+ <RemoteDir>res\drawable-mdpi</RemoteDir>
341+ <Operation>1</Operation>
342+ </Platform>
343+ </DeployClass>
344+ <DeployClass Name="Android_NotificationIcon36">
345+ <Platform Name="Android">
346+ <RemoteDir>res\drawable-hdpi</RemoteDir>
347+ <Operation>1</Operation>
348+ </Platform>
349+ <Platform Name="Android64">
350+ <RemoteDir>res\drawable-hdpi</RemoteDir>
351+ <Operation>1</Operation>
352+ </Platform>
353+ </DeployClass>
354+ <DeployClass Name="Android_NotificationIcon48">
355+ <Platform Name="Android">
356+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
357+ <Operation>1</Operation>
358+ </Platform>
359+ <Platform Name="Android64">
360+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
361+ <Operation>1</Operation>
362+ </Platform>
363+ </DeployClass>
364+ <DeployClass Name="Android_NotificationIcon72">
365+ <Platform Name="Android">
366+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
367+ <Operation>1</Operation>
368+ </Platform>
369+ <Platform Name="Android64">
370+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
371+ <Operation>1</Operation>
372+ </Platform>
373+ </DeployClass>
374+ <DeployClass Name="Android_NotificationIcon96">
375+ <Platform Name="Android">
376+ <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
377+ <Operation>1</Operation>
378+ </Platform>
379+ <Platform Name="Android64">
380+ <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
381+ <Operation>1</Operation>
382+ </Platform>
383+ </DeployClass>
384+ <DeployClass Name="Android_SplashImage426">
385+ <Platform Name="Android">
386+ <RemoteDir>res\drawable-small</RemoteDir>
387+ <Operation>1</Operation>
388+ </Platform>
389+ <Platform Name="Android64">
390+ <RemoteDir>res\drawable-small</RemoteDir>
391+ <Operation>1</Operation>
392+ </Platform>
393+ </DeployClass>
394+ <DeployClass Name="Android_SplashImage470">
395+ <Platform Name="Android">
396+ <RemoteDir>res\drawable-normal</RemoteDir>
397+ <Operation>1</Operation>
398+ </Platform>
399+ <Platform Name="Android64">
400+ <RemoteDir>res\drawable-normal</RemoteDir>
401+ <Operation>1</Operation>
402+ </Platform>
403+ </DeployClass>
404+ <DeployClass Name="Android_SplashImage640">
405+ <Platform Name="Android">
406+ <RemoteDir>res\drawable-large</RemoteDir>
407+ <Operation>1</Operation>
408+ </Platform>
409+ <Platform Name="Android64">
410+ <RemoteDir>res\drawable-large</RemoteDir>
411+ <Operation>1</Operation>
412+ </Platform>
413+ </DeployClass>
414+ <DeployClass Name="Android_SplashImage960">
415+ <Platform Name="Android">
416+ <RemoteDir>res\drawable-xlarge</RemoteDir>
417+ <Operation>1</Operation>
418+ </Platform>
419+ <Platform Name="Android64">
420+ <RemoteDir>res\drawable-xlarge</RemoteDir>
421+ <Operation>1</Operation>
422+ </Platform>
423+ </DeployClass>
424+ <DeployClass Name="Android_Strings">
425+ <Platform Name="Android">
426+ <RemoteDir>res\values</RemoteDir>
427+ <Operation>1</Operation>
428+ </Platform>
429+ <Platform Name="Android64">
430+ <RemoteDir>res\values</RemoteDir>
431+ <Operation>1</Operation>
432+ </Platform>
433+ </DeployClass>
434+ <DeployClass Name="DebugSymbols">
435+ <Platform Name="iOSSimulator">
436+ <Operation>1</Operation>
437+ </Platform>
438+ <Platform Name="OSX32">
439+ <Operation>1</Operation>
440+ </Platform>
441+ <Platform Name="Win32">
442+ <Operation>0</Operation>
443+ </Platform>
444+ </DeployClass>
445+ <DeployClass Name="DependencyFramework">
446+ <Platform Name="OSX32">
447+ <Operation>1</Operation>
448+ <Extensions>.framework</Extensions>
449+ </Platform>
450+ <Platform Name="OSX64">
451+ <Operation>1</Operation>
452+ <Extensions>.framework</Extensions>
453+ </Platform>
454+ <Platform Name="Win32">
455+ <Operation>0</Operation>
456+ </Platform>
457+ </DeployClass>
458+ <DeployClass Name="DependencyModule">
459+ <Platform Name="OSX32">
460+ <Operation>1</Operation>
461+ <Extensions>.dylib</Extensions>
462+ </Platform>
463+ <Platform Name="OSX64">
464+ <Operation>1</Operation>
465+ <Extensions>.dylib</Extensions>
466+ </Platform>
467+ <Platform Name="Win32">
468+ <Operation>0</Operation>
469+ <Extensions>.dll;.bpl</Extensions>
470+ </Platform>
471+ </DeployClass>
472+ <DeployClass Required="true" Name="DependencyPackage">
473+ <Platform Name="iOSDevice32">
474+ <Operation>1</Operation>
475+ <Extensions>.dylib</Extensions>
476+ </Platform>
477+ <Platform Name="iOSDevice64">
478+ <Operation>1</Operation>
479+ <Extensions>.dylib</Extensions>
480+ </Platform>
481+ <Platform Name="iOSSimulator">
482+ <Operation>1</Operation>
483+ <Extensions>.dylib</Extensions>
484+ </Platform>
485+ <Platform Name="OSX32">
486+ <Operation>1</Operation>
487+ <Extensions>.dylib</Extensions>
488+ </Platform>
489+ <Platform Name="OSX64">
490+ <Operation>1</Operation>
491+ <Extensions>.dylib</Extensions>
492+ </Platform>
493+ <Platform Name="Win32">
494+ <Operation>0</Operation>
495+ <Extensions>.bpl</Extensions>
496+ </Platform>
497+ </DeployClass>
498+ <DeployClass Name="File">
499+ <Platform Name="Android">
500+ <Operation>0</Operation>
501+ </Platform>
502+ <Platform Name="Android64">
503+ <Operation>0</Operation>
504+ </Platform>
505+ <Platform Name="iOSDevice32">
506+ <Operation>0</Operation>
507+ </Platform>
508+ <Platform Name="iOSDevice64">
509+ <Operation>0</Operation>
510+ </Platform>
511+ <Platform Name="iOSSimulator">
512+ <Operation>0</Operation>
513+ </Platform>
514+ <Platform Name="OSX32">
515+ <Operation>0</Operation>
516+ </Platform>
517+ <Platform Name="OSX64">
518+ <Operation>0</Operation>
519+ </Platform>
520+ <Platform Name="Win32">
521+ <Operation>0</Operation>
522+ </Platform>
523+ </DeployClass>
524+ <DeployClass Name="iPad_Launch1024x768">
525+ <Platform Name="iOSDevice32">
526+ <Operation>1</Operation>
527+ </Platform>
528+ <Platform Name="iOSDevice64">
529+ <Operation>1</Operation>
530+ </Platform>
531+ <Platform Name="iOSSimulator">
532+ <Operation>1</Operation>
533+ </Platform>
534+ </DeployClass>
535+ <DeployClass Name="iPad_Launch1536x2048">
536+ <Platform Name="iOSDevice32">
537+ <Operation>1</Operation>
538+ </Platform>
539+ <Platform Name="iOSDevice64">
540+ <Operation>1</Operation>
541+ </Platform>
542+ <Platform Name="iOSSimulator">
543+ <Operation>1</Operation>
544+ </Platform>
545+ </DeployClass>
546+ <DeployClass Name="iPad_Launch1668">
547+ <Platform Name="iOSDevice32">
548+ <Operation>1</Operation>
549+ </Platform>
550+ <Platform Name="iOSDevice64">
551+ <Operation>1</Operation>
552+ </Platform>
553+ <Platform Name="iOSSimulator">
554+ <Operation>1</Operation>
555+ </Platform>
556+ </DeployClass>
557+ <DeployClass Name="iPad_Launch1668x2388">
558+ <Platform Name="iOSDevice32">
559+ <Operation>1</Operation>
560+ </Platform>
561+ <Platform Name="iOSDevice64">
562+ <Operation>1</Operation>
563+ </Platform>
564+ <Platform Name="iOSSimulator">
565+ <Operation>1</Operation>
566+ </Platform>
567+ </DeployClass>
568+ <DeployClass Name="iPad_Launch2048x1536">
569+ <Platform Name="iOSDevice32">
570+ <Operation>1</Operation>
571+ </Platform>
572+ <Platform Name="iOSDevice64">
573+ <Operation>1</Operation>
574+ </Platform>
575+ <Platform Name="iOSSimulator">
576+ <Operation>1</Operation>
577+ </Platform>
578+ </DeployClass>
579+ <DeployClass Name="iPad_Launch2048x2732">
580+ <Platform Name="iOSDevice32">
581+ <Operation>1</Operation>
582+ </Platform>
583+ <Platform Name="iOSDevice64">
584+ <Operation>1</Operation>
585+ </Platform>
586+ <Platform Name="iOSSimulator">
587+ <Operation>1</Operation>
588+ </Platform>
589+ </DeployClass>
590+ <DeployClass Name="iPad_Launch2224">
591+ <Platform Name="iOSDevice32">
592+ <Operation>1</Operation>
593+ </Platform>
594+ <Platform Name="iOSDevice64">
595+ <Operation>1</Operation>
596+ </Platform>
597+ <Platform Name="iOSSimulator">
598+ <Operation>1</Operation>
599+ </Platform>
600+ </DeployClass>
601+ <DeployClass Name="iPad_Launch2388x1668">
602+ <Platform Name="iOSDevice32">
603+ <Operation>1</Operation>
604+ </Platform>
605+ <Platform Name="iOSDevice64">
606+ <Operation>1</Operation>
607+ </Platform>
608+ <Platform Name="iOSSimulator">
609+ <Operation>1</Operation>
610+ </Platform>
611+ </DeployClass>
612+ <DeployClass Name="iPad_Launch2732x2048">
613+ <Platform Name="iOSDevice32">
614+ <Operation>1</Operation>
615+ </Platform>
616+ <Platform Name="iOSDevice64">
617+ <Operation>1</Operation>
618+ </Platform>
619+ <Platform Name="iOSSimulator">
620+ <Operation>1</Operation>
621+ </Platform>
622+ </DeployClass>
623+ <DeployClass Name="iPad_Launch768x1024">
624+ <Platform Name="iOSDevice32">
625+ <Operation>1</Operation>
626+ </Platform>
627+ <Platform Name="iOSDevice64">
628+ <Operation>1</Operation>
629+ </Platform>
630+ <Platform Name="iOSSimulator">
631+ <Operation>1</Operation>
632+ </Platform>
633+ </DeployClass>
634+ <DeployClass Name="iPhone_Launch1125">
635+ <Platform Name="iOSDevice32">
636+ <Operation>1</Operation>
637+ </Platform>
638+ <Platform Name="iOSDevice64">
639+ <Operation>1</Operation>
640+ </Platform>
641+ <Platform Name="iOSSimulator">
642+ <Operation>1</Operation>
643+ </Platform>
644+ </DeployClass>
645+ <DeployClass Name="iPhone_Launch1136x640">
646+ <Platform Name="iOSDevice32">
647+ <Operation>1</Operation>
648+ </Platform>
649+ <Platform Name="iOSDevice64">
650+ <Operation>1</Operation>
651+ </Platform>
652+ <Platform Name="iOSSimulator">
653+ <Operation>1</Operation>
654+ </Platform>
655+ </DeployClass>
656+ <DeployClass Name="iPhone_Launch1242">
657+ <Platform Name="iOSDevice32">
658+ <Operation>1</Operation>
659+ </Platform>
660+ <Platform Name="iOSDevice64">
661+ <Operation>1</Operation>
662+ </Platform>
663+ <Platform Name="iOSSimulator">
664+ <Operation>1</Operation>
665+ </Platform>
666+ </DeployClass>
667+ <DeployClass Name="iPhone_Launch1242x2688">
668+ <Platform Name="iOSDevice32">
669+ <Operation>1</Operation>
670+ </Platform>
671+ <Platform Name="iOSDevice64">
672+ <Operation>1</Operation>
673+ </Platform>
674+ <Platform Name="iOSSimulator">
675+ <Operation>1</Operation>
676+ </Platform>
677+ </DeployClass>
678+ <DeployClass Name="iPhone_Launch1334">
679+ <Platform Name="iOSDevice32">
680+ <Operation>1</Operation>
681+ </Platform>
682+ <Platform Name="iOSDevice64">
683+ <Operation>1</Operation>
684+ </Platform>
685+ <Platform Name="iOSSimulator">
686+ <Operation>1</Operation>
687+ </Platform>
688+ </DeployClass>
689+ <DeployClass Name="iPhone_Launch1792">
690+ <Platform Name="iOSDevice32">
691+ <Operation>1</Operation>
692+ </Platform>
693+ <Platform Name="iOSDevice64">
694+ <Operation>1</Operation>
695+ </Platform>
696+ <Platform Name="iOSSimulator">
697+ <Operation>1</Operation>
698+ </Platform>
699+ </DeployClass>
700+ <DeployClass Name="iPhone_Launch2208">
701+ <Platform Name="iOSDevice32">
702+ <Operation>1</Operation>
703+ </Platform>
704+ <Platform Name="iOSDevice64">
705+ <Operation>1</Operation>
706+ </Platform>
707+ <Platform Name="iOSSimulator">
708+ <Operation>1</Operation>
709+ </Platform>
710+ </DeployClass>
711+ <DeployClass Name="iPhone_Launch2436">
712+ <Platform Name="iOSDevice32">
713+ <Operation>1</Operation>
714+ </Platform>
715+ <Platform Name="iOSDevice64">
716+ <Operation>1</Operation>
717+ </Platform>
718+ <Platform Name="iOSSimulator">
719+ <Operation>1</Operation>
720+ </Platform>
721+ </DeployClass>
722+ <DeployClass Name="iPhone_Launch2688x1242">
723+ <Platform Name="iOSDevice32">
724+ <Operation>1</Operation>
725+ </Platform>
726+ <Platform Name="iOSDevice64">
727+ <Operation>1</Operation>
728+ </Platform>
729+ <Platform Name="iOSSimulator">
730+ <Operation>1</Operation>
731+ </Platform>
732+ </DeployClass>
733+ <DeployClass Name="iPhone_Launch320">
734+ <Platform Name="iOSDevice32">
735+ <Operation>1</Operation>
736+ </Platform>
737+ <Platform Name="iOSDevice64">
738+ <Operation>1</Operation>
739+ </Platform>
740+ <Platform Name="iOSSimulator">
741+ <Operation>1</Operation>
742+ </Platform>
743+ </DeployClass>
744+ <DeployClass Name="iPhone_Launch640">
745+ <Platform Name="iOSDevice32">
746+ <Operation>1</Operation>
747+ </Platform>
748+ <Platform Name="iOSDevice64">
749+ <Operation>1</Operation>
750+ </Platform>
751+ <Platform Name="iOSSimulator">
752+ <Operation>1</Operation>
753+ </Platform>
754+ </DeployClass>
755+ <DeployClass Name="iPhone_Launch640x1136">
756+ <Platform Name="iOSDevice32">
757+ <Operation>1</Operation>
758+ </Platform>
759+ <Platform Name="iOSDevice64">
760+ <Operation>1</Operation>
761+ </Platform>
762+ <Platform Name="iOSSimulator">
763+ <Operation>1</Operation>
764+ </Platform>
765+ </DeployClass>
766+ <DeployClass Name="iPhone_Launch750">
767+ <Platform Name="iOSDevice32">
768+ <Operation>1</Operation>
769+ </Platform>
770+ <Platform Name="iOSDevice64">
771+ <Operation>1</Operation>
772+ </Platform>
773+ <Platform Name="iOSSimulator">
774+ <Operation>1</Operation>
775+ </Platform>
776+ </DeployClass>
777+ <DeployClass Name="iPhone_Launch828">
778+ <Platform Name="iOSDevice32">
779+ <Operation>1</Operation>
780+ </Platform>
781+ <Platform Name="iOSDevice64">
782+ <Operation>1</Operation>
783+ </Platform>
784+ <Platform Name="iOSSimulator">
785+ <Operation>1</Operation>
786+ </Platform>
787+ </DeployClass>
788+ <DeployClass Name="ProjectAndroidManifest">
789+ <Platform Name="Android">
790+ <Operation>1</Operation>
791+ </Platform>
792+ <Platform Name="Android64">
793+ <Operation>1</Operation>
794+ </Platform>
795+ </DeployClass>
796+ <DeployClass Name="ProjectiOSDeviceDebug">
797+ <Platform Name="iOSDevice32">
798+ <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
799+ <Operation>1</Operation>
800+ </Platform>
801+ <Platform Name="iOSDevice64">
802+ <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
803+ <Operation>1</Operation>
804+ </Platform>
805+ </DeployClass>
806+ <DeployClass Name="ProjectiOSDeviceResourceRules"/>
807+ <DeployClass Name="ProjectiOSEntitlements"/>
808+ <DeployClass Name="ProjectiOSInfoPList"/>
809+ <DeployClass Name="ProjectiOSResource">
810+ <Platform Name="iOSDevice32">
811+ <Operation>1</Operation>
812+ </Platform>
813+ <Platform Name="iOSDevice64">
814+ <Operation>1</Operation>
815+ </Platform>
816+ <Platform Name="iOSSimulator">
817+ <Operation>1</Operation>
818+ </Platform>
819+ </DeployClass>
820+ <DeployClass Name="ProjectOSXDebug"/>
821+ <DeployClass Name="ProjectOSXEntitlements"/>
822+ <DeployClass Name="ProjectOSXInfoPList"/>
823+ <DeployClass Name="ProjectOSXResource">
824+ <Platform Name="OSX32">
825+ <RemoteDir>Contents\Resources</RemoteDir>
826+ <Operation>1</Operation>
827+ </Platform>
828+ <Platform Name="OSX64">
829+ <RemoteDir>Contents\Resources</RemoteDir>
830+ <Operation>1</Operation>
831+ </Platform>
832+ </DeployClass>
833+ <DeployClass Required="true" Name="ProjectOutput">
834+ <Platform Name="Android">
835+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
836+ <Operation>1</Operation>
837+ </Platform>
838+ <Platform Name="Android64">
839+ <RemoteDir>library\lib\arm64-v8a</RemoteDir>
840+ <Operation>1</Operation>
841+ </Platform>
842+ <Platform Name="iOSDevice32">
843+ <Operation>1</Operation>
844+ </Platform>
845+ <Platform Name="iOSDevice64">
846+ <Operation>1</Operation>
847+ </Platform>
848+ <Platform Name="iOSSimulator">
849+ <Operation>1</Operation>
850+ </Platform>
851+ <Platform Name="Linux64">
852+ <Operation>1</Operation>
853+ </Platform>
854+ <Platform Name="OSX32">
855+ <Operation>1</Operation>
856+ </Platform>
857+ <Platform Name="OSX64">
858+ <Operation>1</Operation>
859+ </Platform>
860+ <Platform Name="Win32">
861+ <Operation>0</Operation>
862+ </Platform>
863+ </DeployClass>
864+ <DeployClass Name="ProjectOutput_Android32">
865+ <Platform Name="Android64">
866+ <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
867+ <Operation>1</Operation>
868+ </Platform>
869+ </DeployClass>
870+ <DeployClass Name="ProjectUWPManifest">
871+ <Platform Name="Win32">
872+ <Operation>1</Operation>
873+ </Platform>
874+ <Platform Name="Win64">
875+ <Operation>1</Operation>
876+ </Platform>
877+ </DeployClass>
878+ <DeployClass Name="UWP_DelphiLogo150">
879+ <Platform Name="Win32">
880+ <RemoteDir>Assets</RemoteDir>
881+ <Operation>1</Operation>
882+ </Platform>
883+ <Platform Name="Win64">
884+ <RemoteDir>Assets</RemoteDir>
885+ <Operation>1</Operation>
886+ </Platform>
887+ </DeployClass>
888+ <DeployClass Name="UWP_DelphiLogo44">
889+ <Platform Name="Win32">
890+ <RemoteDir>Assets</RemoteDir>
891+ <Operation>1</Operation>
892+ </Platform>
893+ <Platform Name="Win64">
894+ <RemoteDir>Assets</RemoteDir>
895+ <Operation>1</Operation>
896+ </Platform>
897+ </DeployClass>
898+ <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
899+ <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
900+ <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
901+ <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
902+ <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
903+ <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
904+ <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
905+ <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME)"/>
906+ <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
907+ <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
908+ </Deployment>
909+ <Platforms>
910+ <Platform value="Android">False</Platform>
911+ <Platform value="Android64">False</Platform>
912+ <Platform value="Win32">True</Platform>
913+ <Platform value="Win64">False</Platform>
914+ </Platforms>
915+ </BorlandProject>
916+ <ProjectFileVersion>12</ProjectFileVersion>
917+ </ProjectExtensions>
918+ <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
919+ <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
920+ <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
921+</Project>
--- trunk/src/BRD.MasterNavigator.pas (nonexistent)
+++ trunk/src/BRD.MasterNavigator.pas (revision 3)
@@ -0,0 +1,516 @@
1+unit BRD.MasterNavigator;
2+
3+interface
4+
5+uses
6+ System.SysUtils, System.Classes,Vcl.StdCtrls,Data.DB,Vcl.Controls;
7+
8+type
9+ TChangeDataLink = class(TDataLink)
10+ protected
11+ mOnStateChange: TNotifyEvent;
12+ procedure ActiveChanged; override;
13+ procedure EditingChanged; override;
14+ public
15+ property StateChange: TNotifyEvent read mOnStateChange write mOnStateChange;
16+ end;
17+
18+type TMsgPergunta = procedure(Msg: string; var Resposta: boolean) of object;
19+
20+type
21+ TMasterNavigator = class(TComponent)
22+ private
23+ { Private declarations }
24+ Link: TChangeDataLink;
25+ mbtnNovo,mbtnEditar,mbtnCancelar,mbtnGravar,mbtnExcluir: TCustomButton;
26+ eventoNovo,eventoEditar,eventoCancelar,eventoGravar,eventoExcluir: TNotifyEvent;
27+ mSN_Excluir, mSN_Editar, mSN_Incluir: Boolean;
28+ mFocusComp: TWinControl;
29+ mMensagemErro: TGetStrProc;
30+ mConfirmacao: TMsgPergunta;
31+ function GetDataSource: TDataSource;
32+ procedure SetDataSource(const Value: TDataSource);
33+ procedure setbtnCancelar(const Value: TCustomButton);
34+ procedure setbtnEditar(const Value: TCustomButton);
35+ procedure setbtnExcluir(const Value: TCustomButton);
36+ procedure setbtnGravar(const Value: TCustomButton);
37+ procedure setbtnNovo(const Value: TCustomButton);
38+ procedure setSN_Editar(const Value: Boolean);
39+ procedure setSN_Excluir(const Value: Boolean);
40+ procedure setSN_Incluir(const Value: Boolean);
41+ procedure onChange;
42+
43+ procedure acaoNovo(Sender: TObject);
44+ procedure acaoEditar(Sender: TObject);
45+ procedure acaoCancelar(Sender: TObject);
46+ procedure acaoGravar(Sender: TObject);
47+ procedure acaoExcluir(Sender: TObject);
48+ procedure TrySetFocus(Comp: TWinControl);
49+ protected
50+ { Protected declarations }
51+ public
52+ { Public declarations }
53+ constructor Create(AOwner: TComponent); override;
54+ destructor Destroy; override;
55+
56+ procedure StatusChange(Sender: TObject);
57+ published
58+ { Published declarations }
59+ property btnNovo : TCustomButton read mbtnNovo write setbtnNovo;
60+ property btnEditar : TCustomButton read mbtnEditar write setbtnEditar;
61+ property btnCancelar : TCustomButton read mbtnCancelar write setbtnCancelar;
62+ property btnGravar : TCustomButton read mbtnGravar write setbtnGravar;
63+ property btnExcluir : TCustomButton read mbtnExcluir write setbtnExcluir;
64+ property SN_Excluir : Boolean read mSN_Excluir write setSN_Excluir default True;
65+ property SN_Editar : Boolean read mSN_Editar write setSN_Editar default True;
66+ property SN_Incluir : Boolean read mSN_Incluir write setSN_Incluir default True;
67+ property DataSource : TDataSource read GetDataSource write SetDataSource;
68+ property FocusComp : TWinControl read mFocusComp write mFocusComp;
69+ property OnError : TGetStrProc read mMensagemErro write mMensagemErro;
70+ property OnConfirmation : TMsgPergunta read mConfirmacao write mConfirmacao;
71+ end;
72+
73+implementation
74+
75+uses VCL.Dialogs,Vcl.Buttons;
76+
77+{ TMasterNavigator }
78+
79+procedure TMasterNavigator.acaoCancelar(Sender: TObject);
80+begin
81+ if Assigned(eventoCancelar) then
82+ eventoCancelar(Sender);
83+
84+ Link.DataSet.Cancel;
85+
86+end;
87+
88+procedure TMasterNavigator.acaoEditar(Sender: TObject);
89+begin
90+ if Assigned(eventoEditar) then
91+ eventoEditar(Sender);
92+
93+ Link.DataSet.Edit;
94+ if Assigned(FocusComp) then
95+ TrySetFocus(FocusComp);
96+end;
97+
98+procedure TMasterNavigator.acaoExcluir(Sender: TObject);
99+var mApaga: Boolean;
100+begin
101+ if Assigned(eventoExcluir) then
102+ eventoExcluir(Sender);
103+
104+ if Link.DataSet.IsEmpty then
105+ begin
106+ TrySetFocus(btnExcluir);
107+ if Assigned(mMensagemErro) then
108+ mMensagemErro('Não existem registros para serem excluídos.')
109+ else
110+ MessageDlg('Não existem registros para serem excluídos.',mtError,[mbOk],0);
111+ Abort;
112+ end;
113+
114+ mApaga := False;
115+ if Assigned(mConfirmacao) then
116+ mConfirmacao('Deseja realmente excluir o registro?',mApaga)
117+ else
118+ mApaga := MessageDlg('Deseja realmente excluir o registro?',mtConfirmation,[mbYes,mbNo],0,mbNo) = mrYes;
119+
120+
121+ if mApaga then
122+ Link.DataSet.Delete;
123+
124+end;
125+
126+procedure TMasterNavigator.acaoGravar(Sender: TObject);
127+begin
128+ if Assigned(eventoGravar) then
129+ eventoGravar(Sender);
130+
131+ Link.DataSet.Post;
132+ if Assigned(btnNovo) then
133+ TrySetFocus(btnNovo);
134+end;
135+
136+procedure TMasterNavigator.acaoNovo(Sender: TObject);
137+begin
138+ if Assigned(eventoNovo) then
139+ eventoNovo(Sender);
140+
141+ Link.DataSet.Append;
142+ if Assigned(FocusComp) then
143+ TrySetFocus(FocusComp);
144+end;
145+
146+constructor TMasterNavigator.Create(AOwner: TComponent);
147+begin
148+ inherited;
149+ Link := TChangeDataLink.Create;
150+ Link.StateChange := StatusChange;
151+ mSN_Excluir := True;
152+ mSN_Editar := True;
153+ mSN_Incluir := True;
154+ mFocusComp := nil;
155+ mbtnNovo := nil;
156+ mbtnEditar := nil;
157+ mbtnCancelar := nil;
158+ mbtnGravar := nil;
159+ mbtnExcluir := nil;
160+ eventoNovo := nil;
161+ eventoEditar := nil;
162+ eventoCancelar := nil;
163+ eventoGravar := nil;
164+ eventoExcluir := nil;
165+ mMensagemErro := nil;
166+ mConfirmacao := nil;
167+end;
168+
169+destructor TMasterNavigator.Destroy;
170+begin
171+ FreeAndNil(Link);
172+ inherited;
173+end;
174+
175+function TMasterNavigator.GetDataSource: TDataSource;
176+begin
177+ Result := Link.DataSource;
178+end;
179+
180+procedure TMasterNavigator.onChange;
181+var EditInsert : Boolean;
182+
183+ procedure setEnabled(btn: TCustomButton; Enabled: Boolean);
184+ begin
185+ if Assigned(btn) then
186+ begin
187+ btn.Enabled := Enabled;
188+ if Enabled then
189+ btn.Cursor := crHandPoint
190+ else
191+ btn.Cursor := crNo;
192+ end;
193+ end;
194+
195+begin
196+ inherited;
197+ if Link.Active then
198+ begin
199+ EditInsert := Link.Editing;
200+ setEnabled(btnGravar,EditInsert);
201+ setEnabled(btnCancelar,EditInsert);
202+ if not EditInsert then
203+ setEnabled(btnEditar,(not Link.DataSet.IsEmpty) and SN_Editar)
204+ else
205+ setEnabled(btnEditar,False);
206+ setEnabled(btnNovo,not EditInsert and SN_Incluir);
207+ setEnabled(btnExcluir,not EditInsert and SN_Excluir);
208+ end
209+ else
210+ begin
211+ setEnabled(btnGravar,False);
212+ setEnabled(btnCancelar,False);
213+ setEnabled(btnEditar,False);
214+ setEnabled(btnNovo,False);
215+ setEnabled(btnExcluir,False);
216+ end;
217+end;
218+
219+procedure TMasterNavigator.setbtnCancelar(const Value: TCustomButton);
220+var btn: TButton;
221+bitBtn: TBitBtn;
222+begin
223+ if Value = mbtnCancelar then // não mudou nada.
224+ Exit;
225+
226+ if not (csDesigning in Self.ComponentState) then //em design a gente não faz nada
227+ if Assigned(Value) then //estou selecionando um componente
228+ begin
229+ if Value is TButton then
230+ begin
231+ btn := (Value as TButton);
232+ if Assigned(btn.OnClick) then
233+ eventoCancelar := btn.OnClick;
234+ btn.OnClick := acaoCancelar;
235+ end
236+ else
237+ if Value is TBitBtn then
238+ begin
239+ bitbtn := (Value as TBitBtn);
240+ if Assigned(bitbtn.OnClick) then
241+ eventoCancelar := bitbtn.OnClick;
242+ bitbtn.OnClick := acaoCancelar;
243+ end;
244+ end
245+ else
246+ if Assigned(mbtnCancelar) and Assigned(eventoCancelar) then //estou desselecionando o componente e tenho um evento associado.
247+ begin
248+ if mbtnCancelar is TButton then
249+ begin
250+ btn := (mbtnCancelar as TButton);
251+ btn.OnClick := eventoCancelar;
252+ end
253+ else
254+ if Value is TBitBtn then
255+ begin
256+ bitbtn := (mbtnCancelar as TBitBtn);
257+ bitbtn.OnClick := eventoCancelar;
258+ end;
259+
260+ eventoCancelar := nil;
261+
262+ end;
263+
264+ mbtnCancelar := Value;
265+end;
266+
267+procedure TMasterNavigator.setbtnEditar(const Value: TCustomButton);
268+var btn: TButton;
269+bitBtn: TBitBtn;
270+begin
271+ if Value = mbtnEditar then // não mudou nada.
272+ Exit;
273+
274+
275+
276+ if not (csDesigning in Self.ComponentState) then //em design a gente não faz nada
277+ if Assigned(Value) then //estou selecionando um componente
278+ begin
279+ if Value is TButton then
280+ begin
281+ btn := (Value as TButton);
282+ if Assigned(btn.OnClick) then
283+ eventoEditar := btn.OnClick;
284+ btn.OnClick := acaoEditar;
285+ end
286+ else
287+ if Value is TBitBtn then
288+ begin
289+ bitbtn := (Value as TBitBtn);
290+ if Assigned(bitbtn.OnClick) then
291+ eventoEditar := bitbtn.OnClick;
292+ bitbtn.OnClick := acaoEditar;
293+ end;
294+
295+ end
296+ else
297+ if Assigned(mbtnEditar) and Assigned(eventoEditar) then //estou desselecionando o componente e tenho um evento associado.
298+ begin
299+ if mbtnEditar is TButton then
300+ begin
301+ btn := (mbtnEditar as TButton);
302+ btn.OnClick := eventoEditar;
303+ end
304+ else
305+ if Value is TBitBtn then
306+ begin
307+ bitbtn := (mbtnEditar as TBitBtn);
308+ bitbtn.OnClick := eventoEditar;
309+ end;
310+
311+ eventoEditar := nil;
312+ end;
313+
314+ mbtnEditar := Value;
315+
316+end;
317+
318+procedure TMasterNavigator.setbtnExcluir(const Value: TCustomButton);
319+var btn: TButton;
320+bitBtn: TBitBtn;
321+begin
322+ if Value = mbtnExcluir then // não mudou nada.
323+ Exit;
324+
325+ if not (csDesigning in Self.ComponentState) then //em design a gente não faz nada
326+ if Assigned(Value) then //estou selecionando um componente
327+ begin
328+ if Value is TButton then
329+ begin
330+ btn := (Value as TButton);
331+ if Assigned(btn.OnClick) then
332+ eventoExcluir := btn.OnClick;
333+ btn.OnClick := acaoExcluir;
334+ end
335+ else
336+ if Value is TBitBtn then
337+ begin
338+ bitbtn := (Value as TBitBtn);
339+ if Assigned(bitbtn.OnClick) then
340+ eventoExcluir := bitbtn.OnClick;
341+ bitbtn.OnClick := acaoExcluir;
342+ end;
343+ end
344+ else
345+ if Assigned(mbtnExcluir) and Assigned(eventoExcluir) then //estou desselecionando o componente e tenho um evento associado.
346+ begin
347+ if mbtnExcluir is TButton then
348+ begin
349+ btn := (mbtnExcluir as TButton);
350+ btn.OnClick := eventoExcluir;
351+ end
352+ else
353+ if Value is TBitBtn then
354+ begin
355+ bitbtn := (mbtnExcluir as TBitBtn);
356+ bitbtn.OnClick := eventoExcluir;
357+ end;
358+
359+ eventoExcluir := nil;
360+
361+ end;
362+
363+ mbtnExcluir := Value;
364+end;
365+
366+procedure TMasterNavigator.setbtnGravar(const Value: TCustomButton);
367+var btn: TButton;
368+bitBtn: TBitBtn;
369+begin
370+ if Value = mbtnGravar then // não mudou nada.
371+ Exit;
372+
373+ if not (csDesigning in Self.ComponentState) then //em design a gente não faz nada
374+ if Assigned(Value) then //estou selecionando um componente
375+ begin
376+ if Value is TButton then
377+ begin
378+ btn := (Value as TButton);
379+ if Assigned(btn.OnClick) then
380+ eventoGravar := btn.OnClick;
381+ btn.OnClick := acaoGravar;
382+ end
383+ else
384+ if Value is TBitBtn then
385+ begin
386+ bitbtn := (Value as TBitBtn);
387+ if Assigned(bitbtn.OnClick) then
388+ eventoGravar := bitbtn.OnClick;
389+ bitbtn.OnClick := acaoGravar;
390+ end;
391+ end
392+ else
393+ if Assigned(mbtnGravar) and Assigned(eventoGravar) then //estou desselecionando o componente e tenho um evento associado.
394+ begin
395+ if mbtnGravar is TButton then
396+ begin
397+ btn := (mbtnGravar as TButton);
398+ btn.OnClick := eventoGravar;
399+ end
400+ else
401+ if Value is TBitBtn then
402+ begin
403+ bitbtn := (mbtnGravar as TBitBtn);
404+ bitbtn.OnClick := eventoGravar;
405+ end;
406+
407+ eventoGravar := nil;
408+
409+ end;
410+
411+ mbtnGravar := Value;
412+end;
413+
414+procedure TMasterNavigator.setbtnNovo(const Value: TCustomButton);
415+var btn: TButton;
416+bitBtn: TBitBtn;
417+begin
418+ if Value = mbtnNovo then // não mudou nada.
419+ Exit;
420+
421+ if not (csDesigning in Self.ComponentState) then //em design a gente não faz nada
422+ if Assigned(Value) then //estou selecionando um componente
423+ begin
424+ if Value is TButton then
425+ begin
426+ btn := (Value as TButton);
427+ if Assigned(btn.OnClick) then
428+ eventoNovo := btn.OnClick;
429+ btn.OnClick := acaoNovo;
430+ end
431+ else
432+ if Value is TBitBtn then
433+ begin
434+ bitbtn := (Value as TBitBtn);
435+ if Assigned(bitbtn.OnClick) then
436+ eventoNovo := bitbtn.OnClick;
437+ bitbtn.OnClick := acaoNovo;
438+ end;
439+ end
440+ else
441+ if Assigned(mbtnNovo) and Assigned(eventoNovo) then //estou desselecionando o componente e tenho um evento associado.
442+ begin
443+ if mbtnNovo is TButton then
444+ begin
445+ btn := (mbtnNovo as TButton);
446+ btn.OnClick := eventoNovo;
447+ end
448+ else
449+ if Value is TBitBtn then
450+ begin
451+ bitbtn := (mbtnNovo as TBitBtn);
452+ bitbtn.OnClick := eventoNovo;
453+ end;
454+
455+ eventoNovo := nil;
456+
457+ end;
458+
459+ mbtnNovo := Value;
460+end;
461+
462+procedure TMasterNavigator.SetDataSource(const Value: TDataSource);
463+begin
464+ Link.DataSource := Value;
465+end;
466+
467+procedure TMasterNavigator.setSN_Editar(const Value: Boolean);
468+begin
469+ mSN_Editar := Value;
470+ onChange;
471+end;
472+
473+procedure TMasterNavigator.setSN_Excluir(const Value: Boolean);
474+begin
475+ mSN_Excluir := Value;
476+ onChange;
477+end;
478+
479+procedure TMasterNavigator.setSN_Incluir(const Value: Boolean);
480+begin
481+ mSN_Incluir := Value;
482+ onChange;
483+end;
484+
485+procedure TMasterNavigator.StatusChange(Sender: TObject);
486+begin
487+ onChange;
488+end;
489+
490+procedure TMasterNavigator.TrySetFocus(Comp: TWinControl);
491+begin
492+ try
493+ if Comp.CanFocus then
494+ Comp.SetFocus;
495+ except
496+
497+ end;
498+end;
499+
500+{ TChangeDataLink }
501+
502+procedure TChangeDataLink.ActiveChanged;
503+begin
504+ inherited;
505+ if Assigned(mOnStateChange) then
506+ mOnStateChange(Self.DataSet);
507+end;
508+
509+procedure TChangeDataLink.EditingChanged;
510+begin
511+ inherited;
512+ if Assigned(mOnStateChange) then
513+ mOnStateChange(Self.DataSet);
514+end;
515+
516+end.
--- trunk/src/BRD.Register.pas (nonexistent)
+++ trunk/src/BRD.Register.pas (revision 3)
@@ -0,0 +1,17 @@
1+unit BRD.Register;
2+
3+interface
4+
5+procedure Register;
6+
7+implementation
8+
9+uses
10+ BRD.SMP.MasterNavigator;
11+
12+procedure Register;
13+begin
14+ RegisterComponents('Data Controls', [TMasterNavigator]);
15+end;
16+
17+end.
Afficher sur ancien navigateur de dépôt.