-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
10. Mai 2006
du hast Recht, zwischenzeitlich habe ich das korrigiert, es ist jetzt wirklich toll mit der Konstanten, warst mir so ein grosse hilfe, danke nochmals
werde jetzt DIN A4 label-Papier kaufen, muss vermutlich dann alles nochmals anpassen
der Code sieht jetzt so aus:
function LabelToPage(pt: Tpoint; index: Integer): TPoint;
const
PageLeft = 20;
PageTop = 20;
LabelWidth = 400; //...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
10. Mai 2006
bevor du geantwortet hast, habe ich selbst noch probiert und es so gemacht, dabei auch die Labelbreit geändert, passt jetzt wunderbar: (einfach mod und div in 3 geändert)
function LabelToPage(pt: Tpoint; index: Integer): TPoint;
const
PageLeft = 20; //Orig 20
PageTop = 30;
LabelWidth = 400; //Original-Label-Masse 600 - 120
LabelHeight = 120;
begin
Result := Point(
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
10. Mai 2006
Hallo Marabu, du hast mir ja so sehr geholfen beim Ausdruck mit den labels, der Code sieht jetzt so aus wie folgt.
wenn ich jetzt 3 labels nebeneinander auf der DIN A4-Seite möchte, was muss ich in der Funktion ändern (ausser den Positionen der einzelnen Angaben)
function LabelToPage(pt: Tpoint; index: Integer): TPoint;
const
PageLeft = 20;
PageTop = 30;
LabelWidth = 600; ...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
8. Mai 2006
ich denke nicht, denn ich führe das query zum aufruf der daten schon in der hauptform aus, beim auswählen des menupunktes, der die form lote aufruft...
das heisst, die daten werden schon angezeigt, wen die form lote offen ist, aber eben nur in der dbedit.
hast du eine Idee, marabu, an was es sonst noch liegen könnte, dass im grid der Inhalt von farbe.text nicht erscheint?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
8. Mai 2006
super, jetzt klappt alles sehr gut, hast mir wirklich sehr geholfen.
ich habe jetzt noch im string eine 4. spalte eingefügt und wollte dort automatisch beim laden den Inhalt von meinem dbedit holen, geht das nicht?
habe es so versucht:
Stringgrid1.Cells:='Peç./Lo.';
Stringgrid1.Cells:='Tam.';
Stringgrid1.Cells:='Cõr';
Stringgrid1.Cells:='N°.Lote';
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
8. Mai 2006
ok, habe die variablen entfernt, sieht jetzt noch so aus:
var
iRow, iLabel: Integer;
allerdings habe ich nach wie vor das Problem, dass die Order (order.text) nur beim ersten Label erscheint...??
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
8. Mai 2006
bin jetzt selbst einen Schritt weiter gekommen, habe vor artikel, farbe usw. lote gesetzt, jetzt kommen die Daten, bis auf lote.order.text kommt nur beim ersten label dann nicht mehr, siehe Bild arbeitskarten-neu1.jpg
musste auch die Position des Barcodes anpassen, habe ich das richtig gemacht?
der Code sieht jetzt so aus:
const
ptArtikel: TPoint = (X: 0; Y: 0);
ptFarbe: TPoint = (X:...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
8. Mai 2006
marabu, ich habe inzwischen keine fixe Spalte mehr und den Code leicht abgeändert, jetzt druckt es nur die Labels aus, wo in Spalte 1 eine Zahl steht, so wie ich es will:
with StringGrid1, printpdf1 do
for iRow := 0 to 7 do
if Trim(Cells) <> '' then
//if Trim(Cells) <> '' then
begin
with LabelToPage(ptArtikel, iLabel) do
TextOut(X, Y, 'Artigo: ' +...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
8. Mai 2006
hier ein bild wie es mit dem alten Code aussah
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
8. Mai 2006
Hallo marabu!
zunächst einmal ein ganz grosses Dankeschön für deine überaus grosse Mühe, die du für mich gemacht hast.
bin ganz baff.
Ich bin aber noch ein ziemlicher Laie in Delphi, will mich aber immer weiterbilden. Dein Code sieht natürlich professionell aus, muss mich aber erst darin zurechtfinden.
Habe mal kompiliert und Folgendes festgestellt:
Die Wert artikel.text, farbe.text,...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
7. Mai 2006
Ich benutze ein externes pdf-Tool zum Ausdrucken von Labels.
Dabei kommt ein Teil der Infos aus einem Stringgrid, der andere Teil von Datenbank-Tabellen.
Ich möchte nun nur die Labels ausdrucken, wo ich im Stringgrid in der 1. Spalte (nicht die fixe Spalte 0) etwas eingetragen habe.
Der Stringgrid hat eine feste Zeile und eine feste Spalte.
Hat jemand eine Idee?
Hier ist der Code: