Delphi DX10 вывод текста на Canvas

[vohuanrok]

Собственно... Доброго Всем дня

Возникла необходимость вывести текст на канву в VCL, попробовал стандартно,-

TRectangle.Canvas.OutText('bla-bla',10,10);

не прокатило, Нету такого метода у Canvas!
вот и спрашивается - что делать?

Помогите, если не сложно.
Заранее - спасибо.

[TaLadno]

Form1.Canvas.TextOut('bla-bla',10,10);
Label147.Canvas.TextOut('bla-bla',10,10);
PaintBox18.Canvas.TextOut('bla-bla',10,10);

Ты сначала определись на чем рисуешь и есть ли у него вообще канва. Если есть канва, то жирным тебе выделил - выбирай любой из вариантов

TRectangle - шо за зверь такой, чет мну его не помнит? Самописное что-то?

OutText - ересь
TextOut - православно

[vohuanrok]

procedure TForm1.clickOnNotepad(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
if (Key = VK_RETURN) then
        begin
        with TRectangleNOTEPAD do
          begin
          Canvas.Font.Size:= 16;
          Canvas.Font.Family:= 'Courier New';
          
          end;

я же написал - VCL. Для мобильных приложений.

[vohuanrok]

Сообщение от TaLadno

Form1.Canvas.TextOut('bla-bla',10,10);
Label147.Canvas.TextOut('bla-bla',10,10);
PaintBox18.Canvas.TextOut('bla-bla',10,10);

Ты сначала определись на чем рисуешь и есть ли у него вообще канва. Если есть канва, то жирным тебе выделил - выбирай любой из вариантов

TRectangle - шо за зверь такой, чет мну его не помнит? Самописное что-то?

OutText - ересь
TextOut - православно

я - в FireMonkey

[Dvoishnik]

вы попробовали OutText правильно написать TextOut ? не помогло?

[vohuanrok]

не помогло...

[vohuanrok]

Сообщение от Dvoishnik

вы попробовали OutText правильно написать TextOut ? не помогло?

там такого метода нет вообще ...

[TaLadno]

Сообщение от vohuanrok

я же написал - VCL. Для мобильных приложений.

Семь раз прочитал, хз где ты это писал в первом топике, шо нада FMX и для мобильных

Юзай это Canvas.FillText

procedure TForm.Rectangle1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
const
  AText = 'bla-bla';
var
  ARectF: TRectF;
begin
  ARectF := RectF(20, 20, Rectangle1.Canvas.TextWidth(AText),
    Rectangle1.Canvas.TextHeight(AText));

  Rectangle1.Canvas.Font.Size := 72;
  Rectangle1.Canvas.Font.Family:= 'Courier New';

  Rectangle1.Canvas.FillText(ARectF, AText, false, 50, [], TTextAlign.taCenter,
    TTextAlign.taCenter);
end;

Будет тебе бла-бла-счастье
O_o.jpg

[vohuanrok]

Сообщение от TaLadno

Семь раз прочитал, хз где ты это писал в первом топике, шо нада FMX и для мобильных

Юзай это Canvas.FillText

procedure TForm.Rectangle1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
const
  AText = 'bla-bla';
var
  ARectF: TRectF;
begin
  ARectF := RectF(20, 20, Rectangle1.Canvas.TextWidth(AText),
    Rectangle1.Canvas.TextHeight(AText));

  Rectangle1.Canvas.Font.Size := 72;
  Rectangle1.Canvas.Font.Family:= 'Courier New';

  Rectangle1.Canvas.FillText(ARectF, AText, false, 50, [], TTextAlign.taCenter,
    TTextAlign.taCenter);
end;

Будет тебе бла-бла-счастье
Вложение 81583

Алилуйя !!!! ПОКЛОН ВАМ В ПОЛ !!!

Вот как у Вас так получается?
Я часа 2 сидел в нете, искал... Вы за минут 10...

Огромное спасибо

[TaLadno]

Сообщение от vohuanrok

Вот как у Вас так получается?
Я часа 2 сидел в нете, искал... Вы за минут 10...

Та будь ласка, на здоровье.

И ни в каких интернетах я ниче не искал.
Дело было так:
1.
1.jpg
2.
2.jpg
3.
3.jpg

Всё, больше ничего не надо, чтобы набросать такой примерчик. Ну кроме твоих уточнений, которые подсказали "что же и где же" ты хочешь