mirror of
https://github.com/moparisthebest/Simba
synced 2025-01-31 07:10:28 -05:00
Sorry nava, but I don't think that we can make the mantis work from inside Simba.. It's just a big hasle with al those post variables, better to just open the link in browser (like now).
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@418 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond
parent
294c1dc600
commit
6f7961e69d
BIN
Images/bug.png
Normal file
BIN
Images/bug.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 746 B |
BIN
Images/help.png
Normal file
BIN
Images/help.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 786 B |
@ -1,5 +1,5 @@
|
|||||||
pause,stop: From Lazarus (http://lazarus.freepascal.org)
|
pause,stop: From Lazarus (http://lazarus.freepascal.org)
|
||||||
exit,cut,new,open,paste,redo,run,save,undo: Mark James http://www.famfamfam.com/lab/icons/silk/
|
exit,cut,new,open,paste,redo,run,save,undo,help,bug: Mark James http://www.famfamfam.com/lab/icons/silk/
|
||||||
closetab,closetabs,addtab,eraser,terminate: Yusuke Kamiyamane http://www.pinvoke.com/
|
closetab,closetabs,addtab,eraser,terminate: Yusuke Kamiyamane http://www.pinvoke.com/
|
||||||
pickcolor: From the Crystal Clear Project (http://www.everaldo.com/crystal/) licensed under LGPL
|
pickcolor: From the Crystal Clear Project (http://www.everaldo.com/crystal/) licensed under LGPL
|
||||||
crosshair: http://led24.de/iconset/ or http://led24.de/ would be appreciated. Follow us on twitter http://twitter.com/gasyoun or email leds24@gmail.com 512 icons 20/05/2009
|
crosshair: http://led24.de/iconset/ or http://led24.de/ would be appreciated. Follow us on twitter http://twitter.com/gasyoun or email leds24@gmail.com 512 icons 20/05/2009
|
||||||
|
|||||||
@ -31,8 +31,7 @@ uses
|
|||||||
{$ENDIF}{$ENDIF}
|
{$ENDIF}{$ENDIF}
|
||||||
Interfaces, // this includes the LCL widgetset
|
Interfaces, // this includes the LCL widgetset
|
||||||
LResources, Forms, testunit, colourhistory, About, internets, debugimage,
|
LResources, Forms, testunit, colourhistory, About, internets, debugimage,
|
||||||
framefunctionlist, simpleanalyzer, updater, updateform, simbasettings,
|
framefunctionlist, simpleanalyzer, updater, updateform, simbasettings;
|
||||||
reportbug;
|
|
||||||
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
|
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
|
||||||
|
|
||||||
begin
|
begin
|
||||||
@ -46,7 +45,6 @@ begin
|
|||||||
Application.CreateForm(TDebugImgForm, DebugImgForm);
|
Application.CreateForm(TDebugImgForm, DebugImgForm);
|
||||||
Application.CreateForm(TSimbaUpdateForm, SimbaUpdateForm);
|
Application.CreateForm(TSimbaUpdateForm, SimbaUpdateForm);
|
||||||
Application.CreateForm(TSettingsForm, SettingsForm);
|
Application.CreateForm(TSettingsForm, SettingsForm);
|
||||||
Application.CreateForm(TFormReportBug, FormReportBug);
|
|
||||||
Application.Run;
|
Application.Run;
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|||||||
@ -1,170 +0,0 @@
|
|||||||
object FormReportBug: TFormReportBug
|
|
||||||
Left = 563
|
|
||||||
Height = 400
|
|
||||||
Top = 164
|
|
||||||
Width = 600
|
|
||||||
ActiveControl = MemoSummary
|
|
||||||
Caption = 'Report a Bug'
|
|
||||||
ClientHeight = 400
|
|
||||||
ClientWidth = 600
|
|
||||||
LCLVersion = '0.9.29'
|
|
||||||
object ButtonReport: TButton
|
|
||||||
Left = 16
|
|
||||||
Height = 25
|
|
||||||
Top = 368
|
|
||||||
Width = 75
|
|
||||||
Caption = 'Report'
|
|
||||||
OnClick = ButtonReportClick
|
|
||||||
TabOrder = 0
|
|
||||||
end
|
|
||||||
object MemoDescription: TMemo
|
|
||||||
Left = 9
|
|
||||||
Height = 168
|
|
||||||
Top = 192
|
|
||||||
Width = 300
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
object LabelTitle: TLabel
|
|
||||||
Left = 10
|
|
||||||
Height = 20
|
|
||||||
Top = 12
|
|
||||||
Width = 105
|
|
||||||
Caption = 'Report a Bug'
|
|
||||||
Font.Height = -17
|
|
||||||
Font.Name = 'Sans'
|
|
||||||
ParentColor = False
|
|
||||||
ParentFont = False
|
|
||||||
end
|
|
||||||
object GroupBoxReportData: TGroupBox
|
|
||||||
Left = 328
|
|
||||||
Height = 318
|
|
||||||
Top = 42
|
|
||||||
Width = 264
|
|
||||||
Caption = 'Report Data'
|
|
||||||
ClientHeight = 299
|
|
||||||
ClientWidth = 260
|
|
||||||
TabOrder = 2
|
|
||||||
object ComboBoxCategory: TComboBox
|
|
||||||
Left = 9
|
|
||||||
Height = 29
|
|
||||||
Top = 21
|
|
||||||
Width = 237
|
|
||||||
ItemHeight = 0
|
|
||||||
ItemIndex = 0
|
|
||||||
Items.Strings = (
|
|
||||||
'Select Category'
|
|
||||||
'Bitmaps'
|
|
||||||
'Client-Image Core'
|
|
||||||
'Code Completion'
|
|
||||||
'Colour History'
|
|
||||||
'Colour Picker'
|
|
||||||
'Colour Recognition'
|
|
||||||
'DTM'
|
|
||||||
'File System'
|
|
||||||
'Function List'
|
|
||||||
'General'
|
|
||||||
'GUI'
|
|
||||||
'Input '
|
|
||||||
'Internet Functions'
|
|
||||||
'Other'
|
|
||||||
'Python'
|
|
||||||
'Scripting Engine'
|
|
||||||
)
|
|
||||||
TabOrder = 0
|
|
||||||
Text = 'Select Category'
|
|
||||||
end
|
|
||||||
object ComboBoxReproducibility: TComboBox
|
|
||||||
Left = 9
|
|
||||||
Height = 29
|
|
||||||
Top = 93
|
|
||||||
Width = 237
|
|
||||||
ItemHeight = 0
|
|
||||||
ItemIndex = 0
|
|
||||||
Items.Strings = (
|
|
||||||
'Reproducibility'
|
|
||||||
'Always'
|
|
||||||
'Sometimes'
|
|
||||||
'Random'
|
|
||||||
'Have not tried'
|
|
||||||
'Unable to Reproduce'
|
|
||||||
'N/A'
|
|
||||||
)
|
|
||||||
TabOrder = 1
|
|
||||||
Text = 'Reproducibility'
|
|
||||||
end
|
|
||||||
object ComboBoxSeverity: TComboBox
|
|
||||||
Left = 9
|
|
||||||
Height = 29
|
|
||||||
Top = 173
|
|
||||||
Width = 237
|
|
||||||
BidiMode = bdRightToLeftReadingOnly
|
|
||||||
ItemHeight = 0
|
|
||||||
ItemIndex = 0
|
|
||||||
Items.Strings = (
|
|
||||||
'Severity'
|
|
||||||
'Feature'
|
|
||||||
'Trivial'
|
|
||||||
'Text'
|
|
||||||
'Tweak'
|
|
||||||
'Minor'
|
|
||||||
'Major'
|
|
||||||
'Crash'
|
|
||||||
'Block'
|
|
||||||
)
|
|
||||||
ParentBidiMode = False
|
|
||||||
TabOrder = 2
|
|
||||||
Text = 'Severity'
|
|
||||||
end
|
|
||||||
object ComboBoxPriority: TComboBox
|
|
||||||
Left = 9
|
|
||||||
Height = 29
|
|
||||||
Top = 253
|
|
||||||
Width = 237
|
|
||||||
ItemHeight = 0
|
|
||||||
ItemIndex = 0
|
|
||||||
Items.Strings = (
|
|
||||||
'Priority'
|
|
||||||
'None'
|
|
||||||
'Low'
|
|
||||||
'Normal'
|
|
||||||
'High'
|
|
||||||
'Urgent'
|
|
||||||
'Immediate'
|
|
||||||
)
|
|
||||||
TabOrder = 3
|
|
||||||
Text = 'Priority'
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object MemoSummary: TMemo
|
|
||||||
Left = 9
|
|
||||||
Height = 89
|
|
||||||
Top = 64
|
|
||||||
Width = 300
|
|
||||||
TabOrder = 3
|
|
||||||
end
|
|
||||||
object LabelSummary: TLabel
|
|
||||||
Left = 10
|
|
||||||
Height = 18
|
|
||||||
Top = 42
|
|
||||||
Width = 102
|
|
||||||
Caption = 'Breif Summary:'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object LabelDescription: TLabel
|
|
||||||
Left = 10
|
|
||||||
Height = 18
|
|
||||||
Top = 168
|
|
||||||
Width = 79
|
|
||||||
Caption = 'Description:'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object ButtonCancel: TButton
|
|
||||||
Left = 420
|
|
||||||
Height = 25
|
|
||||||
Top = 368
|
|
||||||
Width = 171
|
|
||||||
Caption = 'Cancel'
|
|
||||||
OnClick = ButtonCancelClick
|
|
||||||
TabOrder = 4
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,43 +0,0 @@
|
|||||||
{ This is an automatically generated lazarus resource file }
|
|
||||||
|
|
||||||
LazarusResources.Add('TFormReportBug','FORMDATA',[
|
|
||||||
'TPF0'#14'TFormReportBug'#13'FormReportBug'#4'Left'#3'3'#2#6'Height'#3#144#1#3
|
|
||||||
+'Top'#3#164#0#5'Width'#3'X'#2#13'ActiveControl'#7#11'MemoSummary'#7'Caption'
|
|
||||||
+#6#12'Report a Bug'#12'ClientHeight'#3#144#1#11'ClientWidth'#3'X'#2#10'LCLVe'
|
|
||||||
+'rsion'#6#6'0.9.29'#0#7'TButton'#12'ButtonReport'#4'Left'#2#16#6'Height'#2#25
|
|
||||||
+#3'Top'#3'p'#1#5'Width'#2'K'#7'Caption'#6#6'Report'#7'OnClick'#7#17'ButtonRe'
|
|
||||||
+'portClick'#8'TabOrder'#2#0#0#0#5'TMemo'#15'MemoDescription'#4'Left'#2#9#6'H'
|
|
||||||
+'eight'#3#168#0#3'Top'#3#192#0#5'Width'#3','#1#8'TabOrder'#2#1#0#0#6'TLabel'
|
|
||||||
+#10'LabelTitle'#4'Left'#2#10#6'Height'#2#20#3'Top'#2#12#5'Width'#2'i'#7'Capt'
|
|
||||||
+'ion'#6#12'Report a Bug'#11'Font.Height'#2#239#9'Font.Name'#6#4'Sans'#11'Par'
|
|
||||||
+'entColor'#8#10'ParentFont'#8#0#0#9'TGroupBox'#18'GroupBoxReportData'#4'Left'
|
|
||||||
+#3'H'#1#6'Height'#3'>'#1#3'Top'#2'*'#5'Width'#3#8#1#7'Caption'#6#11'Report D'
|
|
||||||
+'ata'#12'ClientHeight'#3'+'#1#11'ClientWidth'#3#4#1#8'TabOrder'#2#2#0#9'TCom'
|
|
||||||
+'boBox'#16'ComboBoxCategory'#4'Left'#2#9#6'Height'#2#29#3'Top'#2#21#5'Width'
|
|
||||||
+#3#237#0#10'ItemHeight'#2#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#15'Select'
|
|
||||||
+' Category'#6#7'Bitmaps'#6#17'Client-Image Core'#6#15'Code Completion'#6#14
|
|
||||||
+'Colour History'#6#13'Colour Picker'#6#18'Colour Recognition'#6#3'DTM'#6#11
|
|
||||||
+'File System'#6#13'Function List'#6#7'General'#6#3'GUI'#6#6'Input '#6#18'Int'
|
|
||||||
+'ernet Functions'#6#5'Other'#6#6'Python'#6#16'Scripting Engine'#0#8'TabOrder'
|
|
||||||
+#2#0#4'Text'#6#15'Select Category'#0#0#9'TComboBox'#23'ComboBoxReproducibili'
|
|
||||||
+'ty'#4'Left'#2#9#6'Height'#2#29#3'Top'#2']'#5'Width'#3#237#0#10'ItemHeight'#2
|
|
||||||
+#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#15'Reproducibility'#6#6'Always'#6#9
|
|
||||||
+'Sometimes'#6#6'Random'#6#14'Have not tried'#6#19'Unable to Reproduce'#6#3'N'
|
|
||||||
+'/A'#0#8'TabOrder'#2#1#4'Text'#6#15'Reproducibility'#0#0#9'TComboBox'#16'Com'
|
|
||||||
+'boBoxSeverity'#4'Left'#2#9#6'Height'#2#29#3'Top'#3#173#0#5'Width'#3#237#0#8
|
|
||||||
+'BidiMode'#7#24'bdRightToLeftReadingOnly'#10'ItemHeight'#2#0#9'ItemIndex'#2#0
|
|
||||||
+#13'Items.Strings'#1#6#8'Severity'#6#7'Feature'#6#7'Trivial'#6#4'Text'#6#5'T'
|
|
||||||
+'weak'#6#5'Minor'#6#5'Major'#6#5'Crash'#6#5'Block'#0#14'ParentBidiMode'#8#8
|
|
||||||
+'TabOrder'#2#2#4'Text'#6#8'Severity'#0#0#9'TComboBox'#16'ComboBoxPriority'#4
|
|
||||||
+'Left'#2#9#6'Height'#2#29#3'Top'#3#253#0#5'Width'#3#237#0#10'ItemHeight'#2#0
|
|
||||||
+#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8'Priority'#6#4'None'#6#3'Low'#6#6'N'
|
|
||||||
+'ormal'#6#4'High'#6#6'Urgent'#6#9'Immediate'#0#8'TabOrder'#2#3#4'Text'#6#8'P'
|
|
||||||
+'riority'#0#0#0#5'TMemo'#11'MemoSummary'#4'Left'#2#9#6'Height'#2'Y'#3'Top'#2
|
|
||||||
+'@'#5'Width'#3','#1#8'TabOrder'#2#3#0#0#6'TLabel'#12'LabelSummary'#4'Left'#2
|
|
||||||
+#10#6'Height'#2#18#3'Top'#2'*'#5'Width'#2'f'#7'Caption'#6#14'Breif Summary:'
|
|
||||||
+#11'ParentColor'#8#0#0#6'TLabel'#16'LabelDescription'#4'Left'#2#10#6'Height'
|
|
||||||
+#2#18#3'Top'#3#168#0#5'Width'#2'O'#7'Caption'#6#12'Description:'#11'ParentCo'
|
|
||||||
+'lor'#8#0#0#7'TButton'#12'ButtonCancel'#4'Left'#3#164#1#6'Height'#2#25#3'Top'
|
|
||||||
+#3'p'#1#5'Width'#3#171#0#7'Caption'#6#6'Cancel'#7'OnClick'#7#17'ButtonCancel'
|
|
||||||
+'Click'#8'TabOrder'#2#4#0#0#0
|
|
||||||
]);
|
|
||||||
@ -1,76 +0,0 @@
|
|||||||
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.
|
|
||||||
|
|
||||||
@ -40,7 +40,7 @@ uses
|
|||||||
SynExportHTML,
|
SynExportHTML,
|
||||||
SynEditKeyCmds, SynEditHighlighter, SynEditMarkupSpecialLine,SynEditMarkupHighAll,
|
SynEditKeyCmds, SynEditHighlighter, SynEditMarkupSpecialLine,SynEditMarkupHighAll,
|
||||||
SynEditMiscClasses, LMessages, Buttons, PairSplitter,about, framefunctionlist,
|
SynEditMiscClasses, LMessages, Buttons, PairSplitter,about, framefunctionlist,
|
||||||
ocr, updateform, simbasettings, reportbug;
|
ocr, updateform, simbasettings;
|
||||||
|
|
||||||
const
|
const
|
||||||
SimbaVersion = 413;
|
SimbaVersion = 413;
|
||||||
@ -1484,7 +1484,7 @@ end;
|
|||||||
|
|
||||||
procedure TForm1.MenuItemReportBugClick(Sender: TObject);
|
procedure TForm1.MenuItemReportBugClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
FormReportBug.Show;
|
OpenURL('http://old.villavu.com/mantis/bug_report_page.php');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TForm1.MenuItemShowClick(Sender: TObject);
|
procedure TForm1.MenuItemShowClick(Sender: TObject);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user