Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2016, 14:29   #11
tigrblak
 
Регистрация: 23.04.2009
Сообщений: 9
По умолчанию

Ещё вопросик. В стринггрид можно внести текст вертикально?
tigrblak вне форума Ответить с цитированием
Старый 19.05.2016, 16:15   #12
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Рисуй хоть под любым углом. Кто мешает? А вот редактировать как собираешься?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 22.05.2016, 15:28   #13
tigrblak
 
Регистрация: 23.04.2009
Сообщений: 9
По умолчанию Заливка ячейки.

Аватар хороший у тебя примерчик. Так прямо сильно помог. Только вот еще одна проблема нарисовалась. Надо некоторые ячейки залить. Залить то получилось, да вот значения ячеек не видно.
Вложения
Тип файла: rar 3.rar (207.6 Кб, 10 просмотров)

Последний раз редактировалось tigrblak; 22.05.2016 в 15:31.
tigrblak вне форума Ответить с цитированием
Старый 22.05.2016, 15:37   #14
TaLadno
Форумчанин
 
Регистрация: 03.06.2015
Сообщений: 393
По умолчанию

Ну ты бы хоть попытался вникнуть, в то, что тебе скинул Аватар..., книжку что ли почитай

Было (взял из архива в #13):
Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  StringGrid1.Canvas.CopyRect(Rect,Bmp.Canvas,Rect);
  StringGrid1.Canvas.Font.Color:=clWhite;
  StringGrid1.Canvas.Brush.Style:=bsClear;
  StringGrid1.Canvas.TextRect(Rect,Rect.Left,Rect.Top+2,StringGrid1.Cells[ACol,ARow]);

StringGrid1.Canvas.Brush.Color:=clRed;
if ((ACol=2)and(ARow=2)) then
  StringGrid1.Canvas.FillRect(Rect);

end;
Стало:
Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ((ACol=2)and(ARow=2)) then
  Begin
    StringGrid1.Canvas.Brush.Color:=clRed;
    StringGrid1.Canvas.FillRect(Rect);
  End
  else
  Begin
    StringGrid1.Canvas.CopyRect(Rect,Bmp.Canvas,Rect); // малюется подложка и из 
  End;

  StringGrid1.Canvas.Font.Color:=clWhite; 
  StringGrid1.Canvas.Brush.Style:=bsClear;
  StringGrid1.Canvas.TextRect(Rect,Rect.Left,Rect.Top+2,StringGrid1.Cells[ACol,ARow]);
end;
Вы там держитесь.

Последний раз редактировалось TaLadno; 22.05.2016 в 15:41.
TaLadno вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прозрачный градиент - Фон не просто прозрачный, есть градиент - к верху он светлеет DrStrangeLove HTML и CSS 3 26.05.2011 00:44
прозрачный image dmitriegorovih Общие вопросы Delphi 13 03.04.2011 21:20
прозрачный twincontrol. БулатМастер Помощь студентам 1 28.02.2010 17:41
Прозрачный PageControl Nemez Компоненты Delphi 7 23.07.2008 06:58
прозрачный Image Roof Помощь студентам 8 27.07.2007 12:15