AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Tabulator in JvRichedit in Millimetern

Ein Thema von BrunoT · begonnen am 30. Jan 2006 · letzter Beitrag vom 30. Jan 2006
Antwort Antwort
Benutzerbild von BrunoT
BrunoT

Registriert seit: 23. Jan 2003
Ort: Sandbeiendorf
360 Beiträge
 
Delphi 8 Professional
 
#1

Tabulator in JvRichedit in Millimetern

  Alt 30. Jan 2006, 14:01
Hi DPl'er,

ich möchte gern die Tabulatoren im JvRichedit im Millimetern angeben. Bisher habe ich das so versucht:

Delphi-Quellcode:
var
  dc: HDC;
  MMproPixelX, MMproPixely : single;
  xofs, yofs: Integer;
begin
  dc := GetDC(0);
  MMproPixelX := 25.4 / GetdeviceCaps(dc, LOGPIXELSX);
  MMproPixelY := 25.4 / GetdeviceCaps(dc, LOGPIXELSY);
  JvRe.Lines.Add('');
  jvRe.Paragraph.TabCount := 3;
  jvRe.Paragraph.Tab[0] := Round(1 / MMproPixelX * 10); //10mm
  jvRe.Paragraph.Tab[1] := Round(1 / MMproPixelX * 50); //50mm
  jvRe.Paragraph.Tab[2] := Round(1 / MMproPixelX * 100); //100mm
  JvRe.Lines.Add(^I + IntToStr(jvRe.Paragraph.Tab[0]) + ^I +
    IntToStr(jvRe.Paragraph.Tab[1]) + ^I + IntToStr(jvRe.Paragraph.Tab[2]));
Die Tabulator- Abstände passen aber nicht. Was mache ich falsch?
Miniaturansicht angehängter Grafiken
tabulator_165.jpg  
Holger

EDV- Ende der Vernunft
Meine Calcedit-Kompo
  Mit Zitat antworten Zitat
Avax2k

Registriert seit: 6. Okt 2005
186 Beiträge
 
Delphi 2005 Professional
 
#2

Re: Tabulator in JvRichedit in Millimetern

  Alt 30. Jan 2006, 14:17
ersetze es doch durch die normale tabulatorfunktion:

Delphi-Quellcode:
var
  dc: HDC;
  MMproPixelX, MMproPixely : single;
  xofs, yofs: Integer;
begin
  dc := GetDC(0);
  MMproPixelX := 25.4 / GetdeviceCaps(dc, LOGPIXELSX);
  MMproPixelY := 25.4 / GetdeviceCaps(dc, LOGPIXELSY);
// JvRe.Lines.Add('');
// jvRe.Paragraph.TabCount := 3;
// jvRe.Paragraph.Tab[0] := Round(1 / MMproPixelX * 10); //10mm
// jvRe.Paragraph.Tab[1] := Round(1 / MMproPixelX * 50); //50mm
// jvRe.Paragraph.Tab[2] := Round(1 / MMproPixelX * 100); //100mm
    JvRe.Lines.Add(^I + chr(vk_tab) + ^I + chr(vk_tab) + ^I + chr(vk_tab));
sollte immer gehen und wenn der Abstand größer sein soll einfach:
chr(vk_tab)+chr(vk_tab) dann hast du den eben doppelt und immer gleich
  Mit Zitat antworten Zitat
Benutzerbild von BrunoT
BrunoT

Registriert seit: 23. Jan 2003
Ort: Sandbeiendorf
360 Beiträge
 
Delphi 8 Professional
 
#3

Re: Tabulator in JvRichedit in Millimetern

  Alt 30. Jan 2006, 14:24
Hi Avax2k,

das ist aber nicht das was ich wollte, ich möchte schon angeben können, wo die Tabulatoren sind. Das sollte aber auflösungsunabhängig sein.

mfg
Holger

EDV- Ende der Vernunft
Meine Calcedit-Kompo
  Mit Zitat antworten Zitat
Benutzerbild von BrunoT
BrunoT

Registriert seit: 23. Jan 2003
Ort: Sandbeiendorf
360 Beiträge
 
Delphi 8 Professional
 
#4

Re: Tabulator in JvRichedit in Millimetern

  Alt 30. Jan 2006, 16:21
Hi,

Ich habe in dem Beispiel für JvRichedit eine Umrechnungszahl gefunden, mit der es jetzt klappt:

Delphi-Quellcode:
  jvRe.Paragraph.Tab[0] := Round(2.83464567*10);
  jvRe.Paragraph.Tab[1] := Round(2.83464567*50);
  jvRe.Paragraph.Tab[2] := Round(2.83464567*100);
was dies für eine Zahl ist, kann ich allerdings nicht sagen. Ist das auch auflösungsunabhänig?

vieleicht kann das jemand beantworten.

mfg

BrunoT
Holger

EDV- Ende der Vernunft
Meine Calcedit-Kompo
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz