Перейти к содержанию
Fire Monkey от А до Я
  • 0

StringGrid + StringColumn + выравнивание


walexw

Вопрос

Рекомендуемые сообщения

  • 1
  • Модераторы

отрисовать самому?

procedure TFormMain.sGridDrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn;
const Bounds: TRectF; const Row: integer; const Value: TValue; const State: TGridDrawStates);
begin
    aBounds := Bounds;
    aBounds.Left := aBounds.Left + 2;
    Canvas.BeginScene;
    Canvas.Fill.Color := TAlphaColorRec.Red;
    Canvas.FillRect(Bounds, 0, 0, AllCorners, 1);
    Canvas.Fill.Color := TAlphaColorRec.White;
    Canvas.FillText(aBounds, (Sender as TStringGrid).Cells[1, Row], false, 1, [], TTextAlign.Center, TTextAlign.Center);
    Canvas.EndScene;
end;

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...