Jump to content

Search the Community

Showing results for tags 'tfgcanvas'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Clients
    • Download Trial
    • Download Release
    • News
    • Questions of future users
    • Voitng for new features
    • FGX Native projects
    • Feedbacks
  • Private forum. For users with active subscription
    • Animations
    • Alignment (Flexbox)
    • Components
    • Assets
    • Database
    • Graphics
    • Demos
    • Logging
    • Systems permissions
    • Dialogs
    • Notifications
    • Virtual keyboard
    • Gestures
    • Application
    • Forms
    • Platform Questions
    • Localization (L11N)
    • Publishing
    • IDE Designer
    • Emulator
    • Debugging
    • Component development
    • Additional files
    • iOS (Alpha testing)
    • Other questions
  • Bug Reports
    • Opened
    • Closed
  • Organization of the work of this forum
    • Rules

Calendars

  • Community Calendar

Product Groups

  • Subscription

Blogs

  • Product Updates
  • Events
  • Guides

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


About Me

Found 5 results

  1. В продолжение темы. Пишу текст на фото. Но не срабатывает перенос строки. Что-то не так делаю? var Bitmap := TfgBitmap.Create; Bitmap.LoadFromFile(filename); Bitmap.Canvas.BeginPaint; try Bitmap.Canvas.Font.Size:= 50; Bitmap.Canvas.Fill.Color := TAlphaColorRec.Red; Bitmap.Canvas.Fill.Kind := TfgBrushKind.Solid; Bitmap.Canvas.FillText(Bitmap.Bounds, DateTimeToStr(now) + sLineBreak + DateTimeToStr(now) + sLineBreak + DateTimeToStr(now) ,True, TfgHorizontalAlignment.Right, TfgVerticalAlignment.Bottom); finally Bitmap.SaveToFile(filename);
  2. Всем привет! Позвольте и эту тему апнуть Не могу поверх фото текст наложить. Пробую так. Как это необходимо делать верно? AResult.Bitmap - приходит из CameraCapturePhotoReady(Sender: TObject; const AResult: TfgCameraCaptureResult); filename := filename + strDate + '.png'; var B := AResult.Bitmap; // B.Canvas.BeginPaint; B.Canvas.Font.Size:= 50; B.Canvas.Fill.Color := TAlphaColorRec.Red; B.Canvas.Fill.Kind := TfgBrushKind.Solid; // var mRect :=B.LogicalBounds; // mRect.Width := mRect.Width - mRect.Width * 0.05; // mRect.Height := mRect.H
  3. Здравствуйте, обнаружил неприятную особенность отрисовки текста. Охватило меня желание нарисовать текст в круге. procedure TFormMain.fgButton1Tap(Sender: TObject); var B:TfgBitmap; Sz:Integer; begin B:=TfgBitmap.Create; Sz:=128; B.Size:=Tsize.Create(Sz,Sz); B.Canvas.Fill.Color:=TAlphaColorRec.Green; B.Canvas.FillCircle(B.Size.cx/2,B.Size.cy/2,B.Size.cx/2); B.Canvas.Font.Size:=Sz/2; B.Canvas.Fill.Color := TAlphaColorRec.Red; B.Canvas.Fill.Kind := TfgBrushKind.Solid; B.Canvas.FillText(B.Bounds,'100',False); TfgAssetsManager.Current.AddBitmap('test',B); fgImage1.ImageName:='test'; en
  4. xx_1 := 0; yy_1 := 0; xx := 0; i := 0; APoints:=nil; while xx < pCanvas.Width do begin xx := i * (1 / 100); yy := (pCanvas.Height / 2) - 100 * sin(2 * pi * 0.05 * i / 100); pCanvas.DrawLine(pointf(xx_1, yy_1), pointf(xx, yy)); SetLength(APoints, Length(APoints) + 1); APoints[Length(APoints) - 1] := pointf(xx, yy - 50); xx_1 := xx; yy_1 := yy; inc(i); end; if Length(APoints) > 0 then pCanvas.DrawLines(APoints); рисуется функция двумя способами: через DrawLine - нормально через DrawLines
  5. Здравствуйте. Имеем код: procedure TFormMain.fgPaintBox1Paint(Sender: TObject; const ACanvas: TfgCanvas); var aBm: TFgBitMap; begin try aBm := TFgBitMap.Create; aBm.Size := Tsize.Create(round(fgPaintBox1.Width), round(fgPaintBox1.Height)); aBm.Canvas.FillColor(TAlphaColorRec.Gray); aBm.Canvas.Stroke.Kind := TfgBrushKind.Solid; aBm.Canvas.Stroke.Color := TAlphaColorRec.Red; aBm.Canvas.Fill.Kind := TfgBrushKind.Solid; aBm.Canvas.Fill.Color := TAlphaColorRec.Yellow; aBm.Canvas.DrawCircle(aBm.Width / 2, aBm.Height / 2, aBm.Width / 2); ACanvas.
×
×
  • Create New...