Changeset 113
- Timestamp:
- Oct 16, 2015, 9:14:25 PM (9 years ago)
- Location:
- trunk
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 6 6 ZdechovNET.lps 7 7 heaptrclog.trc 8 index.dbg
-
- Property svn:ignore
-
trunk/Packages/ModularSystem/Language/UModularSystem.cs.po
r105 r113 13 13 msgid "Module \"%1:s\" not found as dependency for module \"%0:s\"" 14 14 msgstr "Pro modul \"%0:s\" nenalezen závislý modul \"%1:s\"" 15 -
trunk/Packages/PersistentData/Backend/UPDClientMemory.pas
r87 r113 162 162 function TPDClientMemory.TypeIsDefined(AType: TPDType): Boolean; 163 163 begin 164 164 Result := False; 165 165 end; 166 166 -
trunk/Packages/PersistentData/Backend/UPDClientMySQL.pas
r87 r113 22 22 function GetConnected: Boolean; override; 23 23 procedure Init; override; 24 function GetConnectionString: string; override; 24 25 public 25 26 procedure ObjectLoad(AObject: TObjectProxy); override; … … 245 246 end; 246 247 248 function TPDClientMySQL.GetConnectionString: string; 249 begin 250 Result := 'Host:' + Host + ',Port:' + IntToStr(Port) + ',User:' + User + 251 ',Password:' + Password + ',Schema:' + Schema; 252 end; 253 247 254 constructor TPDClientMySQL.Create(AOwner: TComponent); 248 255 begin -
trunk/Packages/PersistentData/UPDClient.pas
r87 r113 161 161 162 162 procedure TPDTypePropertyList.AddSimple(Name: string; TypeName: string; 163 Unique: Boolean ; Index: Boolean);163 Unique: Boolean = False; Index: Boolean = False); 164 164 var 165 165 NewProperty: TPDTypeProperty; -
trunk/Packages/PersistentData/UPersistentData.pas
r87 r113 17 17 18 18 TPDManager = class(TComponent) 19 public 19 20 Items: TListObject; 20 21 procedure Register(ClientClass: TPDClientClass); -
trunk/Packages/synapse/synadbg.pas
r84 r113 127 127 s := '-unknown-'; 128 128 end; 129 s := inttohex(integer( Sender), 8) + s + ': ' + value + CRLF;129 s := inttohex(integer(Pointer(Sender)), 8) + s + ': ' + value + CRLF; 130 130 AppendToLog(s); 131 131 end; … … 141 141 else 142 142 d := '<- '; 143 s :=inttohex(integer( Sender), 8) + d + s + CRLF;143 s :=inttohex(integer(Pointer(Sender)), 8) + d + s + CRLF; 144 144 AppendToLog(s); 145 145 end; -
trunk/UCore.lfm
r96 r113 7 7 object WebApp1: TWebApp 8 8 OnPageProduce = WebApp1PageProduce 9 ServerType = st TCP9 ServerType = stCGI 10 10 left = 160 11 11 top = 88 -
trunk/UCore.lrs
r96 r113 4 4 'TPF0'#5'TCore'#4'Core'#14'OldCreateOrder'#8#6'Height'#3#22#1#16'HorizontalOf' 5 5 +'fset'#3'U'#1#14'VerticalOffset'#3#187#0#5'Width'#3#175#1#0#7'TWebApp'#7'Web' 6 +'App1'#13'OnPageProduce'#7#18'WebApp1PageProduce'#10'ServerType'#7#5'st TCP'#46 +'App1'#13'OnPageProduce'#7#18'WebApp1PageProduce'#10'ServerType'#7#5'stCGI'#4 7 7 +'left'#3#160#0#3'top'#2'X'#0#0#16'TApplicationInfo'#16'ApplicationInfo1'#14 8 8 +'Identification'#2#1#12'VersionMajor'#2#1#12'VersionMinor'#2#0#13'VersionBug' -
trunk/ZdechovNET.lpi
r108 r113 1 <?xml version="1.0" ?>1 <?xml version="1.0" encoding="UTF-8"?> 2 2 <CONFIG> 3 3 <ProjectOptions> … … 36 36 </Target> 37 37 <SearchPaths> 38 <OtherUnitFiles Value="/usr/lib/mysql ;/usr/lib64/mysql;Application;WebServer;Network;Pages;Modules/User;Common;Modules/System;Modules/ZdechovNET;Modules/TV;Modules/Finance;Modules/Network;Modules/Portal;Modules/IS;Modules/News;Modules/Base"/>38 <OtherUnitFiles Value="/usr/lib/mysql/;/usr/lib64/mysql/;Application;WebServer;Network;Pages;Modules/User;Common;Modules/System;Modules/ZdechovNET;Modules/TV;Modules/Finance;Modules/Network;Modules/Portal;Modules/IS;Modules/News;Modules/Base"/> 39 39 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> 40 40 </SearchPaths> … … 43 43 <SyntaxMode Value="Delphi"/> 44 44 <CStyleOperator Value="False"/> 45 <IncludeAssertionCode Value="True"/> 45 46 <AllowLabel Value="False"/> 46 47 <CPPInline Value="False"/> … … 54 55 <StackChecks Value="True"/> 55 56 </Checks> 57 <VerifyObjMethodCallValidity Value="True"/> 56 58 </CodeGeneration> 57 59 <Linking> 58 60 <Debugging> 59 <Use HeaptrcValue="True"/>61 <UseExternalDbgSyms Value="True"/> 60 62 </Debugging> 61 63 </Linking> … … 66 68 <WriteFPCLogo Value="False"/> 67 69 <CompilerMessages> 68 <IgnoredMessages idx5023="True" idx5024="True" idx5025="True" idx5026="True" idx5027="True" idx5028="True" idx5029="True" idx5030="True" idx5031="True"/> 69 <UseMsgFile Value="True"/> 70 <IgnoredMessages idx5031="True" idx5030="True" idx5029="True" idx5028="True" idx5027="True" idx5026="True" idx5025="True" idx5024="True" idx5023="True"/> 70 71 </CompilerMessages> 71 72 <CustomOptions Value="-dDEBUG"/> 72 <CompilerPath Value="$(CompPath)"/>73 73 </Other> 74 <LCLWidgetType Value="nogui"/>75 74 </CompilerOptions> 76 75 </Item2> 76 <SharedMatrixOptions Count="1"> 77 <Item1 ID="999041476570" Modes="Release,Debug" Type="IDEMacro" MacroName="LCLWidgetType" Value="nogui"/> 78 </SharedMatrixOptions> 77 79 </BuildModes> 78 80 <PublishOptions> … … 121 123 <Filename Value="ZdechovNET.lpr"/> 122 124 <IsPartOfProject Value="True"/> 123 <UnitName Value="ZdechovNET"/>124 125 </Unit0> 125 126 <Unit1> 126 127 <Filename Value="Common/UUtils.pas"/> 127 128 <IsPartOfProject Value="True"/> 128 <UnitName Value="UUtils"/>129 129 </Unit1> 130 130 <Unit2> 131 131 <Filename Value="Application/UWebObjects.pas"/> 132 132 <IsPartOfProject Value="True"/> 133 <UnitName Value="UWebObjects"/>134 133 </Unit2> 135 134 <Unit3> … … 138 137 <ComponentName Value="ServerInfoPage"/> 139 138 <ResourceBaseClass Value="DataModule"/> 140 <UnitName Value="UServerInfoPage"/>141 139 </Unit3> 142 140 <Unit4> … … 147 145 <Filename Value="Modules/User/UModuleUser.pas"/> 148 146 <IsPartOfProject Value="True"/> 149 <UnitName Value="UModuleUser"/>150 147 </Unit5> 151 148 <Unit6> … … 155 152 <HasResources Value="True"/> 156 153 <ResourceBaseClass Value="DataModule"/> 157 <UnitName Value="UCore"/>158 154 </Unit6> 159 155 <Unit7> … … 163 159 <HasResources Value="True"/> 164 160 <ResourceBaseClass Value="DataModule"/> 165 <UnitName Value="UUserControlPage"/>166 161 </Unit7> 167 162 <Unit8> 168 163 <Filename Value="Modules/System/UModuleSystem.pas"/> 169 164 <IsPartOfProject Value="True"/> 170 <UnitName Value="UModuleSystem"/>171 165 </Unit8> 172 166 <Unit9> … … 176 170 <HasResources Value="True"/> 177 171 <ResourceBaseClass Value="DataModule"/> 178 <UnitName Value="UPageAdmin"/>179 172 </Unit9> 180 173 <Unit10> 181 174 <Filename Value="Modules/ZdechovNET/UModuleZdechovNET.pas"/> 182 175 <IsPartOfProject Value="True"/> 183 <UnitName Value="UModuleZdechovNET"/>184 176 </Unit10> 185 177 <Unit11> … … 187 179 <IsPartOfProject Value="True"/> 188 180 <HasResources Value="True"/> 189 <UnitName Value="UAboutPage"/>190 181 </Unit11> 191 182 <Unit12> … … 193 184 <IsPartOfProject Value="True"/> 194 185 <HasResources Value="True"/> 195 <UnitName Value="UContactPage"/>196 186 </Unit12> 197 187 <Unit13> … … 199 189 <IsPartOfProject Value="True"/> 200 190 <HasResources Value="True"/> 201 <UnitName Value="UDocumentsPage"/>202 191 </Unit13> 203 192 <Unit14> … … 205 194 <IsPartOfProject Value="True"/> 206 195 <HasResources Value="True"/> 207 <UnitName Value="UHistoryPage"/>208 196 </Unit14> 209 197 <Unit15> … … 213 201 <HasResources Value="True"/> 214 202 <ResourceBaseClass Value="DataModule"/> 215 <UnitName Value="UHostingPage"/>216 203 </Unit15> 217 204 <Unit16> … … 221 208 <HasResources Value="True"/> 222 209 <ResourceBaseClass Value="DataModule"/> 223 <UnitName Value="UInternetPage"/>224 210 </Unit16> 225 211 <Unit17> … … 227 213 <IsPartOfProject Value="True"/> 228 214 <HasResources Value="True"/> 229 <UnitName Value="ULinksPage"/>230 215 </Unit17> 231 216 <Unit18> … … 233 218 <IsPartOfProject Value="True"/> 234 219 <HasResources Value="True"/> 235 <UnitName Value="UNetworkPage"/>236 220 </Unit18> 237 221 <Unit19> … … 239 223 <IsPartOfProject Value="True"/> 240 224 <HasResources Value="True"/> 241 <UnitName Value="UPlansPage"/>242 225 </Unit19> 243 226 <Unit20> … … 245 228 <IsPartOfProject Value="True"/> 246 229 <HasResources Value="True"/> 247 <UnitName Value="UProjectsPage"/>248 230 </Unit20> 249 231 <Unit21> … … 251 233 <IsPartOfProject Value="True"/> 252 234 <HasResources Value="True"/> 253 <UnitName Value="UVoIPPage"/>254 235 </Unit21> 255 236 <Unit22> … … 257 238 <IsPartOfProject Value="True"/> 258 239 <HasResources Value="True"/> 259 <UnitName Value="UWebCamPage"/>260 240 </Unit22> 261 241 <Unit23> 262 242 <Filename Value="Modules/TV/UModuleTV.pas"/> 263 243 <IsPartOfProject Value="True"/> 264 <UnitName Value="UModuleTV"/>265 244 </Unit23> 266 245 <Unit24> … … 269 248 <ComponentName Value="WebPageTV"/> 270 249 <ResourceBaseClass Value="DataModule"/> 271 <UnitName Value="UPageTV"/>272 250 </Unit24> 273 251 <Unit25> 274 252 <Filename Value="Modules/TV/UPlaylist.pas"/> 275 253 <IsPartOfProject Value="True"/> 276 <UnitName Value="UPlaylist"/>277 254 </Unit25> 278 255 <Unit26> 279 256 <Filename Value="Modules/Finance/UModuleFinance.pas"/> 280 257 <IsPartOfProject Value="True"/> 281 <UnitName Value="UModuleFinance"/>282 258 </Unit26> 283 259 <Unit27> … … 287 263 <HasResources Value="True"/> 288 264 <ResourceBaseClass Value="DataModule"/> 289 <UnitName Value="UPageFinance"/>290 265 </Unit27> 291 266 <Unit28> 292 267 <Filename Value="Modules/Network/UModuleNetwork.pas"/> 293 268 <IsPartOfProject Value="True"/> 294 <UnitName Value="UModuleNetwork"/>295 269 </Unit28> 296 270 <Unit29> … … 300 274 <HasResources Value="True"/> 301 275 <ResourceBaseClass Value="DataModule"/> 302 <UnitName Value="UPageNetwork"/>303 276 </Unit29> 304 277 <Unit30> 305 278 <Filename Value="Modules/Portal/UModulePortal.pas"/> 306 279 <IsPartOfProject Value="True"/> 307 <UnitName Value="UModulePortal"/>308 280 </Unit30> 309 281 <Unit31> … … 313 285 <HasResources Value="True"/> 314 286 <ResourceBaseClass Value="DataModule"/> 315 <UnitName Value="UPagePortal"/>316 287 </Unit31> 317 288 <Unit32> 318 289 <Filename Value="Modules/IS/UModuleIS.pas"/> 319 290 <IsPartOfProject Value="True"/> 320 <UnitName Value="UModuleIS"/>321 291 </Unit32> 322 292 <Unit33> 323 293 <Filename Value="Application/UWebSession.pas"/> 324 294 <IsPartOfProject Value="True"/> 325 <UnitName Value="UWebSession"/>326 295 </Unit33> 327 296 <Unit34> 328 297 <Filename Value="Modules/User/UUser.pas"/> 329 298 <IsPartOfProject Value="True"/> 330 <UnitName Value="UUser"/>331 299 </Unit34> 332 300 <Unit35> 333 301 <Filename Value="Modules/News/UModuleNews.pas"/> 334 302 <IsPartOfProject Value="True"/> 335 <UnitName Value="UModuleNews"/>336 303 </Unit35> 337 304 <Unit36> 338 305 <Filename Value="Modules/Base/UModuleBase.pas"/> 339 306 <IsPartOfProject Value="True"/> 340 <UnitName Value="UModuleBase"/>341 307 </Unit36> 342 308 <Unit37> 343 309 <Filename Value="Modules/News/UNews.pas"/> 344 310 <IsPartOfProject Value="True"/> 345 <UnitName Value="UNews"/>346 311 </Unit37> 347 312 </Units> … … 353 318 </Target> 354 319 <SearchPaths> 355 <OtherUnitFiles Value="/usr/lib/mysql ;/usr/lib64/mysql;Application;WebServer;Network;Pages;Modules/User;Common;Modules/System;Modules/ZdechovNET"/>320 <OtherUnitFiles Value="/usr/lib/mysql/;/usr/lib64/mysql/;Application;WebServer;Network;Pages;Modules/User;Common;Modules/System;Modules/ZdechovNET;Modules/TV;Modules/Finance;Modules/Network;Modules/Portal;Modules/IS;Modules/News;Modules/Base"/> 356 321 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> 357 322 </SearchPaths> … … 385 350 <WriteFPCLogo Value="False"/> 386 351 <CompilerMessages> 387 <IgnoredMessages idx5023="True" idx5024="True" idx5025="True" idx5026="True" idx5027="True" idx5028="True" idx5029="True" idx5030="True" idx5031="True"/> 388 <UseMsgFile Value="True"/> 352 <IgnoredMessages idx5031="True" idx5030="True" idx5029="True" idx5028="True" idx5027="True" idx5026="True" idx5025="True" idx5024="True" idx5023="True"/> 389 353 </CompilerMessages> 390 <CompilerPath Value="$(CompPath)"/>391 354 </Other> 392 <LCLWidgetType Value="nogui"/>393 355 </CompilerOptions> 394 356 </CONFIG> -
trunk/ZdechovNET.lpr
r96 r113 21 21 // Heap trace 22 22 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog); 23 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);23 //SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog); 24 24 {$ENDIF} 25 25
Note:
See TracChangeset
for help on using the changeset viewer.