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);
In printings rveTable-lines too thick (dominant).
-
- Site Admin
- Posts: 17569
- Joined: Sat Aug 27, 2005 10:28 am
- Contact:
In printings rveTable-lines too thick (dominant).
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;
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;