Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Bummi,
14. Sep 2012
Du musst vor dem Zeichnen die Transformation setzen
Procedure RotText(left:Boolean;C:TCanvas;r:Trect;Const s:String);
var
tr:TRect;
ts:String;
begin
ts := s;
if Left then SetCanvasZoomAndRotation(c,1,-90,r.Left,r.Bottom)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Bummi,
14. Sep 2012
Du kannst jedes Canvas drehen,zoomen,verschieben über SetWorldTransform, mit etwas Rechenaufwand kannst Du die Parameter entsprechend festlegen und den Text beliebig ausgeben.
Procedure ResetCanvas(ACanvas:TCanvas);
begin
SetCanvasZoomAndRotation(ACanvas , 1, 0, 0,0);
end;
Procedure SetCanvasZoomAndRotation(ACanvas:TCanvas;Zoom:Double;Angle:Double;CenterpointX,CenterpointY:Double);...