комоненты TStringGrid и TDrawGrid

@newnata · Регистрация: 10.04.2008

Студворк — интернет-сервис помощи студентам

Таблица, представляющая собой типичное двухнедельное расписание
(столбцы - недели, строки - пары). Разные недели, а также пары, соответствующие
дневному и вечернему отделениям должны быть отделены жирной линией.
Как сделать, которую линию нарисовали, сделать видимой на таблице.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    StringGrid1: TStringGrid;
    ColorDialog1: TColorDialog;
    Button1: TButton;
    UpDown1: TUpDown;
    procedure FormPaint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormPaint(Sender: TObject);
begin
//рисуем сплошную линию (psSolid)
Canvas.Pen.Style:=psSolid;
Canvas.MoveTo(468,176);
Canvas.LineTo(468,394);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
  Canvas.Pen.Color:=ColorDialog1.Color;
 FormPaint(nil);
end;
 
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
Canvas.Pen.Width:=UpDown1.Position;
Repaint;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
//заполняем значениями все колонки
StringGrid1.Cells[0,1]:='8:15-9:45';
 StringGrid1.Cells[0,2]:='9:55-11:25';
  StringGrid1.Cells[0,3]:='11:35-13:05';
   StringGrid1.Cells[0,4]:='13:35-15:05';
    StringGrid1.Cells[0,5]:='15:15-16:45'; и тд.
end;
end.

15.04.2008, 11:09

Не знаю, это то, что тебе надо, или нет, но вдруг чего пригодиться

GridLineWidth – толщина разделительных линий сеток.
Options – настройки сетки. Если дважды щёлкнуть по этому свойству или один раз
по квадратику слева от названия свойства, то раскроется большой список свойств.
goFixedVertLine – рисовать вертикальные линии сетки у фиксированных ячеек.
goFixedHorzLine – рисовать горизонтальные линии сетки у фиксированных ячеек.
goVertLine – рисовать вертикальные линии сетки у нефиксированных ячеек.
goHorzLine – рисовать горизонтальные линии сетки у нефиксированных ячеек.
goRangeSelect – позволять выделять несколько ячеек.
goDrawFocuSelected – рисовать фокус выделенной ячейки.
goRowSizing – можно ли изменять размер строк перетягиванием мышкой.
goColSizing - можно ли изменять размер колонок перетягиванием мышкой.
goRowMoving – можно ли перемещать строки. Если true, то можно мышкой нажать на фиксированную ячейку строки и перетащить её в новое положение.
goColMoving - можно ли перемещать колонки. Если true, то можно мышкой нажать на фиксированную ячейку колонки и перетащить её в новое положение.
goEditing – можно ли вводить с клавиатуры данные в сетку. Для нашего примера установим в True.
goTabs – если здесь установить True, то между ячейками можно путешествовать с помощью клавиши Tabs.
goRowSelect – если здесь false, то выделяется только выделенная ячейка. Если true,то вся строка.
goAlwaysShowEditor – если здесь false, то когда ты становишься в ячейку, то для её редактирования нужно нажать Enter или F2. Если True, то как только ты выделил ячейку,её сразу можно редактировать.
goThumbTracking – будут ли данные прорисовываться пока пользователь перемещает полосу прокрутки.
RowCount – количество строк. Для первого примера нам хватит и пяти.
ScrollBars – нужно ли показывать полосы прокрутки. Здесь возможны варианты:
ssNone – не показывать.
ssHorizontal – только горизонтальную полосу.
ssVertical – только вертикальную полосу.
SsNone – не показывать.

Vovan-VE · 15.04.2008, 11:34

Лучше всего пославить DefaultDraw=false и обрабатывать OnDrawCell.

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Киев стоит - украинская песня zorxor 28.01.2026 wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

Hella
	15.04.2008, 11:09
	Не знаю, это то, что тебе надо, или нет, но вдруг чего пригодиться GridLineWidth – толщина разделительных линий сеток. Options – настройки сетки. Если дважды щёлкнуть по этому свойству или один раз по квадратику слева от названия свойства, то раскроется большой список свойств. goFixedVertLine – рисовать вертикальные линии сетки у фиксированных ячеек. goFixedHorzLine – рисовать горизонтальные линии сетки у фиксированных ячеек. goVertLine – рисовать вертикальные линии сетки у нефиксированных ячеек. goHorzLine – рисовать горизонтальные линии сетки у нефиксированных ячеек. goRangeSelect – позволять выделять несколько ячеек. goDrawFocuSelected – рисовать фокус выделенной ячейки. goRowSizing – можно ли изменять размер строк перетягиванием мышкой. goColSizing - можно ли изменять размер колонок перетягиванием мышкой. goRowMoving – можно ли перемещать строки. Если true, то можно мышкой нажать на фиксированную ячейку строки и перетащить её в новое положение. goColMoving - можно ли перемещать колонки. Если true, то можно мышкой нажать на фиксированную ячейку колонки и перетащить её в новое положение. goEditing – можно ли вводить с клавиатуры данные в сетку. Для нашего примера установим в True. goTabs – если здесь установить True, то между ячейками можно путешествовать с помощью клавиши Tabs. goRowSelect – если здесь false, то выделяется только выделенная ячейка. Если true,то вся строка. goAlwaysShowEditor – если здесь false, то когда ты становишься в ячейку, то для её редактирования нужно нажать Enter или F2. Если True, то как только ты выделил ячейку,её сразу можно редактировать. goThumbTracking – будут ли данные прорисовываться пока пользователь перемещает полосу прокрутки. RowCount – количество строк. Для первого примера нам хватит и пяти. ScrollBars – нужно ли показывать полосы прокрутки. Здесь возможны варианты: ssNone – не показывать. ssHorizontal – только горизонтальную полосу. ssVertical – только вертикальную полосу. SsNone – не показывать.

Vovan-VE 13210 / 6599 / 1041 Регистрация: 10.01.2008 Сообщений: 15,069
	15.04.2008, 11:34
	Лучше всего пославить DefaultDraw=false и обрабатывать OnDrawCell. 0