Jump to content

IRWANTO82

uniGUI Subscriber
  • Posts

    85
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by IRWANTO82

  1. Hello Farshad

    I am trying to convert a desktop application in to web application.

    for this, first of all i need login screen where user and password would be entered,after verification at database end one would be allowed to continue.

    after searching in forum i found this Link.

     

    Now condition is, main screen have calendar, that too visible while Login screen is just above it as showmodal, depending on the user logged in i will load calender,so showing main screen just behind the login screen is not appropriate.

     

    Note : I want MainFormDisplayMode = mfPage

     

    Do you suggest any solution since the link i attached here is more than 1 year old, so i think some solution should be there by now(may be entirely different approach).

     

    Regards

     

    use callback for login dialog like messagedlg demo

     

     

     

     

    post-644-0-17788300-1346882103.jpg

  2. How to use .AddNode() procedure in TUniTreeview

     

    i tes this on vcl and result is okay,

    but in unigui is not

     

     

    UNIGUI

     

    procedure TfrmMST6_TPS.btnAddKecClick(Sender: TObject);

    var

    mynode1, mynode2, mynode3, mynode4 : TUniTreeNode;

    begin

    mynode1 := TUniTreeNode.Create;

    mynode2 := TUniTreeNode.Create;

    mynode3 := TUniTreeNode.Create;

    mynode4 := TUniTreeNode.Create;

     

    lbltree.Items.AddNode(mynode1, nil, '1', nil, naAddFirst);

    lbltree.Items.AddNode(mynode2, mynode1, '1-2', nil, naAddChild);

    lbltree.Items.AddNode(mynode3, mynode1, '1-3', nil, naAddChild);

    lbltree.Items.AddNode(mynode4, mynode2, '2-4', nil, naAddChild);

    end;

     

     

     

    VCL

     

     

    procedure TForm1.BitBtn1Click(Sender: TObject);

    var

    mynode1, mynode2, mynode3, mynode4 : TTreeNode;

    begin

    mynode1 := TTreeNode.Create(lbltree2.Items);

    mynode2 := TTreeNode.Create(lbltree2.Items);

    mynode3 := TTreeNode.Create(lbltree2.Items);

    mynode4 := TTreeNode.Create(lbltree2.Items);

     

    lbltree2.Items.AddNode(mynode1, nil, '1', nil, naAddFirst);

    lbltree2.Items.AddNode(mynode2, mynode1, '1-2', nil, naAddChild);

    lbltree2.Items.AddNode(mynode3, mynode1, '1-3', nil, naAddChild);

    lbltree2.Items.AddNode(mynode4, mynode2, '2-4', nil, naAddChild);

    end;

    post-644-0-78341900-1345973551.jpg

    post-644-0-55449600-1345973561.jpg

  3. how to display UImask before form close after bordericon from system menu (close icon) clicked,

    my application need 5 sec to close it so i need UImask for user interface

     

    i had setting frmlogin.ClientEvents.ExtEvent --> onClose property but still not work

     

     

    function window.OnClose(p)

    {

    p.showMask('Terminate Application...', frmLogin.pnlMain);

    }

  4.  

    [DCC Fataler Fehler] SynEdit_R2012.dpk(30): E2225 'Never-build' Package 'designide' muss neu compiliert werden

    [DCC Fataler Fehler] SynEdit_D2012.dpk(35): E2202 Package 'SynEdit_R2012' wird benötigt, konnte aber nicht gefunden werden

     

    You can see , its a german Version of Delphi

    the rough translation of the Error Message is:

     

     

    [DCC fatal error] SynEdit_R2012.dpk(30): E2225 'Never-build' Package 'designide' need to be compiled

    [DCC fatal error] SynEdit_D2012.dpk(35): E2202 Package 'SynEdit_R2012' is used, but couldn't be found

     

     

    if you got this right click every package, add dcp output to $(fmsoft)\uniGUI\Dcu\Delphi2012

     

    i got this problem on delphi xe2 starter edition,,, everytime i compile i got this error "'Never-build' Package 'xxx' need to be compiled"

    after add i got success all, i dont know this is bug xe2 or not, this is not only unigui package but also jedi etc

×
×
  • Create New...