UniterYazilim

July 8, 2019

Merhaba,

"TUniDBGrid" sayfa numaralarında geçiş yaparken ayrı ayrı her sayfanın dip toplamı yapılırken sayfa ilerledikçe bir önceki sayfanın dip toplamı ile toplanarak ilerlemesi,geri gelindiğinde çıkarılması ve direkt sayfa numarası yazıldığında o sayfaya kadar olan değerlerin toplamını gösterme işlemini yapmak istiyoruz. Bunu yapmak mümkün müdür? Kullanıcılardan bu konuyla ilgili ciddi talep gelmektedir.

April 1, 2019

Bilgisayarımdan DevExpress'i kaldırıp projeden de "dxGDIPlusClasses" yazan yerleri sildim ve resimleri yeniden projeye ekledim. Bunun haricinde iki alan adı kullandığımız için config dosyasının içerisindeki dosya yolunda diğer projenin dosya yolu kayıtlı kaldığından da yapılan değişiklikler sitede gözükmüyordu. Config dosyasındaki dosya yolunu da düzeltince sorun çözüldü.Teşekkürler..

March 27, 2019

Evet

March 27, 2019

Merhaba;

Projemi release (DLL) olarak derlediğimde local'de login sayfamda bulunan image nesnesi (resim) gözüküyor ama bunu sunucuya taşıdığımda resim (arka plan resmi) görünmüyor , sunucuda DLL olduğu dizindeki yere aşağıdaki klasörleri koymama rağmen resim gözükmüyor. not: proje içerisindeki resimlerde gözükmemekte bunları release ettiğimde nasıl klasörlere inculude edebilirim.

Dosyalar:

cache, files, log,temp

bu klasörler mevcut.

February 20, 2019

1 hour ago, Sherzod said:

Hi,

Sorry for the late reply.

I couldn't run your testcase, it seems that you are using the DevExpress component

Hi,

Sorry I'm use devexpress TdxMemData. I attached again and I used TFDMemTable component in this project

Thanks.

UniDBGridExample.zip

February 20, 2019

31 minutes ago, Sherzod said:

http://forums.unigui.com/index.php?/topic/1412-sendresponse-or-addjs/&do=findComment&comment=5255

Hi,

Do I have trouble using "UniSession.AddJS" too much?

Thank you for your help.

February 20, 2019

On 2/18/2019 at 1:24 PM, UniterYazilim said:

Hi,
Thanks for your help @Sherzod.

I can solve the UniDBGrid -> OnAfterLoad event by basing a condition for this example.
But there are other similar situations. How can I build the callback structure for such cases?

procedure TframeRapor1.dbGridGetICMReportMasterAfterLoad(Sender: TUniDBGrid);
begin
  if (isCalculateCopyGroup) then
  begin
    isCalculateCopyGroup := false;

	// dbgrid loading mode hang when this below code working
    // UniSession.SendResponse('console.log(''1'');');
   
	// no problem this below code working
    // UniSession.AddJS('console.log(''1'');');
  end;
end;

What is the different?

why dbgrid loading mode hang when use UniSession.SendResponse?

thanks.

February 19, 2019

Hi,

Sample is attached.

Operation:

1. Choose the LookUpComboBox record
2. Select records on dbgrid when doing step 1
3. Press the Calculate button { Calculate button actions: DBUpdate, Refresh Grid, Selected Row (selected record in step 2) }

procedure TMainForm.dbGridGetICMReportMasterAfterLoad(Sender: TUniDBGrid);
begin
  if (isCalculateCopyGroup) then
  begin
    isCalculateCopyGroup := false;


    // dbgrid loading mode hang when this code working.

    // GetSelectRecordDbGridByICMReportUserSymbolID
    // (dmMain.dsetGetICMUserSymbolCopyGroupValue.Value);
  end;
end;

Thanks.

UniDBGridExample.zip

February 19, 2019

Hi,

// I click this button.
procedure TframeRapor1.btnKopyalaCopyGroupClick(Sender: TObject);
begin
  try
  	// DB Update Process
    CopyGroupCalculate(MainDataModule.dsetGetICMUserSymbolCopyGroupValue.Value);

	// Refresh the grid with DB
    GetICMReportMaster(UniMainModule.UserID.ToString,
      String(MainDataModule.dsetAccountAccount.Value));

    isCalculateCopyGroup := true;
  except
    on E: Exception do
      ShowMessage(E.ClassName + ' error raised, with message : ' + E.Message);
  end;
end;

procedure TframeRapor1.CopyGroupCalculate(ICMUserSymbolCopyGroupValue: string);
begin
  MainDataModule.dsetGeneral.Close;
  MainDataModule.dsetGeneral.SQL.Clear;
  MainDataModule.dsetGeneral.SQL.Add
    ('EXEC spSetICMReportCalculateCopyGroup @ICMReportUserSymbolIDs = :ICMReportUserSymbolIDs');
  MainDataModule.dsetGeneral.ParamByName('ICMReportUserSymbolIDs').Value :=
    MainDataModule.dsetGetICMUserSymbolCopyGroupValue.Value;

  MainDataModule.dsetGeneral.Execute;
  MainDataModule.dsetGeneral.Close;
