Problemas com JVCL300CompleteJCL195-Build1848
11/12/2005
0
Olá amigos do forum ...
Baixei JVCL300CompleteJCL195-Build1848 e instalei com o próprio instalador do pacote, até ai tudo bem, abro o delphi(Delphi 7 Enterprise) e as paletas de componentes estão todas lá, só que quando coloca qualquer componente no formuçário e tento compilar dar o seguinte erro.
[erro] JVThemes.pas(768) : Identifier but ´PROCEDURE´ FOUND
Alguém sabe como resolver?
Abaixo parte do código de uma unit que fica aberta.
{
Instead of the ControlStyle property you should use the following functions:
ControlStyle := ControlStyle + [csXxx]; -> IncludeThemeStyle(Self, [csXxx]);
ControlStyle := ControlStyle - [csXxx]; -> ExcludeThemeStyle(Self, [csXxx]);
if csXxx in ControlStyle then -> if csXxx in GetThemeStyle(Self) then
}
procedure IncludeThemeStyle(Control: TControl; Style: TThemeStyle);
procedure ExcludeThemeStyle(Control: TControl; Style: TThemeStyle);
function GetThemeStyle(Control: TControl): TThemeStyle;
{ DrawThemedBackground fills R with Canvas.Brush.Color/Color. If the control uses
csParentBackground and the color is that of it´s parent the Rect is not filled
because then it is done by the JvThemes/VCL7. }
Baixei JVCL300CompleteJCL195-Build1848 e instalei com o próprio instalador do pacote, até ai tudo bem, abro o delphi(Delphi 7 Enterprise) e as paletas de componentes estão todas lá, só que quando coloca qualquer componente no formuçário e tento compilar dar o seguinte erro.
[erro] JVThemes.pas(768) : Identifier but ´PROCEDURE´ FOUND
Alguém sabe como resolver?
Abaixo parte do código de uma unit que fica aberta.
{
Instead of the ControlStyle property you should use the following functions:
ControlStyle := ControlStyle + [csXxx]; -> IncludeThemeStyle(Self, [csXxx]);
ControlStyle := ControlStyle - [csXxx]; -> ExcludeThemeStyle(Self, [csXxx]);
if csXxx in ControlStyle then -> if csXxx in GetThemeStyle(Self) then
}
procedure IncludeThemeStyle(Control: TControl; Style: TThemeStyle);
procedure ExcludeThemeStyle(Control: TControl; Style: TThemeStyle);
function GetThemeStyle(Control: TControl): TThemeStyle;
{ DrawThemedBackground fills R with Canvas.Brush.Color/Color. If the control uses
csParentBackground and the color is that of it´s parent the Rect is not filled
because then it is done by the JvThemes/VCL7. }
Guialberto Soares
Curtir tópico
+ 0
Responder
Posts
12/12/2005
Titanius
Amigo, voce instalou o JCL antes do JVCL? Voce tinha uma versão antiga do JEDI na maquina?
[]s
[]s
Responder
12/12/2005
Guialberto Soares
Realmente eu não tinha instalado JCL antes do JVCL, e tenho impressão que tinha marcado uma opção que não é compatível com o Delphi 7.
Valeu mesmo, Obdo ...
[]´ Guiga
Valeu mesmo, Obdo ...
[]´ Guiga
Responder
Clique aqui para fazer login e interagir na Comunidade :)