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

16
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -515,16 +515,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 160 Left = 160
Top = 182 Top = 182
end end
object HostMenu: TJvMainMenu object HostMenu: TMainMenu
Images = ModulesSmallImageList 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 Left = 248
Top = 168 Top = 168
object Archivo2_OLD: TMenuItem object Archivo2_OLD: TMenuItem
@ -673,12 +665,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
Action = actMenuInformes Action = actMenuInformes
end end
end end
object JvXPMenuItemPainter1: TJvXPMenuItemPainter
SelectionFrameBrush.Color = 13811126
SelectionFramePen.Color = 6956042
Left = 288
Top = 168
end
object StatusPanelImageList: TPngImageList object StatusPanelImageList: TPngImageList
PngImages = < PngImages = <
item item

3
Source/Cliente/uPantallaPrincipal.pas
View File

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

4
Source/GUIBase/uViewGridBase.pas
View File

@ -435,7 +435,7 @@ begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin 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; AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then if not DirectoryExists(AIniFile) then
@ -458,7 +458,7 @@ begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin 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; AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then if not DirectoryExists(AIniFile) then