instalacao fortes report no delphi2006
26/11/2015
0
sou iniciante no Forntes Repost e não estou conseguindo instalar na minha IDE Delphi2006.
auguem pode mim ajudar!
Vagner Santos
Posts
26/11/2015
Vagner Santos
segue a função que dá erro.
function CanvasGetPixels(ACanvas: TCanvas; X, Y: Integer): TColor;
begin
Result := ACanvas.Pixels[X, Y];
end;
type
TLinePattern = record
Count: Byte;
Lengths: array[0..5] of Byte;
end;
const
LinePatterns: array[TPenStyle] of TLinePattern = (
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psSolid
(Count: 2;Lengths: (3, 1, 0, 0, 0, 0)), // psDash
(Count: 2;Lengths: (1, 1, 0, 0, 0, 0)), // psDot
(Count: 4;Lengths: (2, 1, 1, 1, 0, 0)), // psDashDot
(Count: 6;Lengths: (3, 1, 1, 1, 1, 1)), // psDashDotDot
{$IfDef FPC}
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psInsideFrame
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psPattern
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psClear
{$Else}
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear
{$ifdef DELPHI2006}
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)),
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)),
{$endif}
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psInsideFrame
{$IfDef DELPHI2007_UP}// delphi 2007 em diante
,
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psUserStyle
(Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psAlternate
{$endif}
{$endif}
);
quando comento essas linhas aparecem mais erros.
o delphi me retorna o seguinte:
[Pascal Error] RLMetaVCL.pas(678): E2072 Number of elements (11) differs from declaration (9)
[Pascal Fatal Error] frce.dpk(78): F2063 Could not compile used unit '..\Source\RLMetaVCL.pas'
26/11/2015
William
26/11/2015
Vagner Santos
Clique aqui para fazer login e interagir na Comunidade :)