Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];

Вниз

Grid   Найти похожие ветки 

 
lp   (2004-11-20 19:28) [0]

Уважаемые мастера.
Скажите как можно объединить ячейки в гриде.
Спасибо.


 
jack128 ©   (2004-11-20 20:25) [1]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var
 Grid: TStringGrid;
begin
 if ARow = 1 then
 begin
   Grid := Sender as TStringGrid;
   case ACol of
     1: inc(Rect.Right, Grid.GridLineWidth);
     2: dec(Rect.Left, Grid.GridLineWidth);
   else
     Exit;
   end;
   TStringGrid(Grid).Canvas.FillRect(Rect);
 end;
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.04 c
14-1100558728
123
2004-11-16 01:45
2004.12.05
sin, cos, etc.


14-1100712272
Yanis
2004-11-17 20:24
2004.12.05
Про WinAmp


14-1100534252
Drakon
2004-11-15 18:57
2004.12.05
Разработки Winamp прекращены


1-1100002576
Checist [root]
2004-11-09 15:16
2004.12.05
Событие скрола мыши


3-1099989544
goldenmax
2004-11-09 11:39
2004.12.05
Как подключится по сети к базе через BDE





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский