Jump to content
uniGUI Discussion Forums

CoderU

Members
  • Content Count

    76
  • Joined

  • Last visited

  • Days Won

    2

CoderU last won the day on March 11

CoderU had the most liked content!

Community Reputation

7 Neutral

About CoderU

  • Rank
    Member

Recent Profile Visitors

319 profile views
  1. @Sherzod Any solution convert this to UNIGUI or similar search.. I'm using delayed search + database query like select * from table where acol like :psearch I need highlight searchphrase
  2. Is it possible convert to unidbgrid? or have another solution..
  3. how convert this code to unigui procedure HighlightCellText(AGrid :TDbGrid; const ARect : TRect; AColumn : TColumn; FilterText : string; AState:TGridDrawState ; BkColor : TColor = clYellow; SelectedBkColor : TColor = clGray); var HlRect : TRect; Position : Integer; HlText, FilterColName,DisplayText: string; i, offset : Integer; begin DisplayText := Acolumn.Field.AsString; Position := Pos(AnsiLowerCase(FilterText), AnsiLowerCase(DisplayText){ AnsiLowerCase(AColumn.DisplayText)}); if Position > 0 then begin // set highlight area case AColumn.Alignment of taLeftJustify: HlRect.Left := ARect.Left + AGrid.Canvas.TextWidth(Copy(DisplayText, 1, Position-1)) + 1; taRightJustify: begin Offset := AGrid.Canvas.TextWidth(Copy(DisplayText, 1,1)) - 1; HlRect.Left := (ARect.Right - AGrid.Canvas.TextWidth(DisplayText)-offset) + AGrid.Canvas.TextWidth(Copy(DisplayText, 1, Position-1)); end; taCenter: begin Offset := ((ARect.Right - ARect.Left) div 2) - (AGrid.Canvas.TextWidth(DisplayText) div 2) - (AGrid.Canvas.TextWidth(Copy(DisplayText, 1,1)) - 2); HlRect.Left := (ARect.Right - AGrid.Canvas.TextWidth(DisplayText)- offset) + AGrid.Canvas.TextWidth(Copy(DisplayText, 1, Position-1)); end; end; HlRect.Top := ARect.Top + 1; HlRect.Right := HlRect.Left +AGrid.Canvas.TextWidth(Copy(DisplayText, Position, Length(FilterText))) + 1 ; HlRect.Bottom := ARect.Bottom - 1; //check for limit of the cell if HlRect.Right > ARect.Right then HlRect.Right := ARect.Right; // setup the color and draw the rectangle in a width of the matching text if gdSelected in AState then AGrid.Canvas.Brush.Color := SelectedBkColor else AGrid.Canvas.Brush.Color := BkColor; AGrid.Canvas.FillRect(HlRect); HlText := Copy(DisplayText,Position, Length(FilterText)); AGrid.Canvas.TextRect(HlRect,HlRect.Left + 1,HlRect.Top + 1, HlText); end; end; Take from stackoverflow https://stackoverflow.com/questions/38873729/highlight-specific-text-in-dbgrid
  4. procedure TMainForm.qrySaleListRECEIPNMGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin Text := '<span style="line-height: 0.5; text-align: left"><sup>' + Sender.AsString + '</sup></span><br><span style="line-height: 2.0;color : #4183C4;text-align: left">' + Sender.AsString + '</span>'; end;
  5. CoderU

    dbgrid LiveSearchGridPanel

    Can you share code?
  6. Hi, all Is it possible highlight unidbgrid search result like mark.js? https://datatables.net/blog/2017-01-19 or https://rstudio.github.io/DT/006-highlight.html or sencha live search https://examples.sencha.com/extjs/6.7.0/examples/classic/grid/live-search-grid.html Thank's advance
  7. Do you find solution?
  8. CoderU

    ISAPI dll - Windows and Linux?

    You can use with WINE on Linux
  9. CoderU

    sendfile .csv become .txt with Chrome

    UNIGUI online desktop online demo Raise Error PivotGrid PivotGrid2 please check it
  10. CoderU

    Print UniHTMLFrame-Content?

    can you sample source?
  11. CoderU

    UniGUI Theme Pack Update Package (-x30)

    GerhardV Thanks for themepack update... But in feature pls add support pivotgrid you theme not supported
  12. Попробуйте showmessageN вместо showmessage
  13. CoderU

    How to change the default project create path?

    https://stackoverflow.com/questions/35958482/delphi-seattle-changing-ide-default-folder-settings
  14. CoderU

    Client layout ordering question

    Try set form-aligment to clientaligment
×