Jump to content

Good old Time: DBCtrlGrid of Delphi3 - i seach a similar component


erich.wanker

Recommended Posts

Hello folks..

 

in the good old times of Delphi (Delphi3) where was a component called "DBCtrlgrid"

dbcontrolgrid.jpg.88b97f5266cdee4e85f56c46eb525ce0.jpg

 

Short description:   

it was like a Panel, where you can place DBImages, DBText, DBRadiobuttons, DBChceclboxes and so on

.. you had to define just one panel ... and it was duplicated for every record in a tabel ..

IT WAS WONDERFULL :-)

is where a similar component out where?

thanX

Erich

  • Like 1
Link to comment
Share on other sites

  • 2 months later...

Hi folks,

i made it with a workarround ;-)

i have a DB-Field called "html_text" ... and a firebird trigger who writes the html code ....

CREATE TRIGGER UpdateHTML_Text 
FOR <Tabelle>
BEFORE INSERT OR UPDATE
AS
BEGIN
  new.HTML_TEXT := '<p style="margin: 0px;font-size: 12px">' || new.EINTRAG || '<br></p><p style="margin: 0px;font-size: 10px">'  || new.STRASSE || '<br>' || new.PLZ || '-' + new.ORT || '</p>';
END

 

And this is a cell of a uniDbGrid:

cell_of_dbgrid.jpg.5c900e472f905ce63068084b34fd5317.jpg

 

HTH

Erich

 

Link to comment
Share on other sites

Hello Erich,

Why you need to "HTML_TEXT" ? Why you increase db size? I mean why save for each row style text?

If I were you, I use Tdatset's afterupdate, afterinsert events for this htmltext field. Add calculated field, and add what you want this html text. Or use grid's events.

Ofcource just idea :)

Link to comment
Share on other sites

@freeman35

thanx for tip :-)

 

About your request "dodgeBlue..." in forum/featurerequest... input things...

FOR A Fast TEST

Please put a UniHTMLFrame1 on your Mainform 

and TMainform.onCreate copy:

 

UniHTMLFrame1.HTML.Clear;

  UniHTMLFrame1.HTML.Append('<style>  ');

  UniHTMLFrame1.HTML.Append('.x-form-field:not(.x-form-checkbox) {     ');
  UniHTMLFrame1.HTML.Append('    font: normal 12px tahoma, arial, helvetica, sans-serif; ');
  // UniHTMLFrame1.HTML.Append('    background: rgb(189, 217, 187) !important;  ');
  UniHTMLFrame1.HTML.Append('    border-left-style: none;    ');
  UniHTMLFrame1.HTML.Append('    border-right-style: none;  ');
  UniHTMLFrame1.HTML.Append('    border-top-style: none;  ');
  UniHTMLFrame1.HTML.Append('    border-bottom: 1px solid #bdbdbd; '); // 1px dotted #568a59;  '); // 2px dashed #71b071; ');
  // UniHTMLFrame1.HTML.Append('    letter-spacing: 1px;    ');
  UniHTMLFrame1.HTML.Append('    font-family: "Open Sans";  ');
  UniHTMLFrame1.HTML.Append('}         ');

  UniHTMLFrame1.HTML.Append('.x-form-field:not(.x-form-checkbox):hover { ');
  UniHTMLFrame1.HTML.Append('    background: rgb(169, 204, 167) !important;   ');
  UniHTMLFrame1.HTML.Append('    color: black !important;   ');
  UniHTMLFrame1.HTML.Append('}   ');

  UniHTMLFrame1.HTML.Append('</style>');

 

and see what happends :-)

 

 

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...