Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios necesarios para que no haya problemas con windows 7

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@167 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2012-07-30 15:16:45 +00:00
parent a52a393fb7
commit bfcbaf80c9
6 changed files with 17 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/logo-keiblair2.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 37 KiB

BIN
Resources/logo-luisleon.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 19 KiB

27
Source/Base/uDMBase.pas
View File

@ -63,25 +63,26 @@ end;
procedure TdmBase.IniciarLog;
var
AIniFile : String;
ALogFileName : String;
begin
inherited;
FEscribirLog := TCriticalSection.Create;
AIniFile := GetSpecialFolderPath(CSIDL_LOCAL_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + GetAppName + PathDelim;
ALogFileName := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data
ALogFileName := ALogFileName + PathDelim + 'Rodax Software' + PathDelim + 'FactuGES' + PathDelim;
if not DirectoryExists(AIniFile) then
CreateDir(AIniFile);
JvLogFile.Active := False;
JvLogFile.FileName := AIniFile + 'ClientLog.txt';
JvLogFile.AutoSave := True;
JvLogFile.Active := True;
JvLogFile.Clear;
if SysUtils.ForceDirectories(ALogFileName) then
begin
JvLogFile.Active := False;
JvLogFile.FileName := ALogFileName + 'ClientLog.txt';
JvLogFile.AutoSave := True;
JvLogFile.Active := True;
JvLogFile.Clear;
end
else
raise Exception.Create('Error al crear directorio para Log: ' + IntToStr(GetLastError));
end;
procedure TdmBase.InitStyleManager;
begin
if not USE_THEMES then
@ -138,8 +139,6 @@ end;
procedure TdmBase.EscribirLog(const AMensaje: String);
begin
// dxPrintStyleManager1Style1.PrinterPage.PageFooter.LeftTitle.Add(FEmpresaInformesBase);
FEscribirLog.Acquire;
try
JvLogFile.Add(AMensaje);

16
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -515,16 +515,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 160
Top = 182
end
object HostMenu: TJvMainMenu
object HostMenu: TMainMenu
Images = ModulesSmallImageList
Style = msItemPainter
ImageMargin.Left = 0
ImageMargin.Top = 0
ImageMargin.Right = 0
ImageMargin.Bottom = 0
ImageSize.Height = 0
ImageSize.Width = 0
ItemPainter = JvXPMenuItemPainter1
Left = 248
Top = 168
object Archivo2_OLD: TMenuItem
@ -673,12 +665,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
Action = actMenuInformes
end
end
object JvXPMenuItemPainter1: TJvXPMenuItemPainter
SelectionFrameBrush.Color = 13811126
SelectionFramePen.Color = 6956042
Left = 288
Top = 168
end
object StatusPanelImageList: TPngImageList
PngImages = <
item

3
Source/Cliente/uPantallaPrincipal.pas
View File

@ -39,8 +39,7 @@ type
actConexion: TAction;
actAcerca: TAction;
pnlBorde: TJvXPContainer;
HostMenu: TJvMainMenu;
JvXPMenuItemPainter1: TJvXPMenuItemPainter;
HostMenu: TMainMenu;
Archivo2_OLD: TMenuItem;
Ayuda2_OLD: TMenuItem;
Cambiarmicontrasea2_OLD: TMenuItem;

4
Source/GUIBase/uViewGridBase.pas
View File

@ -435,7 +435,7 @@ begin
if Assigned(_FocusedView) then
begin
AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then
@ -458,7 +458,7 @@ begin
if Assigned(_FocusedView) then
begin
AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then