Вопрос:
Как создать невизуальный
компонент без иконоки, которая изображается в палитре компонентов в “design-time”
(вроде TField)?
Ответ:
Невизуальные компоненты
без иконоки удобны для субкомпонентов, связанных с какими-то другими компонентами.
Создайте компонент как обычно, но используйте RegisterNoIcon вместо RegisterComponent.
Вопрос: Создание PolyPolygon используя массив точек? Ответ:
Polygon – метод компонента
TCanvas получает в качестве параметра динамический массив точек. Функция PolyPolygon()
из Windows GDI получает указатель на массив точек. Прочитать остальную часть записи »
Вопрос:
В некоторых видео режимах прозрачная часть glyph’а стандартного TBitBtn становится видной. Как этого избежать?
Ответ:
В примере используется
техника закраски прозрачной части glyph’а цветом кнопки на которой он находится
- таким образом glyph кажется прозрачным. Прочитать остальную часть записи »
Вопрос:
Мне нужен временный canvas, но когда я пытаюсь его создать получаю сообщения об ошибках. Как создать TCanvas?
Ответ:
Создайте Bitmap и используйте
свойство canvas класса TBitmap. Пример создает Bitmap, рисует на его canvas’е,
выводит этот canvas на форму и освобождает bitmap. Прочитать остальную часть записи »
Вопрос:
Как бы мне создать эдакий trackbar в котором вместо широкой белой полоски с ползунком была бы тонкая линия?
Ответ:
В примере создается компонент,
унаследованный от 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;
Params.Style := Params.Style and not TBS_ENABLESELRANGE;
end;
var
MyTrackbar : TMyTrackbar;
procedure TForm1.Button1Click(Sender: TObject);
begin
MyTrackBar := TMyTrackbar.Create(Form1);
MyTrackbar.Parent := Form1;
MyTrackbar.Left := 100;
MyTrackbar.Top := 100;
MyTrackbar.Width := 150;
MyTrackbar.Height := 45;
MyTrackBar.Visible := true;
end;