Alterar a Barra de Título

10/02/2006

Caros Colegas !

Preciso Urgente resolver um problema.

Comprei um código fonte na internet de um programa pra colocar na minha loja.
Bem ! Fiz as alterações no código e quando coloco o programa pra
rodar (F9) ele funciona normalmente, porém na barra de titulos
lá em baixo, fica com o nome do programa original. Já modifiquei
no Form Principal e nada. Também entrei em Projects - Options - Version Info
e esta tela do Version Info está desabilitada, não consigo alterar nada.
Então entrei e editei o arquivo (oac.dof), daí a tela continuou
desabilitada porém procedeu as alterações que eu fiz.
Bom qunado executo o programa lá está o nome antigo novamente.
Por favor alguém me ajuda.

[color=red:a1c36d7f6d]Título editado por Massuda Removido: ´Desafio´[/color:a1c36d7f6d]



Maiabrasil

Respostas

10/02/2006

Maiabrasil

Dá uma olhada no codigo do arquivo oac.dof - Me ajudem !

[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=1
UnsafeCode=1
UnsafeCast=1
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT50;TEEUI50;TEEDB50;TEE50;DSS50;TEEQR50;VCLIB50;VCLMID50;VCLIE50;INETDB50;INET50;NMFAST50;WEBMID50;dclocx50;dclaxserver50;Sculptor;DelPrint;Hprot3
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1046
CodePage=1252
[Version Info Keys]
CompanyName=Angelo Maia - Desenvolvimento de Softwares
FileDescription=Sistema Comercial Integrado
FileVersion=1.0.0.0
InternalName=Automação
LegalCopyright=© 1998-2005 http://www.oacsistemas.com.br
LegalTrademarks=® Angelo Maia - Desenvolvimento de Sistemas
OriginalFilename=OAC.exe
ProductName=OAC Automação Comercial
ProductVersion=2005
Comments=Angelo Maia ::: Desenvolvedor de Sistemas
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;


Responder Citar

10/02/2006

Emerson

veja se no dpr não está sendo carregada alguma configuração de algum arquivo ini ou algo parecido, ou ainda se o próprio dpr não está procedendo com essa alteração.
veja isso em Project -> View Source


Responder Citar

11/02/2006

Maiabrasil

Retirei algumas partes do código do arquivo DPR


Olhem esse pedaço do código:

{
Define o ícone da aplicação
}
Application.Icon.Handle := LoadIcon(HInstance, ´ICONESISTEMA´);
Application.HelpFile := Sistema.Pasta + ´Ajuda.Hlp´;
Application.Title := Sistema.Titulo;
{


e esse aqui em baixo:

procedure TFormPrincipal.ShowHint(Sender: TObject);
begin
if Length(Application.Hint) > 0 then
StatusBarPrincipal.Panels[1].Text := Application.Hint
else
StatusBarPrincipal.Panels[1].Text := ´Empresa Usuária: ´+Sistema.EmpresaUsr;
end;

procedure TFormPrincipal.FormShow(Sender: TObject);
Var
ArqIni: TIniFile;
begin
{
Inicializa variáveis públicas e ambiente de trabalho
}
Inicializa;
InicializaAmbiente;
DateSeparator := ´/´;
ShortDateFormat := Sistema.EstiloData;
Application.OnHint := ShowHint;
Caption := Sistema.Titulo;
ErronoSistema := False;
ArqIni := TInifile.Create(Sistema.Pasta + ´SYSEMP.DAT´);
Sistema.EmpresaUsr := ArqIni.ReadString(´EMPRESA 00´, ´Nome´, ´´);
Sistema.EnderecoUsr := ArqIni.ReadString(´EMPRESA 00´, ´Endereco´, ´´);
Sistema.BairroUsr := ArqIni.ReadString(´EMPRESA 00´, ´Bairro´, ´´);
Sistema.CidadeUsr := ArqIni.ReadString(´EMPRESA 00´, ´Cidade´, ´´);
Sistema.UfUsr := ArqIni.ReadString(´EMPRESA 00´, ´UF´, ´´);
Sistema.CEPUsr := ArqIni.ReadString(´EMPRESA 00´, ´CEP´, ´´);
Sistema.CNPJUsr := ArqIni.ReadString(´EMPRESA 00´, ´CNPJ´, ´´);
Sistema.IEUsr := ArqIni.ReadString(´EMPRESA 00´, ´Inscricao´, ´´);
Sistema.FonesUsr := ArqIni.ReadString(´EMPRESA 00´, ´Fones´, ´´);
Sistema.LogoUsr := ArqIni.ReadString(´EMPRESA 00´, ´Logo´, ´´);
ArqIni.Free;
StatusBarPrincipal.Panels[1].Text := ´Empresa Usuária: ´+Sistema.EmpresaUsr;
{


Por favor se alguem souber, me ajuda !!!

Ângelo


Responder Citar

11/02/2006

Aroldo Zanela

Colega,

Quanto ao arquivo com a extensão .DOF (até a versão 7) podem ser deletados sem problemas que o Delphi irá recriá-lo. Mas me parece que a informação vem do arquivo INI ou algum valor default caso não entre a variável no mesmo.


Responder Citar

11/02/2006

Maiabrasil

Caro colega Aroldo,

Quanto ao arquivo dof eu entendi (já que a versão do meu Delphi é 7).

Eu descrevi aí em cima partes do código do arquivo DPR.

Dá uma olhadinha aí por favor, e se referir realmente este problema
com algum arquivo tipo INI, o que devo fazer ? Como Alterar ?

Muito obrigado !

Ângelo.


Responder Citar

11/02/2006

Aroldo Zanela

Colega,

Edita o arquivo SYSEMP.DAT (INI Disfarçado) e verifique o valor das variáveis descritas no DPR.


Responder Citar

11/02/2006

Michael

Veja essas linhas:

...
Application.Title := Sistema.Titulo; 
...
Caption := Sistema.Titulo;
...


Ou defina Sistema.Titulo para alguma coisa, ou insira a string diretamente.

Application.Title := ´Meu sistema´;


Não consta nenhuma atribuição a Sistema.Titulo no [b:f33095a954]FormShow[/b:f33095a954]. Tudo indica que esta definição esteja no [b:f33095a954]FormCreate [/b:f33095a954]ou outro evento similar.

[]´s


Responder Citar