moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-10 19:35:10 -05:00
Code Issues Releases Wiki Activity

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).

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@418 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2010-01-16 00:16:49 +00:00
parent 294c1dc600
commit 6f7961e69d
8 changed files with 4 additions and 295 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Images/bug.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 746 B

BIN
Images/help.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 786 B

2
Images/license.txt
View File

@ -1,5 +1,5 @@
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/
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

4
Projects/SAMufasaGUI/project1.lpr
View File

@ -31,8 +31,7 @@ uses
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
LResources, Forms, testunit, colourhistory, About, internets, debugimage,
framefunctionlist, simpleanalyzer, updater, updateform, simbasettings,
reportbug;
framefunctionlist, simpleanalyzer, updater, updateform, simbasettings;
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
begin
@ -46,7 +45,6 @@ begin
Application.CreateForm(TDebugImgForm, DebugImgForm);
Application.CreateForm(TSimbaUpdateForm, SimbaUpdateForm);
Application.CreateForm(TSettingsForm, SettingsForm);
Application.CreateForm(TFormReportBug, FormReportBug);
Application.Run;
end.

170
Projects/SAMufasaGUI/reportbug.lfm
View File

@ -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

43
Projects/SAMufasaGUI/reportbug.lrs
View File

@ -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
]);

76
Projects/SAMufasaGUI/reportbug.pas
View File

@ -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.

4
Projects/SAMufasaGUI/testunit.pas
View File

@ -40,7 +40,7 @@ uses
SynExportHTML,
SynEditKeyCmds, SynEditHighlighter, SynEditMarkupSpecialLine,SynEditMarkupHighAll,
SynEditMiscClasses, LMessages, Buttons, PairSplitter,about, framefunctionlist,
ocr, updateform, simbasettings, reportbug;
ocr, updateform, simbasettings;
const
SimbaVersion = 413;
@ -1484,7 +1484,7 @@ end;
procedure TForm1.MenuItemReportBugClick(Sender: TObject);
begin
FormReportBug.Show;
OpenURL('http://old.villavu.com/mantis/bug_report_page.php');
end;
procedure TForm1.MenuItemShowClick(Sender: TObject);