Jump to content

Emerson

uniGUI Subscriber
 View Profile  See their activity

  • Posts

    30

  • Joined

  • Last visited

 Content Type 

Posts posted by Emerson

    print html file

    in General

    Posted

    Hi, 

     

     

     

     

    I tried using unihtmlframe, but when printing appears the entire form, I want to print only the html content. I tried to use the href but the User has to click the link, is to simulate click on the link through unigui ??

    [Solved] Grid ColumnSort with FireDac FDQuery

    in General

    Posted 

    procedure TFrameModelo.UniDBGrid1ColumnSort(Column: TUniDBGridColumn; Direction: Boolean);
begin
  if Direction then
    TFdquery(DsPes.DataSet).IndexName := Column.FieldName+'_index_asc'
  else
    TFdquery(DsPes.DataSet).IndexName := Column.FieldName+'_index_des';
end;

procedure TFrameModelo.UniFrameCreate(Sender: TObject);
var
  I: Integer;
  IndexnameAsc : string;
  IndexnameDes : string;
begin
  if Assigned(DsPes.DataSet) then
  begin
//    TFDQuery(DsPes.DataSet).IndexDefs.Clear;
    for I := 0 to TFDQuery(DsPes.DataSet).FieldCount-1 do
    begin
      IndexnameAsc := TFDQuery(DsPes.DataSet).Fields[I].FieldName+'_index_asc';
      IndexnameDes := TFDQuery(DsPes.DataSet).Fields[I].FieldName+'_index_des';

      if TFDQuery(DsPes.DataSet).Indexes.FindIndex(IndexnameAsc) = nil then
      begin
        with TFDQuery(DsPes.DataSet).Indexes.Add do
        begin
          Name    := IndexnameAsc;
          Fields  := TFDQuery(DsPes.DataSet).Fields[I].FieldName;
          Active  := True;
        end;
      end;

      if TFDQuery(DsPes.DataSet).Indexes.FindIndex(IndexnameDes) = nil then
      begin
        with TFDQuery(DsPes.DataSet).Indexes.Add do
        begin
          Name        := IndexnameDes;
          Fields  := TFDQuery(DsPes.DataSet).Fields[I].FieldName;
          Options := [soDescending];
          Active  := True;
        end;
      end;
    end;
  end;

  for I := 0 to UniDBGrid1.Columns.Count - 1 do
    UniDBGrid1.Columns[i].Sortable := True;
end;

    try this code.

    • Like 1

    custom server

    in General

    Posted

    I added the unigui the units in my datasnap server and project source added the line TUniServerModule.Create (Application); This makes boot the DataSnap server and Server unigui at the same time and so I can share the datamodules. Thank Farshad.

    custom server

    in General

    Posted

    I would like to add the units of a unigui project in a vcl project and start the server unigui by vcl application, as in the attached example

    it is possible?

    I would like to add the units of a unigui project in a vcl project and start the server by unigui vcl application, as in the attached example it is possible?

    unigui.rar

×
×
  • Create New...