Советы по Delphi. Версия 1.4.3 от 1.1.2001

function aaSave(hAa: AAHandle; wMode: word) : integer; external 'AAPLAY';
{
 ' Сохранение скрипта
}

{ --------------------------------------------------------------------------- }

{$F-}
{ Окончание внешних вызовов 'AAPLAY.DLL' }
{ =========================================================================== }
end.
{ =========================================================================== }

Dr Paul Kuczora.

–

Paul Kuczora c home.london.uk

(на создание файла потрачен один день) 

Как сделать, чтобы орган управления, например, сложная линия, хваталась только за некий контур, и пропускала мышь под себя в других местах?

Nomadic советует:

Надо обрабатывать сообщение CM_HITTEST (Это сообщение получают даже потомки от TGraphicsControl, не имеющего своего HWND).

Например, так:

procedure TLine.CMHitTest(var Message: TWMNCHitTest);
begin
 if PointInLineReg(Message.XPos, Message.YPos) then begin
 Message.Result := 1;
 end else begin
 Message.Result := 0;
 end;
end;

Для органов управления Windows, если Вы не используете VCL, требуется обрабатывать сообщение WM_NCHITTEST.

Как быстро нарисовать тень в заданном регионе?

Nomadic советует:

procedure TForm2.DrawShadows(WDepth, HDepth : Integer);
var
 Dst, RgnBox : TRect;
 hOldDC : HDC;
 OffScreen : TBitmap;
 Pattern : TBitmap;
 Bits : array[0..7] of WORD;
begin
 Bits[0] := $0055;
 Bits[1] := $00aa;
 Bits[2] := $0055;
 Bits[3] := $00aa;
 Bits[4] := $0055;
 Bits[5] := $00aa;
 Bits[6] := $0055;
 Bits[7] := $00aa;
 hOldDC := Canvas.Handle;
 Canvas.Handle := GetWindowDC(Form1.Handle);
 OffsetRgn(ShadeRgn, WDepth, HDepth);
 GetRgnBox(ShadeRgn, RgnBox);
 Pattern := TBitmap.Create;
 Pattern.ReleaseHandle;
 Pattern.Handle := CreateBitmap(8, 8, 1, 1, @(Bits[0]));
 Canvas.Brush.Bitmap := Pattern;
 OffScreen := TBitmap.Create;
 OffScreen.Width := RgnBox.Right-RgnBox.Left;
 OffScreen.Height := RgnBox.Bottom-RgnBox.Top;
 Dst := Rect(0, 0, OffScreen.Width, OffScreen.Height);
 OffsetRgn(ShadeRgn, 0, –RgnBox.Top);
 FillRgn(OffScreen.Canvas.Handle, ShadeRgn, Canvas.Brush.Handle);
 OffsetRgn(ShadeRgn, 0, RgnBox.Top);
// BitBlt работает быстрее CopyRect
 BitBlt(OffScreen.Canvas.Handle, 0, 0, OffScreen.Width, OffScreen.Height, Canvas.Handle, RgnBox.Left, RgnBox.Top, SRCAND);
 Canvas.Brush.Color := clBlack;
 FillRgn(Canvas.Handle, ShadeRgn, Canvas.Brush.Handle);
 BitBlt(Canvas.Handle, RgnBox.Left, RgnBox.Top, OffScreen.Width, OffScreen.Height, OffScreen.Canvas.Handle, 0, 0, SRCPAINT);
 OffScreen.Free;
 Pattern.Free;
 OffsetRgn(ShadeRgn, –WDepth, –HDepth);
 ReleaseDC(Form1.Handle, Canvas.Handle);
 Canvas.Handle := hOldDC;
end;

Комментарии:

Функция рисует тень сложной формы на форме Form2 (извиняюсь за стиль). Для определения формы тени используется регион ShadeRgn, который был создан где-то раньше (например в OnCreate). Относительно регионов см. Win32 API. 

Как рисовать на органе управления, например, на TPanel?

Nomadic советует:

У всех компонентов, порожденных от TCustomControl, имеется свойство Canvas типа TCanvas.

Если свойство Canvas недоступно, Вы можете достучаться до него созданием потомка и переносом этого свойства в раздел Public.

{ Example. We recommend You to create this component through Component Wizard.
 In Delphi 1 it can be found as 'File|New Component…', and can be found
 as 'Component|New Component…' in Delphi 2 or above. }
type
 TcPanel = class(TPanel)
public
 property Canvas;
end;

У меня есть маленькое замечание.

Если у объекта нет свойства Canvas (у TDBEdit вроде-бы нет), то, по крайней меpе в D3, можно использовать класс TControlCanvas. Примерное использование:

var
 cc: TControlCanvas;
 …
 cc := TControlCanvas.Create;
 cc.Control := yourControl;
 …

и далее как обычно можно использовать методы Canvas.

Как мне из Handle битовой картинки, получить адрес битового изображения в памяти?

Nomadic советует:

Вот кусок одного моего класса, в котором есть две интересные вещицы — проецирование файлов в память и работа с битмэпом в памяти через указатель.