Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите подправить код, Размер колонок Грида 
V
    Опции темы
RN3QGA
Дата 18.2.2006, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 28.11.2005
Где: Воронежская обл.

Репутация: нет
Всего: нет
Здравствуйте.
Импортирую *.xls файл в StringGrid и использую следующий код для выравнивания колонок
Код


procedure AutoSizeGridColumn(Grid : TStringGrid; 
                              column : integer); 
var 
  i : integer; 
  temp : integer; 
  max : integer; 
begin 
  max := 0; 
  for i := 0 to (Grid.RowCount - 1) do begin 
    temp := Grid.Canvas.TextWidth(grid.cells[column, i]); 
    if temp > max then max := temp; 
  end; 
  Grid.ColWidths[column] := Max + Grid.GridLineWidth + 3; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  AutoSizeGridColumn(StringGrid1, 1); 
end; 


взято из DRKB

но почему то только первая колонка выравнивается по содержимому, а остальные нет.
Подскажите как подправить ?
PM MAIL   Вверх
Guedda
Дата 18.2.2006, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Просто ты в процедуе только первую колонку редактируешь, а вот так правильней:
Код

procedure TForm1.Button1Click(Sender : TObject);
var
  i : Integer;
begin
  for i := 0 to StringGrid1.ColCount - 1 do
    AutoSizeGridColumn(StringGrid1, i);
end;



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
RN3QGA
Дата 18.2.2006, 17:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 28.11.2005
Где: Воронежская обл.

Репутация: нет
Всего: нет
Да
Guedda, спасибо сам уже дошел, я чегой то сам зациклился капитально.
Спасибо.
PM MAIL   Вверх
orxidey
Дата 5.12.2010, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Борец с ленью



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.12.2010

Репутация: нет
Всего: нет
Уважаемые Умы! Я начинающий программист. smile Плиз, посмотрите, что у меня в коде за ошибка. Я пока что экспериментирую.
Здесь, используя условный цикл в несколько условий, осуществляю вроде гадалки - человек наугад вводит одну из необходимых букв и ему высвечивается фраза.
Если ошибки наиглупейшие, просьба простить... Только начала... smile 

Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  1.jpg.jpg 238,38 Kb
PM MAIL ICQ   Вверх
Данкинг
Дата 5.12.2010, 11:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Во-первых, создай новую тему, и в разделе по Паскалю. Во-вторых, какая ошибка-то?



Это сообщение отредактировал(а) Данкинг - 5.12.2010, 11:59


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
orxidey
Дата 5.12.2010, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Борец с ленью



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.12.2010

Репутация: нет
Всего: нет
При занесении уже в программу одного из вариантов не высвечивается итог, а сразу прощание. smile

Добавлено через 4 минуты
В общем логическая ошибка, синтаксис не храмает.
PM MAIL ICQ   Вверх
orxidey
Дата 5.12.2010, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Борец с ленью



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.12.2010

Репутация: нет
Всего: нет
Усе спасибо, разобралась.. Напутала с переменными... smile 
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0677 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.