Валентин Озеров - Советы по Delphi. Версия 1.0.6

Panel1.Invalidate;

end;

end;

Код может быть модифицирован для получения горизонтального движка – идея, надеюсь, понятна…

Обработчик должен выглядеть примерно так:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);

begin

with statusbar1.Canvas do begin

Brush.Color:= clRed;

FillRect(Rect);

TextOut(Rect.Left, Rect.Top, 'Панель '+IntToStr(Panel.Index));

end;

end;

Манипулирование вышеуказанным атрибутом возможно в обработчике события OnSelectCell:

if Col mod 2 = 0 then grd.Options:= grd.Options + [goEditing]

else grd.Options:= grd.Options – [goEditing];

Возможно ли поместить изображение в одну из ячеек компонента StringGrid?

Такое позволяет обработчик события OnDrawCell. Приводим скелет кода, демонстрирующий принцип вывода изображения в ячейке компонента:

with StringGrid1.Canvas do begin

{…}

Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);

{…}

end;

Достичь цели позволяют методы Draw() и StretchDraw() объекта TCanvas. В приведенном примере переменная Image1 класса TImage содержит заранее загруженное изображение.

Как мне сохранить целый Stringgrid со всеми ячейками в файле?

Procedure SaveGrid;

var f:textfile;

x,y: integer;

begin

assignfile(f,'Filename');

rewrite(f);

writeln(f,stringgrid.colcount);

writeln(f,stringgrid.rowcount);

For x:= 0 to stringgrid.colcount-1 do For y:= 0 to stringgrid.rowcount-1 do writeln(F, stringgrid.cells[x,y]);

closefile(f);

end;

Procedure LoadGrid;

var f:textfile;

temp,x,y:integer;

tempstr:string;

begin

assignfile(f,'Filename');

reset(f);

readln(f,temp);

stringgrid.colcount:= temp;

readln(f,temp);

stringgrid.rowcount:= temp;

For x:=0 to stringgrid.colcount-1 do For y:=0 to stringgrid.rowcount-1 do begin

readln(F, tempstr);

stringgrid.cells[x,y]:= tempstr;

end;

closefile(f);

end;

Я несколько раз видел в конференциях вопросы типа "как мне добавить элементы управления в TTabbedNotebook или TNotebook во время выполнения программы?". Теперь, когда у меня выдалось несколько свободных минут, я попытаюсь осветить этот вопрос как можно подробнее:

Добавление элементов управления в TTabbedNotebook во время проектирования – красивая и простая задача. Все, что Вам нужно – это установить свойство PageIndex или ActivePage на необходимую страницу и начать заполнять ее элементами управления.

Добавление элементов управление во время выполнения приложения также очень просто. Тем не менее, в прилагаемой документации по Delphi вы не найдете рецептов типа Что-и-Как. Видимо для того, чтобы окончательно запутать начинающих программистов, фирма-изготовитель даже не удосужилась включить исходный код TTabbedNotebook в VCL-библиотеку. Таким образом, TTabbedNotebook остается для некоторых тайной за семью печатями. К счастью, я имею некоторый опыт, коим и хочу поделиться.

Первым шагом к раскрытию тайны послужит просмотр файла \DELPHI\DOC\TABNOTBK.INT, интерфейсной секции модуля TABNOTBK.PAS, в котором определен класс TTabbedNotebook. Беглый просмотр позволяет обнаружить класс TTabPage, описанный как хранилище элементов управления отдельной страницы TTabbedNotebook.

Вторым шагом в исследовании TTabbedNotebook может стать факт наличия свойством Pages типа TStrings. В связи с этим отметим, что Delphi-классы TStrings и TStringList соорганизуются с двумя свойствами: Strings и Objects. Другими словами, для каждой строки в TStrings есть указатель на соответствующий Objects. Во многих случаях этот дополнительный указатель игнорируется, нам же он очень пригодится.

После небольшого эксперимента выясняем, что свойство Objects указывает на нашу копию TTabPage и ссылается на имя страницы в свойстве Strings. Блестяще! Всегда полезно знать что ищешь. Теперь посмотрим что мы можем сделать:

{ Данная процедура добавляет кнопку в случайной позиции на }

{ текущей странице данного TTabbedNotebook. }

procedure AddButton(tabNotebook : TTabbedNotebook);

var

tabpage: TTabPage;

button: TButton;

begin

with tabNotebook do tabpage:= TTabPage(Pages.Objects[PageIndex]);

button:= TButton.Create(tabpage);

try

with button do begin

Parent:= tabpage;

Left:= Random(tabpage.ClientWidth – Width);

Top:= Random(tabpage.ClientHeight – Height);

end;