• R/O
  • SSH
  • HTTPS

mantisbtmonitor: Commit


Commit MetaInfo

Revision194 (tree)
Zeit2023-08-03 04:37:03
Autorderekwildstar

Log Message

[M129456]
[MantisBT Monitor]

Alterados alguns parâmetros para que eles sejam const, para economizar memória
Incluído mais um parâmetro na função AssignedTasks no qual se informa o id de um usuário do qual se quer obter as tarefas atribuídas. A implementação ainda não foi realizada, apenas o parâmetro foi adicionado

Ändern Zusammenfassung

Diff

--- trunk/client/prj/MantisBTMonitor.dproj (revision 193)
+++ trunk/client/prj/MantisBTMonitor.dproj (revision 194)
@@ -107,12 +107,12 @@
107107 <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
108108 <AppDPIAwarenessMode>PerMonitor</AppDPIAwarenessMode>
109109 <VerInfo_Locale>1033</VerInfo_Locale>
110- <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.3.0.935;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=</VerInfo_Keys>
110+ <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.3.0.938;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=</VerInfo_Keys>
111111 <DCC_DebugInformation>2</DCC_DebugInformation>
112112 <DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
113113 <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
114114 <DCC_MapFile>3</DCC_MapFile>
115- <VerInfo_Build>935</VerInfo_Build>
115+ <VerInfo_Build>938</VerInfo_Build>
116116 <Debugger_RunParams>/desenvolvimento</Debugger_RunParams>
117117 </PropertyGroup>
118118 <ItemGroup>
--- trunk/client/src/lib/UScrapFunctions.pas (revision 193)
+++ trunk/client/src/lib/UScrapFunctions.pas (revision 194)
@@ -45,7 +45,7 @@
4545 function Login(AHandle: Cardinal; AUserName: String; APassword: String; out AUserInfo: TUserInfo): Boolean;
4646 function Logout(AHandle: Cardinal): Boolean;
4747 function GetUserInfo(AHandle: Cardinal; out AUserInfo: TUserInfo): Boolean;
48-function AssignedTasks(AHandle: Cardinal; AFormToBlock: TForm; out ATasks: TTasks; AFullInfo: Boolean = False): Boolean;
48+function AssignedTasks(const AHandle: Cardinal; const AFormToBlock: TForm; out ATasks: TTasks; const AUserId: Cardinal = 0; const AFullInfo: Boolean = False): Boolean;
4949 function TaskDetails(AHandle: Cardinal; AFormToBlock: TForm; var ATask: TTask): Boolean;
5050 function GetAttachmentData(AHandle: Cardinal; AFormToBlock: TForm; AId: Cardinal; out AData: TMemoryStream): Boolean;
5151 function GetCommentForEdition(AHandle: Cardinal; AFormToBlock: TForm; ACommentId: Cardinal; out AComment: String; out AUpdateToken: String): Boolean;
@@ -1576,7 +1576,7 @@
15761576 end;
15771577
15781578 {$WARN SYMBOL_PLATFORM ON}
1579-function AssignedTasks(AHandle: Cardinal; AFormToBlock: TForm; out ATasks: TTasks; AFullInfo: Boolean = False): Boolean;
1579+function AssignedTasks(const AHandle: Cardinal; const AFormToBlock: TForm; out ATasks: TTasks; const AUserId: Cardinal = 0; const AFullInfo: Boolean = False): Boolean;
15801580 var
15811581 Req: TRequestOptions;
15821582 Res: TResponse;
@@ -1594,6 +1594,7 @@
15941594 Req.InternetOpenParams.Agent := 'MantisBT Monitor';
15951595 Req.InternetOpenParams.AccessType := INTERNET_OPEN_TYPE_PRECONFIG;
15961596 Req.InternetConnectParams.ServerName := PChar(Configurations.MantisBTBaseUrl + '/mantis/my_view_page.php');
1597+// /mantis/view_all_set.php?temporary=y&handler_id=238&hide_status=82
15971598 Req.InternetConnectParams.Service := INTERNET_SERVICE_HTTP;
15981599 Req.InternetConnectParams.Context := AHandle;
15991600
--- trunk/client/src/lib/UStatusDialog.pas (revision 193)
+++ trunk/client/src/lib/UStatusDialog.pas (revision 194)
@@ -6,8 +6,8 @@
66 uses
77 KRK.Vcl.Dialogs, Vcl.Forms;
88
9-function ShowStatusDialog(AFormToBlock: TForm; const AStatusText: String): Boolean; overload;
10-function ShowStatusDialog(AHandle: THandle; const AStatusText: String): Boolean; overload;
9+function ShowStatusDialog(const AFormToBlock: TForm; const AStatusText: String): Boolean; overload;
10+function ShowStatusDialog(const AHandle: THandle; const AStatusText: String): Boolean; overload;
1111 procedure HideStatusDialog;
1212
1313 implementation
@@ -19,7 +19,7 @@
1919 var
2020 StatusDialog: TKRKStatusDialog;
2121
22-function ShowStatusDialog(AFormToBlock: TForm; const AStatusText: String): Boolean;
22+function ShowStatusDialog(const AFormToBlock: TForm; const AStatusText: String): Boolean;
2323 var
2424 Handle: THandle;
2525 begin
@@ -31,7 +31,7 @@
3131 Result := ShowStatusDialog(Handle,AStatusText);
3232 end;
3333
34-function ShowStatusDialog(AHandle: THandle; const AStatusText: String): Boolean;
34+function ShowStatusDialog(const AHandle: THandle; const AStatusText: String): Boolean;
3535 begin
3636 Result := (AHandle = 0) or StatusDialog.Show(AHandle);
3737
Show on old repository browser