Прозрачный текст

Следующая статья: Получение информации о таблице.

Предлагаемый модуль реализует алгоритм «затухания» текста на холсте и обратного эффекта.

function TFadeEffect.FadeInText(Target: TCanvas; X, Y: integer;
FText: String): TRect;
var
Pic: TBitmap;
W, H: integer;
PicRect, TarRect: TRect;
begin
Pic:=TBitmap.Create;
Pic.Canvas.Font:=Target.Font;
W:=Pic.Canvas.Textwidth(FText);
H:=Pic.Canvas.Textheight(FText);
Pic.width:=W;
Pic.height:=H;
PicRect:=Rect(0, 0, W, H);
TarRect:=Rect(X, Y, X+W, Y+H);
Pic.Canvas.CopyRect(PicRect, Target, TarRect);
SetBkMode(Pic.Canvas.Handle, Transparent);
Pic.Canvas.TextOut(0, 0, FText);
FadeInto(Target, X, Y, Pic);
Pic.Free;
FadeInText:=TarRect;
end;
procedure TFadeEffect.FadeOutText(Target: TCanvas; TarRect: TRect; Orig: TBitmap);
var
Pic: TBitmap;
PicRect: TRect;
begin
Pic:=TBitmap.Create;
Pic.width:=TarRect.Right - TarRect.Left;
Pic.height:=TarRect.Bottom - TarRect.Top;
PicRect:=Rect(0, 0, Pic.width, Pic.height);
Pic.Canvas.CopyRect(PicRect, Orig.Canvas, TarRect);
FadeInto(Target, TarRect.Left, TarRect.Top, Pic);
Pic.Free;
end;