Jump to content

albertovesx

uniGUI Subscriber
  • Posts

    598
  • Joined

  • Last visited

  • Days Won

    12

Posts posted by albertovesx

  1. Semper share this:

    If you want TUniEdit that requires a non-empty value:


    Open UniEdit's ClientEvents and edit ExtEvents property
    Add the following line in the "OnBeforerender" event:

    sender.allowBlank=false;

     

    But, it would be useful to have this as property and change this value on runtime.

     

    As optional display a message sender.emptyText='text to display when the field is empty';

     

    Best regards

  2. Hi

     

    Jpeg images are one of the most used for database application. However vcl and unigui dont have native suport for this format (I dont know why). Is is posible tha unidbimage could handle jpg images?

     

    Best regards

  3. You can declare them  inside mainmodule

     

    type
      TUniMainModule = class(TUniGUIMainModule)
        procedure UniGUIMainModuleCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
        globalVariableForEachSession: String;
      end;
     

     

  4. delphi xe2

    After update to 0.91 I got the following exception after call uniform.showmodal.

     

    Config Option: O85->maximizable:false<br/>is refering a previous request,<br/>it's not allowed in AJAX request or JS handler.<br/>Use equivalent Public Property or Method instead.

    The demos or new projects do not show me this. Do you have any idea about this?

     

    EDIT: Well, after searching for a solution I found that the form that I try to show has a dbgrid with columns asociated with fields. Only If I remove all the columns the problem disappears. Its not a problem of the datasource beacause if I clear datasource property the problem remains. Very extrange.

     

     

     

     

    procedure TExtThread.JSCode(JS : string; JSClassName : string = ''; JSName : string = ''; Owner : string = '');
    var
      I, J : integer;
    begin
      if (* added *)(JS<>'')(* added *) and (JS[length(JS)] = ';') then begin // Command
        I := pos('.', JS);
        J := pos(IdentDelim, JS);
        if (pos('Singleton', JSClassName) = 0) and (J > 0) and (J < I) and (pos(DeclareJS, JS) = 0) and not ExistsReference(copy(JS, J-1, I-J+1)) then
          raise Exception.Create('Public property or Method: ''' + JSClassName + '.' + copy(JS, I+1, FirstDelimiter('=(', JS, I)-I-1) + ''' requires explicit ''var'' declaration.');
        I := length(Response) + 1
      end
      else  // set attribute
        if JSName = '' then
          raise Exception.Create('Missing '';'' in command: ' + JS)
        else begin
          I := pos('/*' + JSName + '*/', Response);
          if I = 0 then
            raise Exception.Create('Config Option: ' (* added *)+JSName+'->'(* added *)+ JS + '<br/>is refering a previous request,' +
              '<br/>it''s not allowed in AJAX request or JS handler.<br/>Use equivalent Public Property or Method instead.');
          if not(Response[I-1] in ['{', '[', '(', ';']) then JS := ',' + JS;
        end;
      insert(JS, Response, I);
      if (pos('O' + IdentDelim, JS) <> 0) and (pos('O' + IdentDelim, JSName) <> 0) then begin
        if Owner <> '' then JSName := Owner;
        RelocateVar(JS, JSName, I+length(JS));
      end;
    end;
     

    post-610-0-77931800-1360357754_thumb.jpg

  5. 0.90.0 build 976


    Delphi XE2


     


    I received the following message when I try to see the active sesions using http://theip:port/server on old and new projects.


     


     


     


    An Exception has occured in application:


    Access violation at address 006CC010 in module 'Project1s.exe'. Read of address 00000070


    Restart application


     


    is there someone who is having the same problem or its just my installation? Because everything else works fine.


×
×
  • Create New...