Статьи по программированию
примеры программного кода
Delphi, Kylix, C, C++, SQL, Visual Basic, Bash, Assembler, 1С
Qt, KOL, MFC, Rx Library, Windows, Linux, Mac OS
VCL (227)
-->Раскраска зеброй TListView
Опубликовано codeLocker в 16.08.2008 в 08:35.
ОС: Windows Язык: Delphi/Kylix • VCL • TTreeView, TListView
Необходимо реализовать событие CustomDrawItem
procedure TMainForm.RelLVCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var i: word;
begin
if item = nil then EXIT;
i := Item.Index;
if trunc((i) / 2) < (i / 2)
then sender.canvas.brush.Color := cl3DLight
else sender.canvas.brush.Color := clwhite;
end;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var i: word;
begin
if item = nil then EXIT;
i := Item.Index;
if trunc((i) / 2) < (i / 2)
then sender.canvas.brush.Color := cl3DLight
else sender.canvas.brush.Color := clwhite;
end;
Как использовать ChartFX?
Опубликовано codeLocker в 02.08.2008 в 09:59.
ОС: Windows Язык: Delphi/Kylix • VCL
with ChartFX do begin
Visible := false;
{ Устанавливаем режим ввода значений }
{ 1 - количество серий (в нашем случае 1), 3 - количество значений }
OpenData [COD_VALUES] := MakeLong (1,3);
{ Hомер текущей серии }
ThisSerie := 0;
{ Value [i] - значение с индексом i }
{ Legend [i] - комментарий к этому значению }
Value [0] := a;
Visible := false;
{ Устанавливаем режим ввода значений }
{ 1 - количество серий (в нашем случае 1), 3 - количество значений }
OpenData [COD_VALUES] := MakeLong (1,3);
{ Hомер текущей серии }
ThisSerie := 0;
{ Value [i] - значение с индексом i }
{ Legend [i] - комментарий к этому значению }
Value [0] := a;
Как бы мне создать trackbar в котором вместо широкой белой полоски с ползунком была бы тонкая линия?
Опубликовано codeLocker в 02.08.2008 в 09:58.
ОС: Windows Язык: Delphi/Kylix • VCL
В примере создается компонент, унаследованный от TTrackbar который переопределяет метод CreateParams и убират флаг TBS_ENABLESELRANGE из Style. Константа TBS_ENABLESELRANGE обьявленна в модуле CommCtrl.
uses CommCtrl, ComCtrls;
type
TMyTrackBar = class(TTrackBar)
procedure CreateParams(var Params: TCreateParams); override;
end;
procedure TMyTrackBar.CreateParams(var Params: TCreateParams);
begin
inherited;
type
TMyTrackBar = class(TTrackBar)
procedure CreateParams(var Params: TCreateParams); override;
end;
procedure TMyTrackBar.CreateParams(var Params: TCreateParams);
begin
inherited;
Поведение TAB в компоненте RadioGroup
Опубликовано codeLocker в 02.08.2008 в 09:57.
ОС: Windows Язык: Delphi/Kylix • VCL • TRadioButton
При перемещении фокуса ввода клавишей Tab чтобы переместить его в RadioGroup нужно нажать клавишу Tab дважды если какой нибудь пункт RadioGroup уже выбран, но только один раз если не выбран. Можно ли сделать поведение RadioGroup логичным?
Можно ли отключить определенный элемент в RadioGroup?
Опубликовано codeLocker в 02.08.2008 в 09:57.
ОС: Windows Язык: Delphi/Kylix • VCL • TRadioButton
В примере показано как получить доступ к отдельным элементам компонента TRadioGroup.
procedure TForm1.Button1Click(Sender: TObject);
begin
TRadioButton(RadioGroup1.Controls[1]).Enabled := False;
end;
begin
TRadioButton(RadioGroup1.Controls[1]).Enabled := False;
end;
Спонсоры проекта:
Навигация
Сейчас на сайте
Сейчас на сайте 0 пользователей и 2 гостя.
Статистика
Всего материалов: 1387