Jump to content

SayeyeZohor

uniGUI Subscriber
 View Profile  See their activity

  • Posts

    215

  • Joined

  • Last visited

 Content Type 

Posts posted by SayeyeZohor

    Do not load html + css + js + json in urlframe

    in General

    Posted

    On 11/20/2019 at 6:48 AM, robinhodemorais said:

    Hello I need another help from you ...
    I created a service queue in html, css, js and json to stay dynamic, my idea is after getting it all right to create a component, but I'm not able to load this 4 companions ....
    Attached is a demo, the files are in the folder and also the link of this process working in html

    https://codepen.io/robinhodemorais/pen/qBBgPRe

    FilaAtendimento.rar

     

    uniCombobox event on uniDbGrid

    in General

    Posted

    On 9/7/2015 at 5:53 PM, jeans_larghi said:

    ok thanks.

    If there is news on the topic please contact me. 

    FUNCTION  TUniHesabresi_Forms.GetIndexFromValueOfCombobox(UCombo: TUniComboBox; Value: string): Integer;
var
  I: Integer;
BEGIN
  Result := -1;
  FOR I := 0 TO UCombo.Items.Count - 1 DO
  BEGIN
    IF Trim(UCombo.Items[I]) = Trim(Value) THEN
    BEGIN          
      Result := I;
      Break;
    END;
  END;
END;


procedure TUniHesabresi_Forms.UQ_ExcelPropertiesBeforePost(DataSet: TDataSet);
begin
  UQ_ExcelPropertiesExcelSheetIndex.AsInteger := GetIndexFromValueOfCombobox(UCombo_ExcelSheetName, UQ_ExcelPropertiesExcelSheetName.AsString);
end;

     

    how check internet connection unigui

    in General

    Posted

    On 12/12/2019 at 4:36 PM, Ron said:

    The only "reliable" way is to try get some data from a server of your choice: 

    
function TMainF.isInternetConnection: Boolean;
begin
  try
    IdHTTP.Get('http://www.svtech.cz');
  except
    on E: Exception do begin
      if not (E is EIdHTTPProtocolException) then begin
        Result := False;
        Exit;
      end;
    end;
  end;
  Result := True;
end;

     

    tnx, but sometimes not working ...

    how check internet connection unigui

    in General

    Posted

    4 hours ago, Ron said:

    The only "reliable" way is to try get some data from a server of your choice: 

    
function TMainF.isInternetConnection: Boolean;
begin
  try
    IdHTTP.Get('http://www.svtech.cz');
  except
    on E: Exception do begin
      if not (E is EIdHTTPProtocolException) then begin
        Result := False;
        Exit;
      end;
    end;
  end;
  Result := True;
end;

     

    tnx

    @Sherzod

    how to open url to another tab?

    in General

    Posted

    36 minutes ago, Sherzod said:

    What do you mean? 

    
procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniButton1.JSInterface.JSAddListener('click', 'function(sender, e, eOpts){window.open("https://www.digikala.com/", "_blank")}');
end;

    ?

    how open url with another type browser like internet explorer, mozila, chrome, ...?

    how to open url to another tab?

    in General

    Posted

    16 minutes ago, SayeyeZohor said: 
    
function cellclick(sender, td, cellIndex, record, tr, rowIndex, e, eOpts)
{
   window.open("https://www.google.com/", "_blank");
}

      

    procedure TUniF_WebSites.UniDBGrid1CellClick(Column: TUniDBGridColumn);
begin
  IF Column.FieldName = 'LinkAddress' THEN
  BEGIN
    UniSession.AddJS('window.open('+QuotedStr(UQ_WebSitesLinkAddress.AsWideString)+', ''_blank'');'); // to open a new window/tab
  end;
end;

     

×
×
  • Create New...