Marlon Nardi

After Remove all "system." E "VCL". prefix all uses, Component successfully compiled. But when it was presented INSTALL the following error: [50035414]{rtl140.bpl } SysUtils.InternalUnitCheck (Line 20006, "SysUtils.pas" + 51) + $54 [5003528C]{rtl140.bpl } SysUtils.InternalUnitCheck (Line 19972, "SysUtils.pas" + 17) + $32 [5000D221]{rtl140.bpl } System.@UStrFromPWCharLen (Line 17104, "System.pas" + 28) + $0 [500071F4]{rtl140.bpl } System.@GetMem (Line 2979, "System.pas" + 5) + $0 [5000DF62]{rtl140.bpl } System.@NewUnicodeString (Line 18372, "System.pas" + 7) + $0 [5000D4D8]{rtl140.bpl } System.@UStrSetLength (Line 17406, "System.pas" + 75) + $0 [5003528C]{rtl140.bpl } SysUtils.InternalUnitCheck (Line 19972, "SysUtils.pas" + 17) + $32 [5003556C]{rtl140.bpl } SysUtils.CheckForDuplicateUnits (Line 20029, "SysUtils.pas" + 4) + $3 [500355B3]{rtl140.bpl } SysUtils.InitializePackage (Line 20243, "SysUtils.pas" + 1) + $2 [50035723]{rtl140.bpl } SysUtils.LoadPackage (Line 20296, "SysUtils.pas" + 18) + $5 [2189BCCB]{delphicoreide140.bpl} PasCppPakMgr.TIDEDesignPackage.ClearModules (Line 2149, "PasCppPakMgr.pas" + 14) + $10 [208DD100]{coreide140.bpl} PakLoad.TPackage.DoLoadPackage (Line 143, "PakLoad.pas" + 0) + $C [208DD275]{coreide140.bpl} PakLoad.TPackage.Load (Line 217, "PakLoad.pas" + 7) + $B [208304D1]{coreide140.bpl} PakMgr.TDesignPackage.Load (Line 581, "PakMgr.pas" + 2) + $6 [2189C00B]{delphicoreide140.bpl} PasCppPakMgr.TIDEDesignPackage.Load (Line 2252, "PasCppPakMgr.pas" + 4) + $3 [5000A41D]{rtl140.bpl } System.@AfterConstruction (Line 10325, "System.pas" + 2) + $5 [2189BE1F]{delphicoreide140.bpl} PasCppPakMgr.TIDEDesignPackage.DelayLoad (Line 2177, "PasCppPakMgr.pas" + 11) + $4 [218A02A0]{delphicoreide140.bpl} PakList.TPackageListItem.LoadWait (Line 913, "PakList.pas" + 3) + $4 [218A0224]{delphicoreide140.bpl} PakList.TPackageListItem.LoadDesignPackage (Line 891, "PakList.pas" + 15) + $5 [2189F29F]{delphicoreide140.bpl} PakList.TPackageListItem.SetIsInstalled (Line 559, "PakList.pas" + 7) + $3 [2189F079]{delphicoreide140.bpl} PakList.TPackageList.AddPackage (Line 473, "PakList.pas" + 13) + $5 [218FA562]{delphicoreide140.bpl} BasePasProjOpts.TProjectOptions.IsAPackage (Line 3015, "BasePasProjOpts.pas" + 1) + $B [218F843B]{delphicoreide140.bpl} BasePasProjOpts.TProjOptsManager.InstallPackage (Line 2058, "BasePasProjOpts.pas" + 8) + $5 [218FA54B]{delphicoreide140.bpl} BasePasProjOpts.TProjectOptions.InstallPackage (Line 3010, "BasePasProjOpts.pas" + 0) + $3 [2191F871]{delphicoreide140.bpl} PasMgr.TPascalPackageCodeUpdater.InstallPackage (Line 11627, "PasMgr.pas" + 18) + $19 [218A2A47]{delphicoreide140.bpl} PkgContainers.TStdPackageProjectContainer.CommandHandler (Line 178, "PkgContainers.pas" + 8) + $5 [20708786]{coreide140.bpl} ContainerIntf.TIDEProjectManagerMenuObject.Execute (Line 848, "ContainerIntf.pas" + 21) + $17 [2070A36E]{coreide140.bpl} ContainerIntf.TProjectManagerMenuItem.Click (Line 1096, "ContainerIntf.pas" + 18) + $22 [502817FB]{vcl140.bpl } Menus.TMenu.DispatchCommand (Line 3383, "Menus.pas" + 5) + $2 [502829DA]{vcl140.bpl } Menus.TPopupList.WndProc (Line 4489, "Menus.pas" + 4) + $E [501D2A86]{vcl140.bpl } Graphics.FreeMemoryContexts (Line 6935, "Graphics.pas" + 12) + $F [50299DD8]{vcl140.bpl } Controls.TWinControl.MainWndProc (Line 9540, "Controls.pas" + 3) + $6 [50282929]{vcl140.bpl } Menus.TPopupList.MainWndProc (Line 4464, "Menus.pas" + 2) + $5 [50076408]{rtl140.bpl } Classes.StdWndProc (Line 13015, "Classes.pas" + 8) + $0 [502C9921]{vcl140.bpl } Forms.TApplication.StopHintTimer (Line 10491, "Forms.pas" + 3) + $6 [502C8775]{vcl140.bpl } Forms.TApplication.ProcessMessage (Line 9760, "Forms.pas" + 30) + $1 [502C87BA]{vcl140.bpl } Forms.TApplication.HandleMessage (Line 9790, "Forms.pas" + 1) + $4 [502C8AE5]{vcl140.bpl } Forms.TApplication.Run (Line 9927, "Forms.pas" + 26) + $3 [004369AE]{bds.exe } bds.bds (Line 200, "" + 8) + $FFFB

Error Compile: Windows 7 Delphi 2010 Unigui 0.90.0.976 [DCC Fatal Error] UniXPopupMenu.pas(32): F1026 File not found: 'System.SysUtils.dcu' Where do I find the file? 'System.SysUtils.dcu'

Error Compile: Windows 8 Delphi XE3 Unigui 0.90.0.976 [MSBuild Error] The "CreateRcFile" task failed unexpectedly. System.UnauthorizedAccessException: Access to the path 'C:\Program Files (x86)\Embarcadero\RAD Studio\10.0\XComponents\UniXComponents17.vrc' is denied. at System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath) at System.IO.FileStream.Init(String path, FileMode mode, FileAccess access, Int32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions options, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy) at System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share, Int32 bufferSize, FileOptions options) at System.IO.StreamWriter.CreateFile(String path, Boolean append) at System.IO.StreamWriter..ctor(String path, Boolean append, Encoding encoding, Int32 bufferSize) at System.IO.StreamWriter..ctor(String path, Boolean append) at Borland.Build.Tasks.Shared.CreateRcFile.WriteWindowsRC() at Borland.Build.Tasks.Shared.CreateRcFile.Execute() at Microsoft.Build.BuildEngine.TaskEngine.ExecuteInstantiatedTask(EngineProxy engineProxy, ItemBucket bucket, TaskExecutionMode howToExecuteTask, ITask task, Boolean& taskResult)

Does not work in version 0.90.0.974!

Hayri Aslan, what version of UniGui you are using in your applications?

Congratulations delphici! I was in search of this same solution.

