Добрый день. Хочу сделать отрисовку по команде на панели. Почему-то

рисуется только при втором вызове. С чем может быть связано, не подскажете?

procedure TForm1.FormDblClick(Sender: TObject);
var
ww, hh: Integer;
begin
Panel1.Canvas.Font.Size:=14;
Panel1.Font.Color:=clBlack;
Panel1.Brush.Style:=bsClear;

ww := Panel1.Canvas.TextWidth('Hello World');
hh := Panel1.Canvas.TextHeight('Hello World');
//// Or...
//Canvas.GetTextSize('Hello World', ww, hh);

Panel1.Canvas.Rectangle(5, 5, 5+ww, 5+hh);
Panel1.Canvas.TextOut(10,10,'Hello World');
end;

FillRect?

отрисовка должна происходить в методе Paint (событие OnPaint), а не в любом рандомном месте тк у панели отсутствует событие OnPaint, то проще всего положить на панель TPaintBox и рисовать в TPaintBox.OnPaint ну либо писать наследника панели

Для текста нет такого метода

По-другому никак?

зачем по-другому? что мешает сделать так, как задумано?

Метод канваса заливает цветом кисти прямоугольник http://docwiki.embarcadero.com/Libraries/Alexandria/en/Vcl.Graphics.TCanvas.FillRect

а что тебя смущает в предложенном варианте? TPaintBox - это компонент не имеющий физического хендла (не окно) и отрисовка будет произведена как раз на родителе (TPanel)

Ну, если так задумано...

Что еще один компонент нужно добавлять

https://ofim.oscsbras.ru/~eugene/docums/Delphi/d6/Glava%2018/Index63.htm

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

Потому что отрисовка должна происходить каждый раз, а не один раз, когда мы кликнул мышкой

О, вот оно как

твоя отрисовка нигде не сохраняется и не запоминается

можешь положить Image с картинкой и рисовать на её канвасе в любое время, будет запоминаться

Понял, спасибо. Тогда имеет смысл поместить PaintBox на панель

Можно так, а можно рисовать в битмап, который уже будет выступать в качестве буффера

Понял. Мне будет проще PaintBox в панель засунуть

Тут речь не о памяти, а о быстродействии

Рисовать надо исключительно в событии OnPaint, не знаю есть оно у панели в лазарусе или нет, но у PaintBox точно есть - он для этого и создан. OnPaint срабатывает когда ОС сама решит что пора перерисовать элемент управления. Или когда сам дернешь Invalidate/Repaint(эт в крайних случаях) у него.