[Extra UniGUI Components]

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)

[Alert Box]

Does not work in version 0.90.0.974!

[MyGPS]

Hayri Aslan,

 

what version of UniGui you are using in your applications?

[I need a new uniGUI combobox]

Congratulations delphici!

 

I was in search of this same solution.

 

[How to make Captcha?]

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;

[How to make Captcha?]

 

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;

[ISAPI Hosting - 5 FREE ACCOUNTS for 6 months]

I WANT ONE!!

 

Thanks

[uniGUI = productivity]

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.

[Small bug in Chrome 19 ...]

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.

 

Attach

[Small bug in Chrome 19 ...]

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.

[Raudus 0.8.1 Released]

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