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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...