Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
10. Mai 2006
Nimm lieber die Konstante, so wie ich es dir gezeigt habe. Und denke daran, dass das Label-Layout angepasst werden muss, wenn du die Label-Abmessungen veränderst.
const
ptArtikel: TPoint = (X: 0; Y: 0); // Werte für DIN A4
ptFarbe: TPoint = (X: 150; Y: 0);
ptColumn2: TPoint = (X: 400; Y: 0);
ptOrder: TPoint = (X: 0; Y: 50);
ptCode: TPoint = (X: 125; Y: 32);
ptColumn0:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
10. Mai 2006
Hallo Tom,
die Zahl der Labels, die nebeneinander ausgegeben werden sollen, kannst du über eine Konstante steuern:
function LabelToPage(pt: Tpoint; index: Integer): TPoint;
const
PageLeft = 20;
PageTop = 30;
LabelWidth = 600; // Original-Label-Maße
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
8. Mai 2006
Vielleicht wählst du den Zeitpunkt zum Initialisieren des Grid falsch. Auf Farbe.Text kannst du wohl erst zugreifen, wenn die zugehörige Tabelle auch geöffnet ist.
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
8. Mai 2006
Sorry - da sind noch zwei Fehler in meinem Code-Beispiel, die ich durch Copy und Paste erzeugt habe:
with LabelToPage(ptOrder, iLabel) do
TextOut(X, Y, 'N.P.: '+order.text);
with LabelToPage(ptCode, iLabel) do
pdfcodedrucken(X, Y, Order.Text, False)};
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
8. Mai 2006
Wie ungeschickt von mir - ich habe bei einem Syntax-Test TEdit-Komponenten als lokale Variablen vereinbart, die natürlich wieder entfernt werden müssen. Und auch die lokale Variable pdf kann entfernt werden.
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
7. Mai 2006
Hallo,
wenn du deinen Code besser organisierst, dann entkommst du vielleicht dem maintenance blues:
function LabelToPage(pt: Tpoint; index: Integer): TPoint;
const
PageLeft = 20;
PageTop = 40;
LabelWidth = 600;