changed to better view of all... private { Private declarations } validapost: string; function GeraImagem(Img: TUniImage): string; ------------------------------------------------------- function TFormEsqueci_Minha_Senha.GeraImagem(Img: TUniImage): string; const f: array [0..4] of string = ('Courier New', 'Impact', 'Times New Roman', 'Verdana', 'Arial'); s = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'; C: ARRAY [0..14] OF tcOLOR = (clAqua, clBlack, clBlue, clFuchsia, clGray, clGreen, clLime, clMaroon, clNavy, clOlive, clPurple, clRed, clSilver, clTeal, clYellow); var i, x, y : integer; r : string; begin randomize; Img.Width := 160; Img.Height := 60; for i := 0 to 3 do r := r + s[Random(length(s)-1)+1]; with Img.Picture.Bitmap do begin width := Img.Width; Height := Img.Height; Canvas.Brush.Color := $00EFEFEF; Canvas.FillRect(Img.ClientRect); for i := 0 to 3 do begin Canvas.Font.Size := random(20) + 20; Canvas.Font.Name := f[High(f)]; Canvas.Font.Color := c[random(High(c))]; Canvas.TextOut(i*40,0,r[i+1]); end; for i := 0 to 2 do begin Canvas.Pen.Color := c[random(High(c))]; Canvas.Pen.Width := 2; canvas.MoveTo(random(Width),0); Canvas.LineTo(random(Width),Height); Canvas.Pen.Width := 1; x := random(Width-10); y := random(Height-10); Canvas.Rectangle(x,y,x+10,y+10); end; end; Result := r; end; -------------------------------------------------------- procedure TFormEsqueci_Minha_Senha.UniFormShow(Sender: TObject); begin validapost := GeraImagem(UniImage1); end;

private { Private declarations } validapost: string; function GeraImagem(Img: TUniImage): string; -------------------------------------------------------------------------- function TFormEsqueci_Minha_Senha.GeraImagem(Img: TUniImage): string; const f: array [0..4] of string = ('Courier New', 'Impact', 'Times New Roman', 'Verdana', 'Arial'); s = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'; C: ARRAY [0..14] OF tcOLOR = (clAqua, clBlack, clBlue, clFuchsia, clGray, clGreen, clLime, clMaroon, clNavy, clOlive, clPurple, clRed, clSilver, clTeal, clYellow); var i, x, y : integer; r : string; begin randomize; Img.Width := 160; Img.Height := 60; for i := 0 to 3 do r := r + s[Random(length(s)-1)+1]; with Img.Picture.Bitmap do begin width := Img.Width; Height := Img.Height; Canvas.Brush.Color := $00EFEFEF; Canvas.FillRect(Img.ClientRect); for i := 0 to 3 do begin Canvas.Font.Size := random(20) + 20; Canvas.Font.Name := f[High(f)]; Canvas.Font.Color := c[random(High©)]; Canvas.TextOut(i*40,0,r[i+1]); end; for i := 0 to 2 do begin Canvas.Pen.Color := c[random(High©)]; Canvas.Pen.Width := 2; canvas.MoveTo(random(Width),0); Canvas.LineTo(random(Width),Height); Canvas.Pen.Width := 1; x := random(Width-10); y := random(Height-10); Canvas.Rectangle(x,y,x+10,y+10); end; end; Result := r; end; ------------------------------------------------------------------ procedure TFormEsqueci_Minha_Senha.bt_recuperar_senhaClick(Sender: TObject); begin validapost := GeraImagem(UniImage1); end;

I WANT ONE!! Thanks

I also have a lot to thank this great tool. I already have two applications hosted on VPS servers, which was a revolution for my clients, who can now be accessed in their aipad anywhere. Marlon Nardi, Falcon Systems, Brazil.

Attach

Only knowledge of the community ... This bug is occurring in the component UniDBGrid SelectedRows property, the selection of the line is not completed until the end of the line. Note that running on windows server 2003 + Apache.

My first contact was Raudus, like him a lot ... But I had a problem, open a topic in the forum and have never been answered, so I migrated to UniGui. a great advantage that has over the Raudus UniGui, is that it generates. OS (ie it runs on Linux, and UniGui not run ...). Regarding performance, the UniGui is much faster than the Raudus. I have two equal applications, one developed in Raudus UniGui and another in the process Unigui AJAX almost twice as fast the Raudus. both have their strengths and weaknesses in minhão opinion. Att, Marlon