moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Simba/SimpleSettings: Initial work. 

Empty form comes up.
This commit is contained in:
Merlijn Wajer 2011-07-29 21:06:09 +02:00
parent 32a6db47c6
commit 65a80382af
7 changed files with 126 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Projects/Simba/Simba.lpi
View File

@ -44,7 +44,7 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="48"> <Units Count="49">
<Unit0> <Unit0>
<Filename Value="Simba.lpr"/> <Filename Value="Simba.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -304,6 +304,13 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="os_linux"/> <UnitName Value="os_linux"/>
</Unit47> </Unit47>
<Unit48>
<Filename Value="simbasettingssimple.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="SettingsSimpleForm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="SimbaSettingsSimple"/>
</Unit48>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
Projects/Simba/Simba.lpr
View File

@ -37,7 +37,7 @@ uses
PSDump, v_ideCodeParser, PSDump, v_ideCodeParser,
v_AutoCompleteForm, CastaliaPasLex, CastaliaPasLexTypes, CastaliaSimplePasPar, v_AutoCompleteForm, CastaliaPasLex, CastaliaPasLexTypes, CastaliaSimplePasPar,
CastaliaSimplePasParTypes, dcpbase64, mPasLex, v_Constants, v_MiscFunctions, CastaliaSimplePasParTypes, dcpbase64, mPasLex, v_Constants, v_MiscFunctions,
mmisc, bitmapconv; mmisc, bitmapconv, SimbaSettingsSimple;
{$R Simba.res} {$R Simba.res}
@ -51,6 +51,7 @@ begin
// Application.CreateForm(TExtensionsForm, ExtensionsForm); // Application.CreateForm(TExtensionsForm, ExtensionsForm);
Application.CreateForm(TBitmapConvForm, BitmapConvForm); Application.CreateForm(TBitmapConvForm, BitmapConvForm);
// Application.CreateForm(TSimbaUpdateForm, SimbaUpdateForm); // Application.CreateForm(TSimbaUpdateForm, SimbaUpdateForm);
// Application.CreateForm(TSettingsSimpleForm, SettingsSimpleForm); Done in FormCreate of MainForm
// Application.CreateForm(TSettingsForm, SettingsForm); Done in FormCreate of MainForm // Application.CreateForm(TSettingsForm, SettingsForm); Done in FormCreate of MainForm
Application.Run; Application.Run;
end. end.

BIN
Projects/Simba/Simba.res
View File

Binary file not shown.

8
Projects/Simba/simbasettingssimple.lfm Normal file
View File

@ -0,0 +1,8 @@
object SettingsSimpleForm: TSettingsSimpleForm
Left = 1459
Height = 240
Top = 127
Width = 320
Caption = 'SettingsSimpleForm'
LCLVersion = '0.9.30.1'
end

29
Projects/Simba/simbasettingssimple.pas Normal file
View File

@ -0,0 +1,29 @@
unit SimbaSettingsSimple;
{$mode objfpc}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
settings { We need this for the Simba Settings API }
;
type
TSettingsSimpleForm = class(TForm)
private
{ private declarations }
public
{ public declarations }
end;
var
SettingsSimpleForm: TSettingsSimpleForm;
implementation
initialization
{$I simbasettingssimple.lrs}
end.

96
Projects/Simba/simbaunit.lfm
View File

