Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by semo,
15. Nov 2004
so, habs jetzt gefunden und um allen Interessierten den Code zur Verfügung zu stellen poste ich diesen mal gleich mit:
procedure TMainForm.DruckenClick(Sender: TObject);
// Pixel to Millimeter
function PixelToMM(value: Double; dpi: Integer): Double;
begin
Result := (value * 25.4) / dpi; // 1 Inch = 25,4 mm
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by semo,
12. Nov 2004
mit gettextMetric kann ich doch nur die aktuellen Eigenschaften des Printer.Canvas auslesen... ich muss die Font.Eigenschaften des Printer.Canvas ja aber irgendwie setzen?! Also die Font-Eigenschaften die ich ja nur in Pixeln vorhanden habe in MilliMeter umwandeln und auf den Printer.Canvas anwenden....
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by semo,
11. Nov 2004
Also: ich habe folgendes Problem: ich stelle in meinem Programm ein paar bitmaps zusammen, die Schilder darstellen welche später von einer Gravurmaschine graviert werden sollen. nun wollte ich die Schilder einzeln auf den Canvas des Druckers ausgeben, die Bilder waren aber verzerrt.. nun ja... dachte ich mir und malte nun die Bestandteile der Schilder alle einzeln auf den Druckercanvas
hier...