Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by skoschke,
19. Mär 2021
...
MyRect: TRectF;
...
MyRect := TRectF.Create(0, 0, 200, 200);
Image1.Bitmap := TBitmap.create;
Image1.Bitmap.Width := trunc(Image1.Width);
Image1.Bitmap.Height := trunc(Image1.Height);
...
Image1.Bitmap.Canvas.BeginScene;
Image1.Bitmap.Canvas.DrawEllipse(MyRect, 40);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by skoschke,
19. Mär 2021
Und hier nun Original Embarcadero:
procedure TForm2.Button2Click(Sender: TObject);
var
MyRect: TRectF;
begin
// sets the circumscribed rectangle of the ellipse
MyRect := TRectF.Create(50, 40, 200, 270);
// draws the ellipse on the canvas
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by skoschke,
19. Mär 2021
Hallo,
ich habe mal in die Richtung umgebaut:
c := ExpanderDokumente.Canvas;
if c.BeginScene then
begin
py := 30; // oberste zeichenposition
br := ExpanderDokumente.Width - 10;
c.Font.Family := 'Arial';
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by skoschke,
18. Mär 2021
Danke, den Ansatz werde ich mal ausprobieren
Ciao
Stefan
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by skoschke,
18. Mär 2021
Hallo,
ich belege per Code einen Expander mit Controls und male auch darauf
with ExpanderDokumente.Canvas do
begin
BeginScene();
py := 30;
br := ExpanderDokumente.Width - 10;
Font.Family := 'Arial';