@ -1,11 +1,11 @@
object SimbaForm: TSimbaForm object SimbaForm: TSimbaForm
Left = 531 Left = 527
Height = 623 Height = 623
Top = 290 Top = 243
Width = 660 Width = 660
AllowDropFiles = True AllowDropFiles = True
Caption = 'THA FUKING Simba' Caption = 'THA FUKING Simba'
ClientHeight = 603 ClientHeight = 598
ClientWidth = 660 ClientWidth = 660
KeyPreview = True KeyPreview = True
Menu = MainMenu Menu = MainMenu
@ -15,7 +15,7 @@ object SimbaForm: TSimbaForm
OnDropFiles = FormDropFiles OnDropFiles = FormDropFiles
OnHide = doOnHide OnHide = doOnHide
OnShortCut = FormShortCuts OnShortCut = FormShortCuts
LCLVersion = '0.9.31' LCLVersion = '0.9.30.1'
Visible = True Visible = True
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
@ -207,8 +207,8 @@ object SimbaForm: TSimbaForm
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 21
Top = 580 Top = 577
Width = 660 Width = 660
Panels = < Panels = <
item item
@ -230,7 +230,7 @@ object SimbaForm: TSimbaForm
object PanelMemo: TPanel object PanelMemo: TPanel
Left = 0 Left = 0
Height = 154 Height = 154
Top = 426 Top = 423
Width = 660 Width = 660
Align = alBottom Align = alBottom
ClientHeight = 154 ClientHeight = 154
@ -253,19 +253,19 @@ object SimbaForm: TSimbaForm
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 421 Top = 418
Width = 660 Width = 660
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
end end
object ScriptPanel: TPanel object ScriptPanel: TPanel
Left = 0 Left = 0
Height = 397 Height = 394
Top = 24 Top = 24
Width = 660 Width = 660
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 397 ClientHeight = 394
ClientWidth = 660 ClientWidth = 660
DockSite = True DockSite = True
TabOrder = 4 TabOrder = 4
@ -273,7 +273,7 @@ object SimbaForm: TSimbaForm
OnDockOver = ScriptPanelDockOver OnDockOver = ScriptPanelDockOver
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 155 Left = 155
Height = 362 Height = 359
Top = 0 Top = 0
Width = 505 Width = 505
Align = alClient Align = alClient
@ -292,7 +292,7 @@ object SimbaForm: TSimbaForm
object SearchPanel: TPanel object SearchPanel: TPanel
Left = 0 Left = 0
Height = 35 Height = 35
Top = 362 Top = 359
Width = 660 Width = 660
Align = alBottom Align = alBottom
BevelOuter = bvSpace BevelOuter = bvSpace
@ -387,7 +387,7 @@ object SimbaForm: TSimbaForm
end end
object LabeledEditSearch: TLabeledEdit object LabeledEditSearch: TLabeledEdit
Left = 104 Left = 104
Height = 23 Height = 27
Top = 6 Top = 6
Width = 80 Width = 80
EditLabel.AnchorSideLeft.Control = LabeledEditSearch EditLabel.AnchorSideLeft.Control = LabeledEditSearch
@ -395,10 +395,10 @@ object SimbaForm: TSimbaForm
EditLabel.AnchorSideTop.Side = asrCenter EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = LabeledEditSearch EditLabel.AnchorSideRight.Control = LabeledEditSearch
EditLabel.AnchorSideBottom.Control = LabeledEditSearch EditLabel.AnchorSideBottom.Control = LabeledEditSearch
EditLabel.Left = 71 EditLabel.Left = 67
EditLabel.Height = 16 EditLabel.Height = 18
EditLabel.Top = 9 EditLabel.Top = 10
EditLabel.Width = 30 EditLabel.Width = 34
EditLabel.Caption = 'Find: ' EditLabel.Caption = 'Find: '
EditLabel.ParentColor = False EditLabel.ParentColor = False
LabelPosition = lpLeft LabelPosition = lpLeft
@ -411,9 +411,9 @@ object SimbaForm: TSimbaForm
end end
object CheckBoxMatchCase: TCheckBox object CheckBoxMatchCase: TCheckBox
Left = 320 Left = 320
Height = 19 Height = 22
Top = 7 Top = 7
Width = 80 Width = 97
Caption = 'Match case' Caption = 'Match case'
OnClick = CheckBoxMatchCaseClick OnClick = CheckBoxMatchCaseClick
TabOrder = 1 TabOrder = 1
@ -421,38 +421,38 @@ object SimbaForm: TSimbaForm
end end
object SplitterFunctionList: TSplitter object SplitterFunctionList: TSplitter
Left = 150 Left = 150
Height = 362 Height = 359
Top = 0 Top = 0
Width = 5 Width = 5
OnCanResize = SplitterFunctionListCanResize OnCanResize = SplitterFunctionListCanResize
Visible = False Visible = False
end end
inline frmFunctionList: TFunctionListFrame inline frmFunctionList: TFunctionListFrame
Height = 362 Height = 359
Width = 150 Width = 150
ClientHeight = 362 ClientHeight = 359
ClientWidth = 150 ClientWidth = 150
OnEndDock = nil OnEndDock = nil
TabOrder = 3 TabOrder = 3
inherited FunctionList: TTreeView inherited FunctionList: TTreeView
Height = 319 Height = 310
Top = 20 Top = 22
Width = 150 Width = 150
DefaultItemHeight = 17 DefaultItemHeight = 19
OnChange = FunctionListChange OnChange = FunctionListChange
OnEnter = FunctionListEnter OnEnter = FunctionListEnter
OnExit = FunctionListExit OnExit = FunctionListExit
end end
inherited editSearchList: TEdit inherited editSearchList: TEdit
Height = 23 Height = 27
Top = 339 Top = 332
Width = 150 Width = 150
OnExit = editSearchListExit OnExit = editSearchListExit
OnKeyDown = editSearchListKeyDown OnKeyDown = editSearchListKeyDown
OnKeyPress = editSearchListKeyPress OnKeyPress = editSearchListKeyPress
end end
inherited FunctionListLabel: TLabel inherited FunctionListLabel: TLabel
Height = 16 Height = 18
Width = 146 Width = 146
end end
end end
@ -1415,6 +1415,46 @@ object SimbaForm: TSimbaForm
} }
OnClick = MenuItemSettingsButtonClick OnClick = MenuItemSettingsButtonClick
end end
object MenuItemSettingsSimpleButton: TMenuItem
Caption = 'Settings (Simple)'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000AEA9A800BAB3
B300B0A9A91F979494729B979756807D7D05ADA9A400B4B0AB00B3AFAA00B3AF
AA00B3AFAA00B4B0AB00B1ADA800928F8D008C8A880087858300ADA8A700ADA8
A700A6A1A044AFADADFFC0BFBFE99796957EA8A49F05B2AEAA00B1ADA800B1AD
A800B1ADA800B2AEA900AFABA600928F8D008C8A880087858300ABA6A4239898
97129C9895029E9B9AA2B5B5B5FFC6C6C6FFA9A8A67B9F9F9F00A1A0A000A1A0
A000A1A0A000A2A2A2009C9B9A008F8C8A008C8B890087858300A5A19FB5B3B3
B2D08D8B8A2B807D7C549A9999FEB9B9B9FFAEADADC59B9B9B009D9D9D009D9D
9D009E9E9E009A9A9A008F8D8C00908D8B008C8B8900878583009C9998C8D2D2
D1FFABAAA9F88B8989FBB7B6B6FFB7B7B7FFA7A6A6E88987852B8C8987008D8B
89008D8C8A00888684008B888700908E8C008C8B8900878583009F9D9D8BAEAE
AEFFBABABAFFBCBCBCFFBABBBBFFB6B7B7FFC8C9C9FFB9B7B6E1858280298B88
86008C8A8800888583008C898800908E8C008C8B8900878583009F9E9E0EA1A0
A1A1B0B0AFFAB3B2B2FFB9B9B9FFB5B6B6FFB7B7B8FFD9D9D9FFBAB7B6DE8582
80278C898700888583008C898800908E8C008C8B890087858300A19F9F009D9D
9D009B9A9A2F94929151979694ABB2B2B2FFABABACFFB7B7B7FFDCDDDCFFB9B7
B5DD86838127878482008C898800908E8C008C8B890087858300A19F9F009E9E
9E009B9A9A0092908F0082807E049C9A99A6BCBCBCFFB0B0B0FFB7B8B7FFE0E0
DFFFB9B7B6DD8481805D8B8987428D8B89008C8B890087858300A19F9F009E9E
9E009B9A9A00939190008684820085838204A19F9FA6C0C0C0FFAFAFAFFFB6B6
B6FFE0E0DFFFB9B8B8FFB7B6B6FFA2A1A0A88A88860986848200A19F9F009E9E
9E009B9A9A0093908F00858380008887850088868505A1A09FA8BCBDBCFFABAB
ABFFBCBCBCFFC8C7C7FFC7C6C7FFC9C8C8FF9C9B9A898886840FA19F9F009E9E
9E009B9A9900969493008F8E8C0091908F009493920091909006ABAAAAC3C2C2
C2FFC9C8C9FFC8C8C8FFBEBEBEFFCFCFCFFFB3B3B2E19B9B9A45A19F9F009E9E
9E009A9998009B9A99009D9D9D009D9D9C009D9C9C009B9B9B00A3A2A190C7C6
C6FFC4C4C4FFA6A0A1889D989953B2B1B0BBBEBEBDF49F9E9E509F9D9D009C9C
9C009B9B9B009A9A9A009A9A9A009A9A9A009A9A9A00999999009D9D9C61C2C2
C1FFC7C8C8FFA3A1A0958D8A89008D8B8A0E9C9B9B6EA09F9F28ABA9A800AAA9
A800ABA9A900ABA9A900ABA9A900ABA9A900ABA9A900ABA9A900A9A8A709AEAC
ACB2C4C4C4FFD6D7D6FF9B9A98828583820099999800A0A0A000C3BEBD00C3BE
BD00C3BEBD00C3BEBD00C3BEBD00C3BEBD00C3BEBD00C3BEBD00C5C0BF00A9A6
A502A5A29F4DA7A6A471A6A5A53C9E9D9D009E9D9D009F9F9F00
}
OnClick = MenuItemSettingsSimpleButtonClick
end
object MenuItemBitmapConv: TMenuItem object MenuItemBitmapConv: TMenuItem
Caption = '&Bitmap conversion' Caption = '&Bitmap conversion'
Bitmap.Data = { Bitmap.Data = {

12
Projects/Simba/simbaunit.pas
View File

@ -51,7 +51,7 @@ uses
SynExportHTML, SynEditKeyCmds, SynEditHighlighter, SynExportHTML, SynEditKeyCmds, SynEditHighlighter,
SynEditMarkupHighAll, LMessages, Buttons, SynEditMarkupHighAll, LMessages, Buttons,
mmisc, stringutil,mufasatypesutil, mufasabase, mmisc, stringutil,mufasatypesutil, mufasabase,
about, framefunctionlist, ocr, updateform, Simbasettings, about, framefunctionlist, ocr, updateform, Simbasettings, SimbaSettingsSimple,
{$IFDEF USE_EXTENSIONS}psextension, virtualextension, extensionmanager,{$ENDIF} {$IFDEF USE_EXTENSIONS}psextension, virtualextension, extensionmanager,{$ENDIF}
settingssandbox, settingssandbox,
@ -146,6 +146,7 @@ type
MenuHelp: TMenuItem; MenuHelp: TMenuItem;
MenuDivider7: TMenuItem; MenuDivider7: TMenuItem;
MenuInterpreters: TMenuItem; MenuInterpreters: TMenuItem;
MenuItemSettingsSimpleButton: TMenuItem;
MenuItemReadOnlyTab: TMenuItem; MenuItemReadOnlyTab: TMenuItem;
MenuItemGoto: TMenuItem; MenuItemGoto: TMenuItem;
MenuItemDivider50: TMenuItem; MenuItemDivider50: TMenuItem;
@ -347,6 +348,7 @@ type
procedure MenuItemOpenScriptsFolderClick(Sender: TObject); procedure MenuItemOpenScriptsFolderClick(Sender: TObject);
procedure MenuItemReportBugClick(Sender: TObject); procedure MenuItemReportBugClick(Sender: TObject);
procedure MenuItemSettingsButtonClick(Sender: TObject); procedure MenuItemSettingsButtonClick(Sender: TObject);
procedure MenuItemSettingsSimpleButtonClick(Sender: TObject);
procedure MenuItemShowClick(Sender: TObject); procedure MenuItemShowClick(Sender: TObject);
procedure MenuItemTabCloseClick(Sender: TObject); procedure MenuItemTabCloseClick(Sender: TObject);
procedure MenuItemTabCloseOthersClick(Sender: TObject); procedure MenuItemTabCloseOthersClick(Sender: TObject);
@ -2448,10 +2450,13 @@ begin
if FileExistsUTF8(SimbaSettingsFile) then if FileExistsUTF8(SimbaSettingsFile) then
begin begin
Application.CreateForm(TSettingsForm,SettingsForm); Application.CreateForm(TSettingsForm,SettingsForm);
Application.CreateForm(TSettingsSimpleForm,SettingsSimpleForm);
Self.LoadFormSettings; Self.LoadFormSettings;
end else end else
begin begin
Application.CreateForm(TSettingsForm,SettingsForm); Application.CreateForm(TSettingsForm,SettingsForm);
Application.CreateForm(TSettingsSimpleForm,SettingsSimpleForm);
Self.CreateDefaultEnvironment; Self.CreateDefaultEnvironment;
FillThread.StartWait:= 250; FillThread.StartWait:= 250;
@ -2778,6 +2783,11 @@ begin
SettingsForm.ShowModal; SettingsForm.ShowModal;
end; end;
procedure TSimbaForm.MenuItemSettingsSimpleButtonClick(Sender: TObject);
begin
SettingsSimpleForm.ShowModal;
end;
procedure TSimbaForm.MenuItemShowClick(Sender: TObject); procedure TSimbaForm.MenuItemShowClick(Sender: TObject);
begin begin
Self.Show; Self.Show;