end;

procedure TframeRapor1.GetICMReportMaster(UserID: string; Account: string);
var
  isCorrectSymbol: Boolean;
  ICMReportMasterRecNo: Integer;
begin
  try
    if (NOT MainDataModule.dsetGetICMReportMaster.IsEmpty) then
    begin
      ICMReportMasterRecNo := MainDataModule.dsetGetICMReportMaster.RecNo;
    end;

    dbGridGetICMReportMaster.BeginUpdate;
    MainDataModule.dsetGetICMReportMaster.Active := false;
    MainDataModule.dsetGetICMReportMaster.SQL.Clear;
    MainDataModule.dsetGetICMReportMaster.SQL.Add
      ('EXEC spGetICMReportMaster @UserID = :UserID, @Account = :Account');
    MainDataModule.dsetGetICMReportMaster.ParamByName('UserID').Value :=
      UniMainModule.UserID;
    MainDataModule.dsetGetICMReportMaster.ParamByName('Account').Value :=
      MainDataModule.dsetAccountAccount.Value;
    MainDataModule.dsetGetICMReportMaster.Active := true;

    dbGridGetICMReportMaster.EndUpdate;

    selectedSymbol := '';
    selectedSide := '';

    MainDataModule.dsetGetICMReportMaster.RecNo := ICMReportMasterRecNo;
    dbGridShow(TGrid.GetICMReportMaster);
  except
    on E: Exception do
      ShowMessage(E.ClassName + ' error raised, with message : ' + E.Message);
  end;
end;

// OnAfterLoad
procedure TframeRapor1.dbGridGetICMReportMasterAfterLoad(Sender: TUniDBGrid);
begin
  if (isCalculateCopyGroup) then
  begin
    isCalculateCopyGroup := false;
    GetSelectRecordDbGridByICMReportUserSymbolID
      (MainDataModule.dsetGetICMUserSymbolCopyGroupValue.Value, 10);
  end;
end;

// Select DBGrid Row and Get Selected Row Info
procedure TframeRapor1.GetSelectRecordDbGridByICMReportUserSymbolID
  (ICMReportUserSymbolIDs: string; setTime: Integer);
var
  I: Integer;
  currentRecNo: Integer;
  List: TStrings;
  _RecNo: Integer;
  JScript: string;
  rowInfo: string;
