mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-22 09:12:19 -05:00
bedc0fa2a5
I started to work on a Bug Report form, but came to the conclusion, have no way of posting the information. Wizzup, could you please post on the new thread about how to post to Mantis if you know? I wrote up some new code for a new internets.pas currently in (newinternets.pas, whooda thunk?) Its good, just needs some crucial things like physically openning the connections and closing them. I added PostHTTP stuff, and need more ideas, I worked through Indy and found the right things so.. yeah! Oh, and I added some more icons to the MainMenu from famfam. Just to reiterate, the new AboutForm is a template, and the Image is copyrighted and will have to change. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@406 3f818213-9676-44b0-a9b4-5e4c4e03d09d
77 lines
1.5 KiB
ObjectPascal
77 lines
1.5 KiB
ObjectPascal
unit reportbug;
|
|
|
|
{$mode objfpc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, StdCtrls, Controls, Graphics, Dialogs, LResources,
|
|
ComCtrls;
|
|
|
|
type
|
|
|
|
{ TFormReportBug }
|
|
|
|
TFormReportBug = class(TForm)
|
|
ButtonCancel: TButton;
|
|
ButtonReport: TButton;
|
|
ComboBoxCategory: TComboBox;
|
|
ComboBoxPriority: TComboBox;
|
|
ComboBoxReproducibility: TComboBox;
|
|
ComboBoxSeverity: TComboBox;
|
|
GroupBoxReportData: TGroupBox;
|
|
LabelSummary: TLabel;
|
|
LabelDescription: TLabel;
|
|
LabelTitle: TLabel;
|
|
MemoSummary: TMemo;
|
|
MemoDescription: TMemo;
|
|
procedure ButtonCancelClick(Sender: TObject);
|
|
procedure ButtonReportClick(Sender: TObject);
|
|
private
|
|
// mantis page
|
|
PostPage: String;
|
|
URLFormat: String;
|
|
function PostReport: Boolean;
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
FormReportBug: TFormReportBug;
|
|
|
|
implementation
|
|
uses
|
|
httpsend;
|
|
{ TFormReportBug }
|
|
|
|
procedure TFormReportBug.ButtonCancelClick(Sender: TObject);
|
|
begin
|
|
Self.ModalResult := mrCancel;
|
|
Self.Hide;
|
|
end;
|
|
|
|
function TFormReportBug.postReport: Boolean;
|
|
begin
|
|
// newinternets.pas will allow this to work! :D
|
|
result := false;
|
|
end;
|
|
|
|
procedure TFormReportBug.ButtonReportClick(Sender: TObject);
|
|
begin
|
|
{ Send Report Data }
|
|
{
|
|
need to implement the sending of data, I am assuming that mantis uses POST
|
|
variables when sending data, but I do not know. This needs to be found out.
|
|
}
|
|
Writeln('HAI YOU CLICKED THE BUTTON!');
|
|
Self.postReport;
|
|
|
|
end;
|
|
|
|
initialization
|
|
{$I reportbug.lrs}
|
|
|
|
end.
|
|
|