Lazarus 0.9.31 r30355 FPC 2.4.3 i386-win32-win32/win64
RxNew 1576
и вот.... выпадают 3 ошибки в модуле rxctrls
Там оказались три закоментаренные строки и вставленные после них новые...
Откат - раскоментаририл старые и выклычил новые - работает
Это у меня в ДНК ошибка или... ?
- Код: Выделить всё
procedure TSecretPanel.Paint;
var
Rect: TRect;
TopColor, BottomColor: TColor;
SaveIndex: Integer;
procedure AdjustColors(Bevel: TPanelBevel);
begin
TopColor := clBtnHighlight;
if Bevel = bvLowered then TopColor := clBtnShadow;
BottomColor := clBtnShadow;
if Bevel = bvLowered then BottomColor := clBtnHighlight;
end;
begin
Rect := GetClientRect;
if BevelOuter <> bvNone then
begin
AdjustColors(BevelOuter);
Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth); // это вернул
//// Frame3d(Canvas.Handle, Rect, BevelWidth, BevelOuter); // это убрал
end;
Frame3D(Canvas, Rect, Color, Color, BorderWidth); // это вернул
//// Frame3d(Canvas.Handle, Rect, BorderWidth, BevelOuter); // это убрал
if BevelInner <> bvNone then
begin
AdjustColors(BevelInner);
Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth); // это вернул
//// Frame3d(Canvas.Handle, Rect, BorderWidth, BevelInner); // это убрал
end;
SaveIndex := SaveDC(Canvas.Handle);
try
with Rect do
IntersectClipRect(Canvas.Handle, Left, Top, Right, Bottom);
Canvas.Brush.Color := Self.Color;
PaintClient(Canvas, Rect);
finally
RestoreDC(Canvas.Handle, SaveIndex);
end;
if Active then begin
PaintGlyph;
{PaintText;}
end;
end;