begin
  if NOT MainDataModule.dsetGetICMUserSymbolCopyGroupValue.IsNull then
  begin
    dbGridGetICMReportMaster.BeginUpdate;
    List := TStringList.Create;
    ICMReportUserSymbolIDToRecNos := FindICMReportUserSymbolIDToRec
      (ICMReportUserSymbolIDs);

    JScript := CONCAT('setTimeout(function(){ console.log("setTime"); },',
      setTime.ToString, ');');

    JScript := CONCAT(JScript, 'setTimeout(function(){ ',
      dbGridGetICMReportMaster.JSName,
      '.getSelectionModel().deselectAll()}, 50);');
    with MainDataModule.dsetGetICMReportMaster do
    begin
      ExtractStrings([','], [], PChar(ICMReportUserSymbolIDToRecNos), List);
      for I := 0 to List.count - 1 do
      begin
        _RecNo := StrToInt(List[I]);
        if (I = (List.count - 1)) then
        begin
          rowInfo := CONCAT(rowInfo, GetGridInfoWithRecNo(_RecNo));
        end
        else
        begin
          rowInfo := CONCAT(rowInfo, GetGridInfoWithRecNo(_RecNo), #13#10);
        end;
        if (_RecNo > 0) then
        begin
          _RecNo := _RecNo - 1;
        end;
        JScript := CONCAT(JScript, 'setTimeout(function(){ ',
          dbGridGetICMReportMaster.JSName, '.getSelectionModel().select(',
          dbGridGetICMReportMaster.JSName, '.getStore().data.indexOfKey(',
          IntToStr(_RecNo) + '), true)}, 50);');
      end;
      memoClipboard.Lines.Clear;
      memoClipboard.Lines.Add(rowInfo);

      UniSession.SendResponse(JScript);
      // UniSession.AddJS(JScript);
      FreeAndNil(List);
    end;
    dbGridGetICMReportMaster.EndUpdate;
  end;
end;

// Get Row Info
function TframeRapor1.GetGridInfoWithRecNo(RecordNo: Integer): string;
var
  size: Integer;
  Symbol: string;
  Side: Char;
  Quantity: string;
  Price: string;
  str: string;
  currentRecNo: Integer;
begin
  try
    if NOT MainDataModule.dsetGetICMReportMaster.IsEmpty then
    begin
      if (MainDataModule.dsetGetICMReportMaster.RecordCount > 0) then
      begin
        dbGridGetICMReportMaster.BeginUpdate;
        with MainDataModule.dsetGetICMReportMaster do
        begin
          currentRecNo := RecNo;
          RecNo := RecordNo;
          if (Trim(FindField('SideKey').AsString) = '1') then
          begin
            Side := '+';
          end
          else
          begin
            Side := '-';
          end;

          if (NOT FindField('Symbol').IsNull) then
            Symbol := FindField('Symbol').AsString;

          if (NOT FindField('QtyDiff').IsNull) then
            Quantity := FindField('QtyDiff').AsString;

          if (NOT FindField('AvgPxDiff').IsNull) then
            Price := FindField('AvgPxDiff').AsString;

          size := 0;
          if (Length(Symbol) > size) then
            size := Length(Symbol);
          if (Length(Quantity) > size) then
            size := Length(Quantity);
          if (Length(Price) > size) then
            size := Length(Price);
          size := size * 2;

          str := format(CONCAT('%s', SetSpace(size - Length(Symbol)), '%s',
            SetSpace(size - Length(Side)), '%s',
            SetSpace(size - Length(Quantity)), '%s'),
            [Symbol, Side, Quantity, Price]);
          str := str.Replace('.E', '');
          RecNo := currentRecNo;
        end;
        dbGridGetICMReportMaster.EndUpdate;
      end;
    end;
  finally
    Result := str;
  end;
end;

When I run with the above code the grid gets stuck in Loading mode!

what an I doing wrong?

Thank you for your help.
Best regards.

February 18, 2019

Hi,
Thanks for your help @Sherzod.

I can solve the UniDBGrid -> OnAfterLoad event by basing a condition for this example.
But there are other similar situations. How can I build the callback structure for such cases?

February 18, 2019

Hi,

Thank you for your help.

January 22, 2019

Hi All,

I use UniDateTimepicker Kind = tUniTime.
I want to change default content (09:00,09:05,:09:10 ..... 19:00)
But I don't find anywhere!
how do I solve my problem.

Than you.
Best Regards.

image.png.537ede4bff0562f99db264352c5cf638.png

January 20, 2019

http://unigui.com/doc/online_help/generate_a_self-signed_certifi.htm

I applied the steps in this link.

Do I have to do anything else?

January 19, 2019

no, How to install self-signed certificate? and what self-signed certificate ?

I have cert.pem, key.pem root.pem

I have no other certificates....

January 19, 2019

@Hayri ASLAN Arkadaşımız bu özelliği türeterek güzel bir örnek uygulama yapmıştır buradan erişebilirsiniz kendisine tekrardan teşekkür ederim.

@Farshad Mohajeri bey bu özelliği varsayılan olarak unigui eklerseniz çok sevinirim.

January 19, 2019

thank you so much @Hayri ASLAN

you are very good inheritance!

I want this feature to come by default in the future UniGui @Farshad Mohajeri.

January 19, 2019

Hi All;

OpenSSL 1.1.0j 20 Nov 2018
Delphi 10.2.3
Unigui v1.50.0.1480

image.png.eb3d336f847a2accb8f7a03569461e1d.png image.png.4929635c1c894f99e7e8cb9ad630c9e4.png image.png.4e859879099ce75ae596f81a6fa4bea8.png

program works but as shown in the middle picture "not safe" Why not?

January 17, 2019

Hello there,

I want to do line-based filtering in UniDBGrid. The following image shows an example made with Ext.Grid.

How can I do this in UniGui?

Thanks.

Best regards.

Ext.Grid Example: https://docs.sencha.com/extjs/6.0.0/classic/Ext.grid.filters.filter.List.html

January 16, 2019

Merhaba;

Girid'te Satır bazlı filitreleme yapmak istiyorum. aşağıda görseli mevcut aynı zamanda Ext.Grid örneği ne buradan erişebilirsiniz. bu işlemi UniGui'de nasıl yapabilirim. teşekkürler.

görsel için tıklayınız.

Sign In

UniterYazilim

Posts

Joined

Last visited

Content Type

Profiles

Forums

Events

Posts posted by UniterYazilim

TUniDBGrid sayfa geçişlerinde dip toplamlarını ayarlama

proje'yi dll yaptım arkaplan resmi

proje'yi dll yaptım arkaplan resmi

proje'yi dll yaptım arkaplan resmi

callback procedure!

callback procedure!

callback procedure!

callback procedure!

callback procedure!

callback procedure!

callback procedure!

Kind = tUniTime, Default Content!

Error SSL Demo

Error SSL Demo

Grid filters List

Grid filters List

Error SSL Demo

Grid filters List

Grid filters List

Browse

Activity