Page 1 of 1

In printings rveTable-lines too thick (dominant).

Posted: Thu Nov 17, 2005 2:59 pm
by j&b
Hello,

If I PRINT rveTables with (rveTable.BorderWidth:=)0 and (rveTable.CellBorderWidth:=)1 the borders-lines too thick (dominant).

Is there a possibility to get thinner lines ? (I have a LaserJet5L - but I think it's not a printer problem because I have printed tables by printers and canvas.)

The best result I get with a grey color (but then you can see all dots).

For the print it is very, very important that the rveTable-lines not so dominant.


Best regards,

Jürgen


By the way I have read old questions to that problem. In the correspondence I can't see if the problem was solved.

I have tried all (the most) values for

table.BorderWidth(:= 0); table.BorderVSpacing(:= 0); table.BorderHSpacing(:= 0); table.CellBorderWidth(:= 1); table.CellPadding(:= 0); table.CellHSpacing(:= -1); table.CellVSpacing(:= -1);

Posted: Thu Nov 17, 2005 7:01 pm
by Sergey Tkachenko
First, is this problems is a result of borders overlapping or not? Are line widths the same if cell spacings are positive values (and borders do not overlap)

In printings rveTable-lines too thick (dominant).

Posted: Fri Nov 18, 2005 6:09 am
by j&b
Hello,

If I have created a rveTable. Then I have tried many values to find the correct.

These are the values of my last try:
Please try it also with rveTable.CellBorderColor:=10197915; //light grey
It's the best result on screen, but in the printing you can see all dots

procedure TForm1.Button2Click(Sender: TObject);
begin
if (not memo.CanChange) or (not memo.GetCurrentItemEx(TRVTableItemInfo, rve, TCustomRVItemInfo(rveTable))) then begin
ShowMessage('Tabelle hat nicht den Focus.');
exit;
end;

rvetable.BorderWidth := 0;
rvetable.BorderVSpacing := 0;
rvetable.BorderHSpacing := 0;

rvetable.CellBorderWidth := 1;
rvetable.CellVSpacing := -1;
rvetable.CellHSpacing := -1;
rvetable.CellPadding := -1;

//rveTable.CellBorderColor:=10197915; //light grey

memo.Change; //this line seems not to be nessessary - correct ?
if table1.state in [dsEdit, dsInsert] then table1.post;
end;