Marlon Nardi

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