WebSVN – fastphp – Blame – /trunk/EditorMain.pas

Rev	Author	Line No.	Line
94	daniel-mar	1	unit EditorMain;
2	daniel-mar	2
25	daniel-mar	3	{$Include 'FastPHP.inc'}
		4
4	daniel-mar	5	(*
		6	This program requires
		7	- Microsoft Internet Controls (TWebBrowser)
		8	If you are using Delphi 10.1 Starter Edition, please import the ActiveX TLB
		9	"Microsoft Internet Controls"
		10	- SynEdit
		11	You can obtain SynEdit via Embarcadero GetIt
		12	*)
		13
91	daniel-mar	14	// TODO: "crHourGlass" does not work if F9 is pressed!
72	daniel-mar	15	// TODO: if a scrapfile is already open, create a new scrap file (scrap2.php)
2	daniel-mar	16	// TODO: localize
		17	// TODO: wieso geht copy paste im twebbrowser nicht???
49	daniel-mar	18	// TODO: Wieso dauert webbrowser1 erste kompilierung so lange???
5	daniel-mar	19	// TODO: wieso kommt syntax fehler zweimal? einmal stderr einmal stdout?
		20	// TODO: Browser titlebar (link preview)
49	daniel-mar	21	// TODO: "jump to next/prev todo" buttons/shortcuts
		22	// TODO: "increase/decrease indent" buttons/shortcuts
96	daniel-mar	23	// TODO: Solve all compiler warnings, especially in regards Encoding
2	daniel-mar	24
94	daniel-mar	25	// Note in re Unicode:
		26	// - In Embarcadero® Delphi 10.4 Version 27.0.40680.4203:
		27	// SynEdit correctly detects UTF-8 files without BOM as well as ANSI files with Umlauts.
		28	// (Previous versions could not detect UTF-8 files without BOM?!)
		29	// - If BOM is existing, it will be removed. (which is good, because this is defined by PSR-1)
		30
63	daniel-mar	31	// Small things:
		32	// - The scroll bars of SynEdit are not affected by the dark theme
96	daniel-mar	33	// - dark theme full screen: doubleclick to desktop pixel "0,0" cannot be used to close the app
63	daniel-mar	34
2	daniel-mar	35	// Future ideas
31	daniel-mar	36	// - code insight
2	daniel-mar	37	// - verschiedene php versionen?
94	daniel-mar	38	// - webbrowser1 nur laden, wenn man den tab anw�hlt?
		39	// - doppelklick auf tab soll diesen schlie�en
91	daniel-mar	40	// - Onlinehelp (www) aufrufen oder CHM datei
13	daniel-mar	41	// - Let all colors be adjustable
21	daniel-mar	42	// - code in bildschirmmitte (horizontal)?
72	daniel-mar	43	// - search in files of a directory
91	daniel-mar	44	// - Files in multiple tabs?
		45	// - Configurable tabulator display-width
2	daniel-mar	46
		47	interface
		48
		49	uses
27	daniel-mar	50	// TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2
2	daniel-mar	51	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
4	daniel-mar	52	Dialogs, StdCtrls, OleCtrls, ComCtrls, ExtCtrls, ToolWin, IniFiles,
80	daniel-mar	53	SynEditHighlighter, SynHighlighterPHP, SynEdit, ShDocVw, FindReplace,
45	daniel-mar	54	ActnList, SynEditMiscClasses, SynEditSearch, RunPHP, ImgList, SynUnicode,
94	daniel-mar	55	System.ImageList, System.Actions, Vcl.Menus, Vcl.Themes, System.UITypes,
		56	SynEditCodeFolding;
2	daniel-mar	57
23	daniel-mar	58	{.$DEFINE OnlineHelp}
		59
2	daniel-mar	60	type
		61	TForm1 = class(TForm)
		62	PageControl1: TPageControl;
		63	PlaintextTabSheet: TTabSheet;
		64	HtmlTabSheet: TTabSheet;
		65	Memo2: TMemo;
		66	WebBrowser1: TWebBrowser;
		67	Splitter1: TSplitter;
		68	PageControl2: TPageControl;
20	daniel-mar	69	CodeTabsheet: TTabSheet;
2	daniel-mar	70	HelpTabsheet: TTabSheet;
		71	WebBrowser2: TWebBrowser;
		72	OpenDialog1: TOpenDialog;
		73	Panel1: TPanel;
		74	OpenDialog3: TOpenDialog;
4	daniel-mar	75	SynEdit1: TSynEdit;
		76	SynPHPSyn1: TSynPHPSyn;
5	daniel-mar	77	Panel2: TPanel;
		78	SynEditFocusTimer: TTimer;
		79	Button1: TButton;
		80	Button2: TButton;
		81	Button3: TButton;
13	daniel-mar	82	Button4: TButton;
		83	Button5: TButton;
		84	Button6: TButton;
		85	ActionList: TActionList;
		86	ActionFind: TAction;
		87	ActionReplace: TAction;
		88	ActionFindNext: TAction;
		89	ActionGoto: TAction;
		90	ActionSave: TAction;
		91	ActionHelp: TAction;
		92	ActionRun: TAction;
		93	ActionESC: TAction;
		94	Button7: TButton;
15	daniel-mar	95	ActionOpen: TAction;
		96	Button8: TButton;
22	daniel-mar	97	Button9: TButton;
		98	ActionFindPrev: TAction;
23	daniel-mar	99	Timer1: TTimer;
		100	ActionSpaceToTab: TAction;
		101	Button11: TButton;
24	daniel-mar	102	SynEditSearch1: TSynEditSearch;
27	daniel-mar	103	TreeView1: TTreeView;
26	daniel-mar	104	Splitter2: TSplitter;
33	daniel-mar	105	btnLint: TButton;
		106	ActionLint: TAction;
36	daniel-mar	107	ImageList1: TImageList;
45	daniel-mar	108	RunPopup: TPopupMenu;
		109	OpeninIDE1: TMenuItem;
		110	ActionRunConsole: TAction;
		111	Runinconsole1: TMenuItem;
56	daniel-mar	112	SavePopup: TPopupMenu;
		113	Saveas1: TMenuItem;
		114	Save1: TMenuItem;
		115	SaveDialog1: TSaveDialog;
57	daniel-mar	116	BtnSpecialChars: TImage;
		117	BtnSpecialCharsOff: TImage;
		118	BtnSpecialCharsOn: TImage;
62	daniel-mar	119	BtnLightOn: TImage;
		120	BtnLightOff: TImage;
		121	BtnLight: TImage;
		122	StartUpTimer: TTimer;
83	daniel-mar	123	FileModTimer: TTimer;
87	daniel-mar	124	GotoPHPdir1: TMenuItem;
		125	PHPShell1: TMenuItem;
91	daniel-mar	126	ActionSaveAs: TAction;
		127	ActionGoToPHPDir: TAction;
		128	ActionPHPInteractiveShell: TAction;
99	daniel-mar	129	FontSizeTimer: TTimer;
2	daniel-mar	130	procedure Run(Sender: TObject);
45	daniel-mar	131	procedure RunConsole(Sender: TObject);
2	daniel-mar	132	procedure FormShow(Sender: TObject);
		133	procedure FormCreate(Sender: TObject);
		134	procedure FormDestroy(Sender: TObject);
		135	procedure FormClose(Sender: TObject; var Action: TCloseAction);
		136	procedure PageControl2Changing(Sender: TObject; var AllowChange: Boolean);
5	daniel-mar	137	procedure Memo2DblClick(Sender: TObject);
45	daniel-mar	138	(*
44	daniel-mar	139	{$IFDEF USE_SHDOCVW_TLB}
45	daniel-mar	140	*)
5	daniel-mar	141	procedure WebBrowser1BeforeNavigate2(ASender: TObject;
27	daniel-mar	142	const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
5	daniel-mar	143	Headers: OleVariant; var Cancel: WordBool);
45	daniel-mar	144	(*
44	daniel-mar	145	{$ELSE}
		146	procedure WebBrowser1BeforeNavigate2(ASender: TObject;
		147	const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
		148	Headers: OleVariant; var Cancel: WordBool);
		149	{$ENDIF}
45	daniel-mar	150	*)
44	daniel-mar	151	procedure BeforeNavigate(const URL: OleVariant; var Cancel: WordBool);
5	daniel-mar	152	procedure SynEditFocusTimerTimer(Sender: TObject);
13	daniel-mar	153	procedure ActionFindExecute(Sender: TObject);
		154	procedure ActionReplaceExecute(Sender: TObject);
		155	procedure ActionFindNextExecute(Sender: TObject);
		156	procedure ActionGotoExecute(Sender: TObject);
		157	procedure ActionSaveExecute(Sender: TObject);
		158	procedure ActionHelpExecute(Sender: TObject);
		159	procedure ActionRunExecute(Sender: TObject);
		160	procedure ActionESCExecute(Sender: TObject);
		161	procedure SynEdit1MouseWheelDown(Sender: TObject; Shift: TShiftState;
		162	MousePos: TPoint; var Handled: Boolean);
		163	procedure SynEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;
		164	MousePos: TPoint; var Handled: Boolean);
15	daniel-mar	165	procedure ActionOpenExecute(Sender: TObject);
		166	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
17	daniel-mar	167	procedure Memo2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
22	daniel-mar	168	procedure ActionFindPrevExecute(Sender: TObject);
23	daniel-mar	169	procedure SynEdit1MouseCursor(Sender: TObject;
		170	const aLineCharPos: TBufferCoord; var aCursor: TCursor);
		171	procedure Timer1Timer(Sender: TObject);
		172	procedure ActionSpaceToTabExecute(Sender: TObject);
27	daniel-mar	173	procedure TreeView1DblClick(Sender: TObject);
30	daniel-mar	174	procedure SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X, Y,
		175	Line: Integer; Mark: TSynEditMark);
31	daniel-mar	176	procedure SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas;
		177	TransientType: TTransientType);
33	daniel-mar	178	procedure ActionLintExecute(Sender: TObject);
45	daniel-mar	179	procedure ActionRunConsoleExecute(Sender: TObject);
57	daniel-mar	180	procedure BtnSpecialCharsClick(Sender: TObject);
60	daniel-mar	181	procedure WebBrowser1WindowClosing(ASender: TObject;
		182	IsChildWindow: WordBool; var Cancel: WordBool);
62	daniel-mar	183	procedure BtnLightClick(Sender: TObject);
		184	procedure StartUpTimerTimer(Sender: TObject);
83	daniel-mar	185	procedure FileModTimerTimer(Sender: TObject);
89	daniel-mar	186	procedure SynEdit1DropFiles(Sender: TObject; X, Y: Integer;
		187	AFiles: TStrings);
91	daniel-mar	188	procedure ActionSaveAsExecute(Sender: TObject);
		189	procedure ActionGoToPHPDirExecute(Sender: TObject);
		190	procedure ActionPHPInteractiveShellExecute(Sender: TObject);
98	daniel-mar	191	procedure SynEdit1KeyDown(Sender: TObject; var Key: Word;
		192	Shift: TShiftState);
99	daniel-mar	193	procedure FontSizeTimerTimer(Sender: TObject);
103	daniel-mar	194	procedure SynEdit1StatusChange(Sender: TObject; Changes: TSynStatusChanges);
2	daniel-mar	195	private
67	daniel-mar	196	hMutex: THandle;
2	daniel-mar	197	CurSearchTerm: string;
		198	HlpPrevPageIndex: integer;
24	daniel-mar	199	SrcRep: TSynEditFindReplace;
23	daniel-mar	200	{$IFDEF OnlineHelp}
		201	gOnlineHelpWord: string;
		202	{$ENDIF}
83	daniel-mar	203	FileModLast: TDateTime;
91	daniel-mar	204	FormShowRanOnce: boolean;
		205	BrowserLoadedOnce: boolean;
2	daniel-mar	206	procedure Help;
40	daniel-mar	207	function InputRequestCallback(var data: AnsiString): boolean;
		208	function OutputNotifyCallback(const data: AnsiString): boolean;
67	daniel-mar	209	procedure RightTrimAll;
2	daniel-mar	210	protected
		211	ChmIndex: TMemIniFile;
19	daniel-mar	212	FScrapFile: string;
56	daniel-mar	213	FSaveAsFilename: string;
27	daniel-mar	214	codeExplorer: TRunCodeExplorer;
		215	procedure GotoLineNo(LineNo: integer);
2	daniel-mar	216	function GetScrapFile: string;
27	daniel-mar	217	procedure StartCodeExplorer;
47	daniel-mar	218	procedure RefreshModifySign;
62	daniel-mar	219	procedure Theme_Light;
		220	procedure Theme_Dark;
		221	function IsThemeDark: boolean;
67	daniel-mar	222	function MarkUpLineReference(cont: string): string;
96	daniel-mar	223	function ContainsUnicodeCharsInAnsiFile: boolean;
76	daniel-mar	224	procedure SaveToFile(filename: string);
2	daniel-mar	225	end;
		226
		227	var
		228	Form1: TForm1;
		229
		230	implementation
		231
		232	{$R *.dfm}
		233
30	daniel-mar	234	{$R Cursors.res}
		235
2	daniel-mar	236	uses
25	daniel-mar	237	Functions, StrUtils, WebBrowserUtils, FastPHPUtils, Math, ShellAPI, RichEdit,
49	daniel-mar	238	FastPHPTreeView, ImageListEx, FastPHPConfig;
2	daniel-mar	239
30	daniel-mar	240	const
		241	crMouseGutter = 1;
		242
47	daniel-mar	243	procedure TForm1.RefreshModifySign;
		244	var
		245	tmp: string;
		246	begin
102	daniel-mar	247	if SynEdit1 = nil then exit;
		248
47	daniel-mar	249	tmp := Caption;
		250
		251	tmp := StringReplace(tmp, '*', '', [rfReplaceAll]);
		252	if SynEdit1.Modified then tmp := tmp + '*';
		253
		254	if Caption <> tmp then Caption := tmp;
		255	end;
		256
13	daniel-mar	257	procedure TForm1.ActionFindNextExecute(Sender: TObject);
		258	begin
		259	SrcRep.FindNext;
		260	end;
		261
22	daniel-mar	262	procedure TForm1.ActionFindPrevExecute(Sender: TObject);
		263	begin
		264	SrcRep.FindPrev;
		265	end;
		266
13	daniel-mar	267	procedure TForm1.ActionGotoExecute(Sender: TObject);
5	daniel-mar	268	var
		269	val: string;
		270	lineno: integer;
91	daniel-mar	271	resourcestring
		272	SGoTo = 'Go to';
		273	SLineNumber = 'Line number:';
5	daniel-mar	274	begin
13	daniel-mar	275	// TODO: VK_LMENU does not work! only works with AltGr but not Alt
		276	// http://stackoverflow.com/questions/16828250/delphi-xe2-how-to-prevent-the-alt-key-stealing-focus ?
5	daniel-mar	277
91	daniel-mar	278	if not InputQuery(SGoTo, SLineNumber, val) or
		279	not TryStrToInt(val, lineno) then
13	daniel-mar	280	begin
		281	if SynEdit1.CanFocus then SynEdit1.SetFocus;
		282	exit;
		283	end;
		284	GotoLineNo(lineno);
		285	end;
5	daniel-mar	286
91	daniel-mar	287	procedure TForm1.ActionGoToPHPDirExecute(Sender: TObject);
		288	var
		289	phpExe: string;
		290	begin
		291	phpExe := GetPHPExe;
		292	if phpExe <> '' then
		293	ShellExecute(Handle, 'open', 'explorer.exe', PChar(ExtractFilePath(phpExe)), '', SW_NORMAL);
		294	end;
		295
13	daniel-mar	296	procedure TForm1.ActionHelpExecute(Sender: TObject);
		297	begin
		298	Help;
		299	if PageControl2.ActivePage = HelpTabsheet then
		300	WebBrowser2.SetFocus
20	daniel-mar	301	else if PageControl2.ActivePage = CodeTabsheet then
13	daniel-mar	302	SynEdit1.SetFocus;
		303	end;
8	daniel-mar	304
33	daniel-mar	305	procedure TForm1.ActionLintExecute(Sender: TObject);
		306	begin
		307	Run(Sender);
		308	SynEdit1.SetFocus;
		309	end;
		310
15	daniel-mar	311	procedure TForm1.ActionOpenExecute(Sender: TObject);
		312	begin
		313	If OpenDialog3.Execute then
		314	begin
62	daniel-mar	315	ShellExecute(0, 'open', PChar(ParamStr(0)), PChar('"' + OpenDialog3.FileName + '"'), '', SW_NORMAL);
15	daniel-mar	316	end;
		317	end;
		318
91	daniel-mar	319	procedure TForm1.ActionPHPInteractiveShellExecute(Sender: TObject);
		320	var
		321	phpExe: string;
		322	begin
		323	phpExe := GetPHPExe;
		324	if phpExe <> '' then
		325	ShellExecute(Handle, 'open', PChar(phpExe), '-a', PChar(ExtractFilePath(phpExe)), SW_NORMAL);
		326	end;
		327
13	daniel-mar	328	procedure TForm1.ActionReplaceExecute(Sender: TObject);
		329	begin
		330	SrcRep.ReplaceExecute;
		331	end;
5	daniel-mar	332
45	daniel-mar	333	procedure TForm1.ActionRunConsoleExecute(Sender: TObject);
		334	begin
		335	RunConsole(Sender);
		336	SynEdit1.SetFocus;
		337	end;
		338
13	daniel-mar	339	procedure TForm1.ActionRunExecute(Sender: TObject);
		340	begin
		341	Run(Sender);
		342	SynEdit1.SetFocus;
		343	end;
5	daniel-mar	344
67	daniel-mar	345	procedure TForm1.RightTrimAll;
		346	var
		347	i: integer;
		348	begin
68	daniel-mar	349	for i := 0 to SynEdit1.Lines.Count-1 do
67	daniel-mar	350	begin
		351	SynEdit1.Lines.Strings[i] := TrimRight(SynEdit1.Lines.Strings[i]);
		352	end;
77	daniel-mar	353
		354	(*
		355	while (SynEdit1.Lines.Count > 0) and (SynEdit1.Lines.Strings[SynEdit1.Lines.Count-1] = '') do
		356	begin
		357	SynEdit1.Lines.Delete(SynEdit1.Lines.Count-1);
		358	end;
		359	if SynEdit1.SelStart > Length(SynEdit1.Text)-1 then
		360	begin
		361	// TODO: This code does not work...
		362	SynEdit1.SelStart := Length(SynEdit1.Text)-1;
		363	SynEdit1.SelEnd := Length(SynEdit1.Text)-1;
		364	end;
		365	*)
67	daniel-mar	366	end;
		367
91	daniel-mar	368	procedure TForm1.ActionSaveAsExecute(Sender: TObject);
		369	var
		370	hMutexNew: THandle;
		371	resourcestring
		372	SCannotSaveBecauseMutex = 'Cannot save because file "%s", because it is alrady open in another FastPHP window!';
		373	begin
		374	if SaveDialog1.Execute then
		375	begin
		376	{$REGION 'Switch mutex'}
		377	hMutexNew := CreateMutex(nil, True, PChar('FastPHP'+md5(UpperCase(SaveDialog1.FileName))));
		378	if GetLastError = ERROR_ALREADY_EXISTS then
		379	begin
		380	ShowMessageFmt(SCannotSaveBecauseMutex, [SaveDialog1.FileName]);
		381	Close;
		382	end;
		383
		384	if hMutex <> 0 then CloseHandle(hMutex); // Note: ReleaseMutex does not work as expected!
		385	hMutex := hMutexNew;
		386	{$ENDREGION}
		387
		388	FSaveAsFilename := SaveDialog1.FileName;
		389	Caption := Copy(Caption, 1, Pos(' - ', Caption)-1) + ' - ' + FSaveAsFilename;
		390	Application.Title := Format('%s - FastPHP', [ExtractFileName(FSaveAsFilename)]); // do not translate!
		391	Button7.Click;
		392	end;
		393	end;
		394
13	daniel-mar	395	procedure TForm1.ActionSaveExecute(Sender: TObject);
		396	begin
67	daniel-mar	397	RightTrimAll;
76	daniel-mar	398	SaveToFile(GetScrapFile);
16	daniel-mar	399	SynEdit1.Modified := false;
47	daniel-mar	400	RefreshModifySign;
68	daniel-mar	401	if SynEdit1.CanFocus then SynEdit1.SetFocus;
13	daniel-mar	402	end;
		403
23	daniel-mar	404	procedure TForm1.ActionSpaceToTabExecute(Sender: TObject);
		405
		406	function SpacesAtBeginning(line: string): integer;
		407	begin
		408	result := 0;
44	daniel-mar	409	if Trim(line) = '' then exit;
23	daniel-mar	410	while line[result+1] = ' ' do
		411	begin
		412	inc(result);
		413	end;
		414	end;
		415
44	daniel-mar	416	function GuessIndent(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): integer;
23	daniel-mar	417	function _Check(indent: integer): boolean;
		418	var
		419	i: integer;
		420	begin
		421	result := true;
		422	for i := 0 to lines.Count-1 do
		423	if SpacesAtBeginning(lines.Strings[i]) mod indent <> 0 then
		424	begin
		425	// ShowMessageFmt('Zeile "%s" nicht durch %d teilbar!', [lines.strings[i], indent]);
44	daniel-mar	426	result := false;
		427	exit;
23	daniel-mar	428	end;
		429	end;
		430	var
		431	i: integer;
		432	begin
		433	for i := 8 downto 2 do
		434	begin
44	daniel-mar	435	if _Check(i) then
		436	begin
		437	result := i;
		438	exit;
		439	end;
23	daniel-mar	440	end;
		441	result := -1;
		442	end;
		443
44	daniel-mar	444	procedure SpaceToTab(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}; indent: integer);
23	daniel-mar	445	var
		446	i, spaces: integer;
93	daniel-mar	447	newval: string;
		448	somethingchanged: boolean;
23	daniel-mar	449	begin
93	daniel-mar	450	somethingchanged := false;
23	daniel-mar	451	for i := 0 to lines.Count-1 do
		452	begin
		453	spaces := SpacesAtBeginning(lines.Strings[i]);
93	daniel-mar	454	newval := StringOfChar(#9, spaces div indent) + StringOfChar(' ', spaces mod indent) + Copy(lines.Strings[i], spaces+1, Length(lines.Strings[i])-spaces);
		455	if lines.Strings[i] <> newval then
		456	begin
		457	somethingchanged := true;
		458	lines.Strings[i] := newval;
		459	end;
23	daniel-mar	460	end;
93	daniel-mar	461	if somethingchanged then
		462	begin
103	daniel-mar	463	RefreshModifySign;
93	daniel-mar	464	end;
23	daniel-mar	465	end;
		466
44	daniel-mar	467	function SpacesAvailable(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): boolean;
23	daniel-mar	468	var
		469	i, spaces: integer;
		470	begin
		471	for i := 0 to lines.Count-1 do
		472	begin
		473	spaces := SpacesAtBeginning(lines.Strings[i]);
44	daniel-mar	474	if spaces > 0 then
		475	begin
		476	result := true;
		477	exit;
		478	end;
23	daniel-mar	479	end;
44	daniel-mar	480	result := false;
		481	exit;
23	daniel-mar	482	end;
		483
		484	var
		485	val: string;
		486	ind: integer;
		487	resourcestring
		488	SNoLinesAvailable = 'No lines with spaces at the beginning available';
91	daniel-mar	489	SSpacesToLabs = 'Spaces to tabs';
		490	SIndent = 'Indent:';
23	daniel-mar	491	begin
		492	// TODO: if something is selected, only process the selected part
		493
		494	if not SpacesAvailable(SynEdit1.Lines) then
		495	begin
49	daniel-mar	496	MessageDlg(SNoLinesAvailable, mtInformation, [mbOk], 0);
23	daniel-mar	497	exit;
		498	end;
		499
		500	ind := GuessIndent(SynEdit1.Lines);
		501	if ind <> -1 then val := IntToStr(ind);
		502
91	daniel-mar	503	if not InputQuery(SSpacesToLabs, SIndent, val) or
		504	not TryStrToInt(Trim(val), ind) then
23	daniel-mar	505	begin
91	daniel-mar	506	if SynEdit1.CanFocus then SynEdit1.SetFocus;
		507	exit;
23	daniel-mar	508	end;
		509
91	daniel-mar	510	if ind = 0 then exit;
		511	SpaceToTab(SynEdit1.Lines, ind);
23	daniel-mar	512	end;
		513
13	daniel-mar	514	procedure TForm1.ActionESCExecute(Sender: TObject);
		515	begin
		516	if (HlpPrevPageIndex <> -1) and (PageControl2.ActivePage = HelpTabSheet) and
		517	(HelpTabsheet.TabVisible) then
		518	begin
		519	PageControl2.ActivePageIndex := HlpPrevPageIndex;
		520	HelpTabsheet.TabVisible := false;
2	daniel-mar	521	end;
13	daniel-mar	522
		523	// Dirty hack...
22	daniel-mar	524	SrcRep.CloseDialogs;
2	daniel-mar	525	end;
		526
13	daniel-mar	527	procedure TForm1.ActionFindExecute(Sender: TObject);
		528	begin
		529	SrcRep.FindExecute;
		530	end;
		531
2	daniel-mar	532	procedure TForm1.Run(Sender: TObject);
16	daniel-mar	533	var
		534	bakTS: TTabSheet;
67	daniel-mar	535	//ss: TStringStream;
		536	//bakPos: Int64;
2	daniel-mar	537	begin
5	daniel-mar	538	memo2.Lines.Text := '';
16	daniel-mar	539
91	daniel-mar	540	if not BrowserLoadedOnce then
16	daniel-mar	541	begin
		542	bakTS := PageControl1.ActivePage;
		543	try
		544	PageControl1.ActivePage := HtmlTabSheet; // Required for the first time, otherwise, WebBrowser1.Clear will hang
		545	Webbrowser1.Clear;
		546	finally
		547	PageControl1.ActivePage := bakTS;
		548	end;
91	daniel-mar	549	BrowserLoadedOnce := true;
16	daniel-mar	550	end
		551	else
		552	Webbrowser1.Clear;
		553
91	daniel-mar	554	Screen.Cursor := crHourGlass; // TODO: Doesn't work with F9
5	daniel-mar	555	Application.ProcessMessages;
		556
		557	try
47	daniel-mar	558	ActionSave.Execute; // TODO: if it is not the scrap file: do not save the file, since the user did not intended to save... better create a temporary file and run it instead.
5	daniel-mar	559
94	daniel-mar	560	// TODO 70421 * <fastphp> implement flush() with ContentCallBack implementieren... For long running scripts I want to see status changes via javascript which are loaded step by step
		561	// TODO 70422 * <fastphp> when a script has an endless loop, i want to have a possibility to cancel it
		562	if SynEdit1.Lines.Encoding = TEncoding.UTF8 then
		563	memo2.Lines.Text := Utf8Decode(RunPHPScript(GetScrapFile, Sender=ActionLint, False)) // if we have a UTF-8 file, then the DOS output is double-UTF8 encoded
		564	else
		565	memo2.Lines.Text := RunPHPScript(GetScrapFile, Sender=ActionLint, False);
5	daniel-mar	566
72	daniel-mar	567	{$REGION 'Show in Web Browser'}
94	daniel-mar	568	if SynEdit1.Lines.Encoding = TEncoding.UTF8 then
		569	Webbrowser1.LoadHTML(MarkUpLineReference('<meta charset="utf-8">'+memo2.Lines.Text), GetScrapFile)
		570	else
		571	Webbrowser1.LoadHTML(MarkUpLineReference(memo2.Lines.Text), GetScrapFile);
5	daniel-mar	572
62	daniel-mar	573	// Alternatively:
		574	(*
		575	ss := TstringStream.Create;
		576	ss.WriteString(MarkUpLineReference(memo2.Lines.Text));
		577	ss.Position := 0;
		578	Webbrowser1.LoadStream(ss, GetScrapFile);
		579	Webbrowser1.Wait;
		580	ss.Free;
		581	*)
72	daniel-mar	582	{$ENDREGION}
62	daniel-mar	583
5	daniel-mar	584	if IsTextHTML(memo2.lines.text) then
		585	PageControl1.ActivePage := HtmlTabSheet
		586	else
		587	PageControl1.ActivePage := PlaintextTabSheet;
		588	finally
		589	Screen.Cursor := crDefault;
2	daniel-mar	590	end;
5	daniel-mar	591	end;
2	daniel-mar	592
45	daniel-mar	593	procedure TForm1.RunConsole(Sender: TObject);
		594	begin
47	daniel-mar	595	ActionSave.Execute; // TODO: if it is not the scrap file: do not save the file, since the user did not intended to save... better create a temporary file and run it instead.
45	daniel-mar	596	RunPHPScript(GetScrapFile, Sender=ActionLint, True);
		597	end;
		598
89	daniel-mar	599	procedure TForm1.SynEdit1DropFiles(Sender: TObject; X, Y: Integer;
		600	AFiles: TStrings);
		601	var
		602	FileName: string;
		603	const
		604	WARN_FILE_COUNT = 10;
91	daniel-mar	605	resourcestring
		606	SAreYouSure = 'Are you sure you want to open %d files?';
89	daniel-mar	607	begin
		608	if AFiles.Count > WARN_FILE_COUNT then
		609	begin
91	daniel-mar	610	if not MessageDlg(Format(SAreYouSure, [WARN_FILE_COUNT]), mtConfirmation, mbYesNoCancel, 0) <> mrYes then
89	daniel-mar	611	exit;
		612	end;
		613
		614	for FileName in AFiles do
		615	begin
		616	ShellExecute(0, 'open', PChar(ParamStr(0)), PChar('"' + FileName + '"'), '', SW_NORMAL);
		617	end;
		618	end;
		619
30	daniel-mar	620	procedure TForm1.SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X,
		621	Y, Line: Integer; Mark: TSynEditMark);
		622	begin
		623	(*
		624	TSynEdit(Sender).CaretX := 1;
		625	TSynEdit(Sender).CaretY := Line;
		626	TSynEdit(Sender).SelLength := Length(TSynEdit(Sender).LineText);
		627	*)
		628	end;
		629
98	daniel-mar	630	procedure TForm1.SynEdit1KeyDown(Sender: TObject; var Key: Word;
		631	Shift: TShiftState);
		632	begin
		633	if (Shift = [ssCtrl, ssShift]) and (Key = ord('C')) then
		634	begin
		635	// Disable "Column Select Mode" (https://github.com/SynEdit/SynEdit/blob/master/Source/SynEditKeyCmds.pas#L879)
		636	// which can be enabled by pressing Ctrl+Shift+C
		637	// Reasons why we disable it:
		638	// 1. I think nobody needs this, and sometimes you accidentally press it
		639	// 2. Ctrl+Shift+L would the combination to disable column select mode,
		640	// but you cannot use it, because it is already in use for linting
		641	Key := 0;
		642	end;
		643	end;
		644
23	daniel-mar	645	procedure TForm1.SynEdit1MouseCursor(Sender: TObject; const aLineCharPos: TBufferCoord; var aCursor: TCursor);
		646	{$IFDEF OnlineHelp}
		647	var
		648	Line: Integer;
		649	Column: Integer;
		650	word: string;
		651	begin
		652	Line := aLineCharPos.Line-1;
		653	Column := aLineCharPos.Char-1;
		654	word := GetWordUnderPos(TSynEdit(Sender), Line, Column);
		655	if word <> gOnlineHelpWord then
		656	begin
		657	gOnlineHelpWord := word;
		658	Timer1.Enabled := false;
		659	Timer1.Enabled := true;
		660	end;
		661	{$ELSE}
		662	begin
		663	{$ENDIF}
		664	end;
		665
13	daniel-mar	666	procedure TForm1.SynEdit1MouseWheelDown(Sender: TObject; Shift: TShiftState;
		667	MousePos: TPoint; var Handled: Boolean);
		668	begin
		669	if ssCtrl in Shift then
		670	begin
		671	SynEdit1.Font.Size := Max(SynEdit1.Font.Size - 1, 5);
23	daniel-mar	672	Handled := true;
		673	end
		674	else Handled := false;
13	daniel-mar	675	end;
		676
		677	procedure TForm1.SynEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;
		678	MousePos: TPoint; var Handled: Boolean);
		679	begin
		680	if ssCtrl in Shift then
		681	begin
		682	SynEdit1.Font.Size := SynEdit1.Font.Size + 1;
23	daniel-mar	683	Handled := true;
		684	end
		685	else Handled := false;
13	daniel-mar	686	end;
		687
31	daniel-mar	688	procedure TForm1.SynEdit1PaintTransient(Sender: TObject; Canvas: TCanvas; TransientType: TTransientType);
		689	var
		690	Editor: TSynEdit;
		691	OpenChars: array of WideChar;//[0..2] of WideChar=();
		692	CloseChars: array of WideChar;//[0..2] of WideChar=();
		693
		694	function IsCharBracket(AChar: WideChar): Boolean;
		695	begin
		696	case AChar of
		697	'{','[','(','<','}',']',')','>':
		698	Result := True;
		699	else
		700	Result := False;
		701	end;
		702	end;
		703
		704	function CharToPixels(P: TBufferCoord): TPoint;
		705	begin
		706	Result := Editor.RowColumnToPixels(Editor.BufferToDisplayPos(P));
		707	end;
		708
		709	var
63	daniel-mar	710	COLOR_FG: TColor;
		711	COLOR_BG: TColor;
31	daniel-mar	712	P: TBufferCoord;
		713	Pix: TPoint;
		714	D: TDisplayCoord;
		715	S: UnicodeString;
		716	I: Integer;
		717	Attri: TSynHighlighterAttributes;
		718	ArrayLength: Integer;
		719	start: Integer;
		720	TmpCharA, TmpCharB: WideChar;
63	daniel-mar	721	begin
31	daniel-mar	722	// Source: https://github.com/SynEdit/SynEdit/blob/master/Demos/OnPaintTransientDemo/Unit1.pas
		723
63	daniel-mar	724	if IsThemeDark then
		725	begin
		726	COLOR_FG := clLime;
		727	COLOR_BG := clGreen;
		728	end
		729	else
		730	begin
		731	COLOR_FG := clGreen;
		732	COLOR_BG := clLime;
		733	end;
		734
31	daniel-mar	735	if TSynEdit(Sender).SelAvail then exit;
		736	Editor := TSynEdit(Sender);
		737	ArrayLength:= 3;
		738
		739	(*
		740	if (Editor.Highlighter = shHTML) or (Editor.Highlighter = shXML) then
		741	inc(ArrayLength);
		742	*)
		743
		744	SetLength(OpenChars, ArrayLength);
		745	SetLength(CloseChars, ArrayLength);
		746	for i := 0 to ArrayLength - 1 do
		747	begin
		748	case i of
		749	0: begin OpenChars[i] := '('; CloseChars[i] := ')'; end;
		750	1: begin OpenChars[i] := '{'; CloseChars[i] := '}'; end;
		751	2: begin OpenChars[i] := '['; CloseChars[i] := ']'; end;
		752	3: begin OpenChars[i] := '<'; CloseChars[i] := '>'; end;
		753	end;
		754	end;
		755
		756	P := Editor.CaretXY;
		757	D := Editor.DisplayXY;
		758
		759	Start := Editor.SelStart;
		760
		761	if (Start > 0) and (Start <= length(Editor.Text)) then
		762	TmpCharA := Editor.Text[Start]
		763	else
		764	TmpCharA := #0;
		765
44	daniel-mar	766	if (Start > 0){Added by VTS} and (Start < length(Editor.Text)) then
31	daniel-mar	767	TmpCharB := Editor.Text[Start + 1]
		768	else
		769	TmpCharB := #0;
		770
		771	if not IsCharBracket(TmpCharA) and not IsCharBracket(TmpCharB) then exit;
		772	S := TmpCharB;
		773	if not IsCharBracket(TmpCharB) then
		774	begin
		775	P.Char := P.Char - 1;
		776	S := TmpCharA;
		777	end;
		778	Editor.GetHighlighterAttriAtRowCol(P, S, Attri);
		779
		780	if (Editor.Highlighter.SymbolAttribute = Attri) then
		781	begin
		782	for i := low(OpenChars) to High(OpenChars) do
		783	begin
		784	if (S = OpenChars[i]) or (S = CloseChars[i]) then
		785	begin
		786	Pix := CharToPixels(P);
		787
		788	Editor.Canvas.Brush.Style := bsSolid;//Clear;
		789	Editor.Canvas.Font.Assign(Editor.Font);
		790	Editor.Canvas.Font.Style := Attri.Style;
		791
		792	if (TransientType = ttAfter) then
		793	begin
		794	Editor.Canvas.Font.Color := COLOR_FG;
		795	Editor.Canvas.Brush.Color := COLOR_BG;
		796	end
		797	else
		798	begin
		799	Editor.Canvas.Font.Color := Attri.Foreground;
		800	Editor.Canvas.Brush.Color := Attri.Background;
		801	end;
		802	if Editor.Canvas.Font.Color = clNone then
		803	Editor.Canvas.Font.Color := Editor.Font.Color;
		804	if Editor.Canvas.Brush.Color = clNone then
		805	Editor.Canvas.Brush.Color := Editor.Color;
		806
		807	Editor.Canvas.TextOut(Pix.X, Pix.Y, S);
		808	P := Editor.GetMatchingBracketEx(P);
		809
		810	if (P.Char > 0) and (P.Line > 0) then
		811	begin
		812	Pix := CharToPixels(P);
		813	if Pix.X > Editor.Gutter.Width then
		814	begin
		815	{$REGION 'Added by ViaThinkSoft'}
		816	if (TransientType = ttAfter) then
		817	begin
		818	Editor.Canvas.Font.Color := COLOR_FG;
		819	Editor.Canvas.Brush.Color := COLOR_BG;
		820	end
		821	else
		822	begin
		823	Editor.Canvas.Font.Color := Attri.Foreground;
		824	Editor.Canvas.Brush.Color := Attri.Background;
		825	end;
		826	if Editor.Canvas.Font.Color = clNone then
		827	Editor.Canvas.Font.Color := Editor.Font.Color;
		828	if Editor.Canvas.Brush.Color = clNone then
		829	Editor.Canvas.Brush.Color := Editor.Color;
		830	{$ENDREGION}
		831	if S = OpenChars[i] then
		832	Editor.Canvas.TextOut(Pix.X, Pix.Y, CloseChars[i])
		833	else Editor.Canvas.TextOut(Pix.X, Pix.Y, OpenChars[i]);
		834	end;
		835	end;
		836	end;
		837	end;
		838	Editor.Canvas.Brush.Style := bsSolid;
		839	end;
		840	end;
		841
103	daniel-mar	842	procedure TForm1.SynEdit1StatusChange(Sender: TObject;
		843	Changes: TSynStatusChanges);
		844	begin
		845	if scModified in Changes then
		846	RefreshModifySign;
		847	end;
		848
5	daniel-mar	849	procedure TForm1.SynEditFocusTimerTimer(Sender: TObject);
		850	begin
		851	SynEditFocusTimer.Enabled := false;
		852	Button1.SetFocus; // Workaround for weird bug... This (and the timer) is necessary to get the focus to SynEdit1
		853	SynEdit1.SetFocus;
		854	end;
2	daniel-mar	855
62	daniel-mar	856	procedure TForm1.Theme_Dark;
		857	begin
		858	if IsThemeDark then exit;
91	daniel-mar	859	TStyleManager.TrySetStyle('Windows10 SlateGray'); // do not translate
62	daniel-mar	860	Color := 1316887;
		861	Font.Color := clCream;
		862	//Memo2.Font.Color := clCream;
		863	//Memo2.ParentColor := true;
		864	SynEdit1.ActiveLineColor := 2238502;
		865	SynEdit1.Color := 1316887;
		866	SynEdit1.Font.Color := clCream;
		867	SynEdit1.Gutter.Color := 1316887;
		868	SynEdit1.Gutter.Font.Color := clCream;
		869	SynEdit1.Gutter.GradientStartColor := 2238502;
		870	SynEdit1.Gutter.GradientEndColor := 1316887;
64	daniel-mar	871	SynPHPSyn1.CommentAttri.Foreground := $00837B82;
62	daniel-mar	872	SynPHPSyn1.IdentifierAttri.Foreground := 9627120;
		873	SynPHPSyn1.KeyAttri.Foreground := 4157595;
		874	SynPHPSyn1.NumberAttri.Foreground := 5008079;
		875	SynPHPSyn1.StringAttri.Foreground := 6987151;
		876	SynPHPSyn1.SymbolAttri.Foreground := 8769754;
		877	SynPHPSyn1.VariableAttri.Foreground := 6924493;
		878	end;
		879
		880	procedure TForm1.Theme_Light;
		881	begin
		882	if not IsThemeDark then exit;
91	daniel-mar	883	TStyleManager.TrySetStyle('Windows'); // do not translate
62	daniel-mar	884	Color := clBtnFace;
		885	Font.Color := clWindowText;
		886	//Memo2.Font.Color := clWindowText;
		887	SynEdit1.ActiveLineColor := 14680010;
91	daniel-mar	888	SynEdit1.Color := clCream;
62	daniel-mar	889	SynEdit1.Font.Color := clWindowText;
		890	SynEdit1.Gutter.Color := clBtnFace;
		891	SynEdit1.Gutter.Font.Color := clWindowText;
		892	SynEdit1.Gutter.GradientStartcolor := cl3dLight;
		893	SynEdit1.Gutter.GradientEndColor := clBtnFace;;
		894	SynPHPSyn1.CommentAttri.Foreground := 33023;
		895	SynPHPSyn1.IdentifierAttri.Foreground := 4194304;
		896	SynPHPSyn1.KeyAttri.Foreground := 4227072;
		897	SynPHPSyn1.NumberAttri.Foreground := 213;
		898	SynPHPSyn1.StringAttri.Foreground := 13762560;
		899	SynPHPSyn1.SymbolAttri.Foreground := 4227072;
		900	SynPHPSyn1.VariableAttri.Foreground := 213;
		901	end;
		902
23	daniel-mar	903	procedure TForm1.Timer1Timer(Sender: TObject);
		904	begin
		905	{$IFDEF OnlineHelp}
		906	Timer1.Enabled := false;
		907
		908	// TODO: Insert a small online help hint
		909	//Caption := gOnlineHelpWord;
		910	{$ENDIF}
		911	end;
		912
27	daniel-mar	913	procedure TForm1.TreeView1DblClick(Sender: TObject);
		914	var
		915	tn: TTreeNode;
32	daniel-mar	916	lineNo: integer;
27	daniel-mar	917	begin
		918	tn := TTreeView(Sender).Selected;
		919	if tn = nil then exit;
32	daniel-mar	920	lineNo := Integer(tn.Data);
		921	if lineNo > 0 then GotoLineNo(lineNo);
27	daniel-mar	922	end;
		923
45	daniel-mar	924	(*
44	daniel-mar	925	{$IFDEF USE_SHDOCVW_TLB}
45	daniel-mar	926	*)
5	daniel-mar	927	procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
27	daniel-mar	928	const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
5	daniel-mar	929	Headers: OleVariant; var Cancel: WordBool);
44	daniel-mar	930	begin
		931	BeforeNavigate(URL, Cancel);
		932	end;
45	daniel-mar	933	(*
44	daniel-mar	934	{$ELSE}
		935	procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
		936	const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
		937	Headers: OleVariant; var Cancel: WordBool);
		938	begin
		939	BeforeNavigate(URL, Cancel);
		940	end;
		941	{$ENDIF}
45	daniel-mar	942	*)
44	daniel-mar	943
67	daniel-mar	944	procedure TForm1.WebBrowser1WindowClosing(ASender: TObject;
		945	IsChildWindow: WordBool; var Cancel: WordBool);
		946	resourcestring
91	daniel-mar	947	SCloseRequest = 'A script has requested the window to be closed. The window of a standalone script would now close.';
67	daniel-mar	948	begin
91	daniel-mar	949	ShowMessage(SCloseRequest);
67	daniel-mar	950	TWebBrowser(ASender).Clear;
		951	Cancel := true;
		952	end;
		953
44	daniel-mar	954	procedure TForm1.BeforeNavigate(const URL: OleVariant; var Cancel: WordBool);
5	daniel-mar	955	var
8	daniel-mar	956	s, myURL: string;
5	daniel-mar	957	lineno: integer;
7	daniel-mar	958	p: integer;
5	daniel-mar	959	begin
7	daniel-mar	960	{$REGION 'Line number references (PHP errors and warnings)'}
8	daniel-mar	961	if Copy(URL, 1, length(FASTPHP_GOTO_URI_PREFIX)) = FASTPHP_GOTO_URI_PREFIX then
5	daniel-mar	962	begin
		963	try
8	daniel-mar	964	s := copy(URL, length(FASTPHP_GOTO_URI_PREFIX)+1, 99);
5	daniel-mar	965	if not TryStrToInt(s, lineno) then exit;
		966	GotoLineNo(lineno);
		967	SynEditFocusTimer.Enabled := true;
		968	finally
		969	Cancel := true;
		970	end;
8	daniel-mar	971	Exit;
5	daniel-mar	972	end;
7	daniel-mar	973	{$ENDREGION}
		974
62	daniel-mar	975	{$REGION 'Intelligent browser (executes PHP scripts which are clicked in a hyperlink)'}
7	daniel-mar	976	if URL <> 'about:blank' then
		977	begin
		978	myUrl := URL;
		979
8	daniel-mar	980	p := Pos('?', myUrl);
		981	if p >= 1 then myURL := copy(myURL, 1, p-1);
7	daniel-mar	982
8	daniel-mar	983	// TODO: myURL urldecode
		984	// TODO: maybe we could even open that file in the editor!
62	daniel-mar	985	// TODO: ?parameter=....
7	daniel-mar	986
8	daniel-mar	987	if FileExists(myURL) and (EndsText('.php', myURL) or EndsText('.php3', myURL) or EndsText('.php4', myURL) or EndsText('.php5', myURL) or EndsText('.phps', myURL)) then
7	daniel-mar	988	begin
27	daniel-mar	989	WebBrowser1.LoadHTML(RunPHPScript(myURL), myUrl);
7	daniel-mar	990	Cancel := true;
		991	end;
		992	end;
		993	{$ENDREGION}
5	daniel-mar	994	end;
2	daniel-mar	995
62	daniel-mar	996	procedure TForm1.BtnLightClick(Sender: TObject);
66	daniel-mar	997	var
		998	CanClose: boolean;
62	daniel-mar	999	begin
66	daniel-mar	1000	FormCloseQuery(Form1, CanClose);
		1001	if not CanClose then exit;
		1002
62	daniel-mar	1003	if IsThemeDark then
		1004	begin
		1005	BtnLight.Picture.Assign(BtnLightOn.Picture);
		1006	Theme_Light;
		1007	TFastPHPConfig.DarkTheme := false;
		1008	end
		1009	else
		1010	begin
		1011	BtnLight.Picture.Assign(BtnLightOff.Picture);
		1012	Theme_Dark;
		1013	TFastPHPConfig.DarkTheme := true;
		1014	end;
		1015	end;
		1016
57	daniel-mar	1017	procedure TForm1.BtnSpecialCharsClick(Sender: TObject);
		1018	var
		1019	opts: TSynEditorOptions;
		1020	begin
		1021	opts := SynEdit1.Options;
		1022	if eoShowSpecialChars in SynEdit1.Options then
		1023	begin
		1024	BtnSpecialChars.Picture.Assign(BtnSpecialCharsOff.Picture);
		1025	Exclude(opts, eoShowSpecialChars);
		1026	TFastPHPConfig.SpecialChars := false;
		1027	end
		1028	else
		1029	begin
		1030	BtnSpecialChars.Picture.Assign(BtnSpecialCharsOn.Picture);
		1031	Include(opts, eoShowSpecialChars);
		1032	TFastPHPConfig.SpecialChars := true;
		1033	end;
		1034	SynEdit1.Options := opts;
		1035	end;
		1036
83	daniel-mar	1037	procedure TForm1.FileModTimerTimer(Sender: TObject);
91	daniel-mar	1038	resourcestring
		1039	SChangeConflict = 'The file was changed in a different application BUT IT WAS ALSO MODIFIED HERE! Reload file AND LOSE CHANGES HERE?';
		1040	SChangeNotify = 'The file was changed in a different application! Reload file?';
83	daniel-mar	1041	begin
		1042	FileModTimer.Enabled := false;
		1043	if FileModLast <> FileAge(GetScrapFile) then
		1044	begin
		1045	FileModLast := FileAge(GetScrapFile);
		1046	if SynEdit1.Modified then
		1047	begin
91	daniel-mar	1048	if MessageDlg(SChangeConflict, mtWarning, mbYesNoCancel, 0) = mrYes then
83	daniel-mar	1049	begin
		1050	SynEdit1.Lines.LoadFromFile(GetScrapFile);
		1051	end;
		1052	end
		1053	else
		1054	begin
91	daniel-mar	1055	if MessageDlg(SChangeNotify, mtConfirmation, mbYesNoCancel, 0) = mrYes then
83	daniel-mar	1056	begin
		1057	SynEdit1.Lines.LoadFromFile(GetScrapFile);
		1058	end;
		1059	end;
		1060	end;
		1061	FileModTimer.Enabled := true;
		1062	end;
		1063
99	daniel-mar	1064	procedure TForm1.FontSizeTimerTimer(Sender: TObject);
		1065	begin
101	daniel-mar	1066	if Memo2.Font.Size <> (SynEdit1.Font.Size-3) then
		1067	Memo2.Font.Size := (SynEdit1.Font.Size-3);
99	daniel-mar	1068	end;
		1069
2	daniel-mar	1070	procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
		1071	begin
86	daniel-mar	1072	DragAcceptFiles(Handle, False);
49	daniel-mar	1073	TFastPHPConfig.FontSize := SynEdit1.Font.Size;
2	daniel-mar	1074	end;
		1075
15	daniel-mar	1076	procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
		1077	var
		1078	r: integer;
91	daniel-mar	1079	resourcestring
		1080	SWantToSave = 'Do you want to save?';
15	daniel-mar	1081	begin
		1082	if SynEdit1.Modified then
		1083	begin
56	daniel-mar	1084	if (ParamStr(1) <> '') or (FSaveAsFilename <> '') then
15	daniel-mar	1085	begin
91	daniel-mar	1086	r := MessageDlg(SWantToSave, mtConfirmation, mbYesNoCancel, 0);
15	daniel-mar	1087	if r = mrCancel then
		1088	begin
		1089	CanClose := false;
		1090	Exit;
		1091	end
		1092	else if r = mrYes then
		1093	begin
47	daniel-mar	1094	ActionSave.Execute;
15	daniel-mar	1095	CanClose := true;
		1096	end;
		1097	end
		1098	else
		1099	begin
47	daniel-mar	1100	ActionSave.Execute;
15	daniel-mar	1101	CanClose := true;
		1102	end;
		1103	end;
		1104	end;
		1105
2	daniel-mar	1106	procedure TForm1.FormCreate(Sender: TObject);
44	daniel-mar	1107	var
		1108	exeDir: string;
83	daniel-mar	1109	sScrapFile: string;
2	daniel-mar	1110	begin
		1111	HlpPrevPageIndex := -1;
		1112	CurSearchTerm := '';
83	daniel-mar	1113	sScrapFile := GetScrapFile;
		1114	Caption := Caption + ' - ' + sScrapFile;
91	daniel-mar	1115	Application.Title := Format('%s - FastPHP', [ExtractFileName(sScrapFile)]); // do not translate!
24	daniel-mar	1116	SrcRep := TSynEditFindReplace.Create(self);
13	daniel-mar	1117	SrcRep.Editor := SynEdit1;
29	daniel-mar	1118	SynEdit1.Gutter.Gradient := HighColorWindows;
30	daniel-mar	1119
		1120	Screen.Cursors[crMouseGutter] := LoadCursor(hInstance, 'MOUSEGUTTER');
		1121	SynEdit1.Gutter.Cursor := crMouseGutter;
36	daniel-mar	1122
44	daniel-mar	1123	exeDir := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
		1124	if FileExists(exeDir + 'codeexplorer.bmp') then ImageList1.LoadAndSplitImages(exeDir + 'codeexplorer.bmp');
83	daniel-mar	1125
		1126	FileModLast := FileAge(sScrapFile);
		1127	FileModTimer.Enabled := True;
2	daniel-mar	1128	end;
		1129
		1130	procedure TForm1.FormDestroy(Sender: TObject);
		1131	begin
		1132	if Assigned(ChmIndex) then
		1133	begin
		1134	FreeAndNil(ChmIndex);
		1135	end;
13	daniel-mar	1136	FreeAndNil(SrcRep);
27	daniel-mar	1137
75	daniel-mar	1138	if hMutex <> 0 then CloseHandle(hMutex); // Note: ReleaseMutex does not work as expected!
67	daniel-mar	1139
27	daniel-mar	1140	if Assigned(codeExplorer) then
		1141	begin
		1142	codeExplorer.Terminate;
		1143	codeExplorer.WaitFor;
		1144	FreeAndNil(codeExplorer);
		1145	end;
2	daniel-mar	1146	end;
		1147
		1148	procedure TForm1.FormShow(Sender: TObject);
		1149	var
		1150	ScrapFile: string;
49	daniel-mar	1151	tmpFontSize: integer;
57	daniel-mar	1152	opts: TSynEditorOptions;
91	daniel-mar	1153	resourcestring
		1154	SFileAlreadyOpen = 'File "%s" is alrady open!';
2	daniel-mar	1155	begin
71	daniel-mar	1156	if FormShowRanOnce then exit; // If the theme is changed from normal to dark, OnShow will be called another time
		1157	FormShowRanOnce := true;
		1158
2	daniel-mar	1159	ScrapFile := GetScrapFile;
		1160	if ScrapFile = '' then
		1161	begin
10	daniel-mar	1162	Application.Terminate; // Close;
2	daniel-mar	1163	exit;
		1164	end;
57	daniel-mar	1165
		1166	opts := SynEdit1.Options;
		1167	if TFastPHPConfig.SpecialChars then
		1168	begin
		1169	BtnSpecialChars.Picture.Assign(BtnSpecialCharsOn.Picture);
		1170	Include(opts, eoShowSpecialChars);
		1171	end
		1172	else
		1173	begin
		1174	BtnSpecialChars.Picture.Assign(BtnSpecialCharsOff.Picture);
		1175	Exclude(opts, eoShowSpecialChars);
		1176	end;
		1177	SynEdit1.Options := opts;
		1178
15	daniel-mar	1179	if FileExists(ScrapFile) then
67	daniel-mar	1180	begin
71	daniel-mar	1181	if hMutex = 0 then
67	daniel-mar	1182	begin
75	daniel-mar	1183	hMutex := CreateMutex(nil, True, PChar('FastPHP'+md5(UpperCase(ScrapFile))));
69	daniel-mar	1184	if GetLastError = ERROR_ALREADY_EXISTS then
		1185	begin
		1186	// TODO: It would be great if the window of that FastPHP instance would switched to foreground
91	daniel-mar	1187	ShowMessageFmt(SFileAlreadyOpen, [ScrapFile]);
69	daniel-mar	1188	Close;
		1189	end;
		1190
		1191	SynEdit1.Lines.LoadFromFile(ScrapFile);
67	daniel-mar	1192	end;
		1193	end
15	daniel-mar	1194	else
		1195	SynEdit1.Lines.Clear;
2	daniel-mar	1196
		1197	PageControl1.ActivePage := PlaintextTabSheet;
		1198
20	daniel-mar	1199	PageControl2.ActivePage := CodeTabsheet;
2	daniel-mar	1200	HelpTabsheet.TabVisible := false;
5	daniel-mar	1201
49	daniel-mar	1202	tmpFontSize := TFastPHPConfig.FontSize;
		1203	if tmpFontSize <> -1 then SynEdit1.Font.Size := tmpFontSize;
5	daniel-mar	1204	SynEdit1.SetFocus;
27	daniel-mar	1205
		1206	DoubleBuffered := true;
		1207	StartCodeExplorer;
62	daniel-mar	1208
86	daniel-mar	1209	DragAcceptFiles(Handle, True);
		1210
62	daniel-mar	1211	StartupTimer.Enabled := true;
2	daniel-mar	1212	end;
		1213
96	daniel-mar	1214	function TForm1.ContainsUnicodeCharsInAnsiFile: boolean;
		1215	var
		1216	lines: TStringList;
		1217	ms: TMemoryStream;
		1218	begin
		1219	if SynEdit1.Lines.Encoding = TEncoding.UTF8 then
		1220	begin
		1221	result := false;
		1222	exit;
		1223	end;
		1224
		1225	lines := TStringList.Create;
		1226	ms := TMemoryStream.Create;
		1227	try
		1228	SynEdit1.Lines.SaveToStream(ms);
		1229	ms.Position := 0;
		1230	lines.LoadFromStream(ms);
		1231	result := Trim(lines.Text) <> Trim(synedit1.Lines.Text);
		1232	finally
		1233	FreeAndNil(ms);
		1234	FreeAndNil(lines);
		1235	end;
		1236	end;
		1237
76	daniel-mar	1238	procedure TForm1.SaveToFile(filename: string);
		1239	var
79	daniel-mar	1240	ss: TStringStream;
78	daniel-mar	1241	ms: TMemoryStream;
		1242	fs: TFileStream;
79	daniel-mar	1243	eolStyle: string;
		1244	str: string;
96	daniel-mar	1245	UpgradeEncodingToUnicode: boolean;
		1246	DoReloadEncoding: boolean;
		1247	resourcestring
		1248	LNG_UpgradeToUtf8 = 'Unicode characters have been inserted to this ANSI encoded file. Convert file to UTF-8? (If you choose "No", the Unicode characters will be replaced with "?")';
76	daniel-mar	1249	begin
83	daniel-mar	1250	FileModTimer.Enabled := false;
		1251
96	daniel-mar	1252	if ContainsUnicodeCharsInAnsiFile then
		1253	begin
		1254	DoReloadEncoding := true;
		1255	case MessageBox(Handle, PChar(LNG_UpgradeToUtf8), PChar(Caption), MB_YESNOCANCEL) of
		1256	ID_YES:
		1257	begin
		1258	UpgradeEncodingToUnicode := true;
		1259	end;
		1260	ID_NO:
		1261	begin
		1262	UpgradeEncodingToUnicode := false;
		1263	end;
		1264	ID_CANCEL:
		1265	begin
		1266	Abort;
		1267	end;
		1268	end;
		1269	end
		1270	else
		1271	begin
		1272	DoReloadEncoding := false;
		1273	UpgradeEncodingToUnicode := false;
		1274	end;
		1275
78	daniel-mar	1276	ms := TMemoryStream.Create;
79	daniel-mar	1277	ss := TStringStream.Create('');
78	daniel-mar	1278	fs := TFileStream.Create(filename, fmCreate);
76	daniel-mar	1279	try
79	daniel-mar	1280	// Save everything in a memory stream and then to a string
		1281	// in comparison to "str := SynEdit1.Lines.Text;",
		1282	// This approach should preserve LF / CRLF line endings
96	daniel-mar	1283	if UpgradeEncodingToUnicode then
		1284	SynEdit1.Lines.SaveToStream(ms, TEncoding.UTF8) // upgrade an ANSI file to UTF-8 (e.g. if you include Japanese characters)
		1285	else
		1286	SynEdit1.Lines.SaveToStream(ms);
		1287	if DoReloadEncoding then
		1288	begin
		1289	ms.Position := 0;
		1290	SynEdit1.Lines.LoadFromStream(ms);
		1291	end;
79	daniel-mar	1292	ms.Position := 0;
		1293	ss.CopyFrom(ms, ms.Size);
		1294	ss.Position := 0;
		1295	str := ss.ReadString(ss.Size);
		1296	ss.Size := 0; // clear string-stream, because we need it later again
77	daniel-mar	1297
79	daniel-mar	1298	// Detect current line-endings
		1299	if Copy(str, 1, 2) = '#!' then
77	daniel-mar	1300	begin
79	daniel-mar	1301	// Shebang. Use ONLY Linux LF
		1302	str := StringReplace(str, #13#10, #10, [rfReplaceAll]);
		1303	eolStyle := #10 // Linux LF
		1304	end
		1305	else
		1306	begin
		1307	if Pos(#13#10, str) > 0 then
		1308	eolStyle := #13#10 // Windows CRLF
		1309	else if Pos(#10, str) > 0 then
		1310	eolStyle := #10 // Linux LF
78	daniel-mar	1311	else
		1312	begin
79	daniel-mar	1313	if DefaultTextLineBreakStyle = tlbsLF then
		1314	eolStyle := #10 // Linux LF
		1315	else if DefaultTextLineBreakStyle = tlbsCRLF then
		1316	eolStyle := #13#10 // Windows CRLF
		1317	//else if DefaultTextLineBreakStyle = tlbsCR then
		1318	// eolStyle := #13 // Old Mac CR
		1319	else
		1320	eolStyle := #13#10; // (Should not happen)
78	daniel-mar	1321	end;
77	daniel-mar	1322	end;
		1323
79	daniel-mar	1324	// Unitfy line-endings
97	daniel-mar	1325	str := StringReplace(str, #13, '', [rfReplaceAll]);
79	daniel-mar	1326	str := StringReplace(str, #10, eolStyle, [rfReplaceAll]);
		1327
		1328	// Replace all trailing linebreaks by a single line break
		1329	// Note: Removing all line breaks is not good, since Linux's "nano" will
		1330	// re-add a linebreak at the end of the file
		1331	str := TrimRight(str) + eolStyle;
		1332
78	daniel-mar	1333	// Old versions of Delphi/SynEdit write an UTF-8 BOM, which makes problems
		1334	// e.g. with AJAX handlers (because AJAX reponses must not have a BOM).
		1335	// So we try to avoid that.
		1336	// Note that the output is still UTF-8 encoded if the input file was UTF-8 encoded
79	daniel-mar	1337	if Copy(str,1,3) = #$EF#$BB#$BF then Delete(str, 1, 3);
77	daniel-mar	1338
78	daniel-mar	1339	// Now save to the file
79	daniel-mar	1340	ss.WriteString(str);
		1341	ss.Position := 0;
		1342	fs.CopyFrom(ss, ss.Size-ss.Position);
76	daniel-mar	1343	finally
78	daniel-mar	1344	FreeAndNil(ms);
79	daniel-mar	1345	FreeAndNil(ss);
78	daniel-mar	1346	FreeAndNil(fs);
76	daniel-mar	1347	end;
83	daniel-mar	1348
		1349	FileModLast := FileAge(GetScrapFile);
		1350	FileModTimer.Enabled := True;
76	daniel-mar	1351	end;
		1352
27	daniel-mar	1353	procedure TForm1.StartCodeExplorer;
		1354	begin
		1355	codeExplorer := TRunCodeExplorer.Create(true);
		1356	codeExplorer.InputRequestCallback := InputRequestCallback;
		1357	codeExplorer.OutputNotifyCallback := OutputNotifyCallback;
		1358	codeExplorer.PhpExe := GetPHPExe;
		1359	codeExplorer.PhpFile := IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName)) + 'codeexplorer.php'; // GetScrapFile;
		1360	codeExplorer.WorkDir := ExtractFileDir(Application.ExeName);
44	daniel-mar	1361	codeExplorer.Resume;
27	daniel-mar	1362	end;
		1363
62	daniel-mar	1364	procedure TForm1.StartUpTimerTimer(Sender: TObject);
		1365	begin
		1366	StartupTimer.Enabled := false;
		1367
		1368	// We need this timer because we cannot change the Theme during OnShow,
		1369	// because the Delphi VCL Theme is buggy!
		1370
		1371	if TFastPHPConfig.DarkTheme then
		1372	begin
		1373	BtnLight.Picture.Assign(BtnLightOff.Picture);
		1374	Theme_Dark;
		1375	end
		1376	else
		1377	begin
		1378	BtnLight.Picture.Assign(BtnLightOn.Picture);
		1379	Theme_Light;
		1380	end;
		1381	end;
		1382
2	daniel-mar	1383	function TForm1.GetScrapFile: string;
49	daniel-mar	1384	var
		1385	tmpPath: string;
91	daniel-mar	1386	resourcestring
		1387	SFileDoesNotExistsCreate = 'File %s does not exist. Create it?';
		1388	SPathDoesNotExistTryAgain = 'Path does not exist! Please try again.';
2	daniel-mar	1389	begin
56	daniel-mar	1390	if FSaveAsFilename <> '' then
		1391	begin
		1392	result := FSaveAsFilename;
		1393	exit;
		1394	end;
		1395
44	daniel-mar	1396	if FScrapFile <> '' then
		1397	begin
		1398	result := FScrapFile;
		1399	exit;
		1400	end;
19	daniel-mar	1401
15	daniel-mar	1402	if ParamStr(1) <> '' then
49	daniel-mar	1403	begin
		1404	// Program was started with a filename
		1405
		1406	result := ParamStr(1);
		1407
		1408	if not FileExists(result) then
		1409	begin
91	daniel-mar	1410	case MessageDlg(Format(SFileDoesNotExistsCreate, [result]), mtConfirmation, mbYesNoCancel, 0) of
49	daniel-mar	1411	mrYes:
		1412	try
76	daniel-mar	1413	SaveToFile(result);
49	daniel-mar	1414	except
		1415	on E: Exception do
		1416	begin
		1417	MessageDlg(E.Message, mtError, [mbOk], 0);
		1418	Application.Terminate;
		1419	result := '';
		1420	exit;
		1421	end;
		1422	end;
		1423	mrNo:
		1424	begin
		1425	Application.Terminate;
		1426	result := '';
		1427	exit;
		1428	end;
		1429	mrCancel:
		1430	begin
		1431	Application.Terminate;
		1432	result := '';
		1433	exit;
		1434	end;
		1435	end;
		1436	end;
		1437	end
13	daniel-mar	1438	else
2	daniel-mar	1439	begin
49	daniel-mar	1440	// Program is started without filename -> use scrap file
2	daniel-mar	1441
49	daniel-mar	1442	result := TFastPHPConfig.ScrapFile;
		1443
		1444	if not FileExists(result) then
		1445	begin
		1446	repeat
		1447	{$REGION 'Determinate opendialog initial directory'}
		1448	if result <> '' then
		1449	begin
		1450	tmpPath := ExtractFilePath(result);
		1451	if DirectoryExists(tmpPath) then
		1452	begin
		1453	OpenDialog3.InitialDir := tmpPath;
		1454	OpenDialog3.FileName := Result;
		1455	end
		1456	else
		1457	begin
		1458	OpenDialog3.InitialDir := GetMyDocumentsFolder;
		1459	end;
		1460	end
		1461	else
		1462	begin
		1463	OpenDialog3.InitialDir := GetMyDocumentsFolder;
		1464	end;
		1465	{$ENDREGION}
		1466
		1467	if not OpenDialog3.Execute then
		1468	begin
		1469	Application.Terminate;
		1470	result := '';
		1471	exit;
		1472	end;
		1473
		1474	if not DirectoryExists(ExtractFilePath(OpenDialog3.FileName)) then
		1475	begin
91	daniel-mar	1476	MessageDlg(SPathDoesNotExistTryAgain, mtWarning, [mbOk], 0);
49	daniel-mar	1477	end
		1478	else
		1479	begin
		1480	result := OpenDialog3.FileName;
		1481	end;
		1482	until result <> '';
		1483
		1484	if not FileExists(result) then
19	daniel-mar	1485	begin
49	daniel-mar	1486	try
		1487	// Try saving the file; check if we have permissions
		1488	//SynEdit1.Lines.Clear;
76	daniel-mar	1489	SaveToFile(result);
49	daniel-mar	1490	except
		1491	on E: Exception do
		1492	begin
		1493	MessageDlg(E.Message, mtError, [mbOk], 0);
		1494	Application.Terminate;
		1495	result := '';
		1496	exit;
		1497	end;
		1498	end;
19	daniel-mar	1499	end;
2	daniel-mar	1500
49	daniel-mar	1501	TFastPHPConfig.ScrapFile := result;
		1502	FScrapFile := result;
		1503	end;
2	daniel-mar	1504	end;
		1505	end;
		1506
		1507	procedure TForm1.Help;
		1508	var
19	daniel-mar	1509	IndexFile, chmFile, w, OriginalWord, url: string;
2	daniel-mar	1510	internalHtmlFile: string;
91	daniel-mar	1511	resourcestring
		1512	SChmFileNotAValidPHPDocumentation = 'The CHM file is not a valid PHP documentation. Cannot use help.';
		1513	SUnknownErrorCannotUseHelp = 'Unknown error. Cannot use help.';
		1514	SNoHelpAvailable = 'No help for "%s" available';
2	daniel-mar	1515	begin
		1516	if not Assigned(ChmIndex) then
		1517	begin
49	daniel-mar	1518	IndexFile := TFastPHPConfig.HelpIndex;
2	daniel-mar	1519	IndexFile := ChangeFileExt(IndexFile, '.ini'); // Just to be sure. Maybe someone wrote manually the ".chm" file in there
		1520	if FileExists(IndexFile) then
		1521	begin
		1522	ChmIndex := TMemIniFile.Create(IndexFile);
		1523	end;
		1524	end;
		1525
		1526	if Assigned(ChmIndex) then
		1527	begin
49	daniel-mar	1528	IndexFile := TFastPHPConfig.HelpIndex;
2	daniel-mar	1529	// We don't check if IndexFile still exists. It is not important since we have ChmIndex pre-loaded in memory
		1530
		1531	chmFile := ChangeFileExt(IndexFile, '.chm');
		1532	if not FileExists(chmFile) then
		1533	begin
		1534	FreeAndNil(ChmIndex);
		1535	end;
		1536	end;
		1537
		1538	if not Assigned(ChmIndex) then
		1539	begin
		1540	if not OpenDialog1.Execute then exit;
		1541
		1542	chmFile := OpenDialog1.FileName;
		1543	if not FileExists(chmFile) then exit;
		1544
		1545	IndexFile := ChangeFileExt(chmFile, '.ini');
		1546
		1547	if not FileExists(IndexFile) then
		1548	begin
		1549	Panel1.Align := alClient;
		1550	Panel1.Visible := true;
		1551	Panel1.BringToFront;
		1552	Screen.Cursor := crHourGlass;
		1553	Application.ProcessMessages;
		1554	try
		1555	if not ParseCHM(chmFile) then
		1556	begin
91	daniel-mar	1557	MessageDlg(SChmFileNotAValidPHPDocumentation, mtError, [mbOk], 0);
2	daniel-mar	1558	exit;
		1559	end;
		1560	finally
		1561	Screen.Cursor := crDefault;
		1562	Panel1.Visible := false;
		1563	end;
		1564
		1565	if not FileExists(IndexFile) then
		1566	begin
91	daniel-mar	1567	MessageDlg(SUnknownErrorCannotUseHelp, mtError, [mbOk], 0);
2	daniel-mar	1568	exit;
		1569	end;
		1570	end;
		1571
49	daniel-mar	1572	TFastPHPConfig.HelpIndex := IndexFile;
2	daniel-mar	1573
		1574	ChmIndex := TMemIniFile.Create(IndexFile);
		1575	end;
		1576
4	daniel-mar	1577	w := GetWordUnderCaret(SynEdit1);
2	daniel-mar	1578	if w = '' then exit;
44	daniel-mar	1579	{$IFDEF UNICODE}
8	daniel-mar	1580	if CharInSet(w[1], ['0'..'9']) then exit;
44	daniel-mar	1581	{$ELSE}
		1582	if w[1] in ['0'..'9'] then exit;
		1583	{$ENDIF}
19	daniel-mar	1584
		1585	Originalword := w;
		1586	// w := StringReplace(w, '_', '-', [rfReplaceAll]);
2	daniel-mar	1587	w := LowerCase(w);
		1588	CurSearchTerm := w;
		1589
91	daniel-mar	1590	internalHtmlFile := ChmIndex.ReadString('function', CurSearchTerm, ''); // do not translate
2	daniel-mar	1591	if internalHtmlFile = '' then
91	daniel-mar	1592	internalHtmlFile := ChmIndex.ReadString('_HelpWords_', CurSearchTerm, ''); // do not translate
72	daniel-mar	1593	if internalHtmlFile = '' then
2	daniel-mar	1594	begin
		1595	HelpTabsheet.TabVisible := false;
		1596	HlpPrevPageIndex := -1;
91	daniel-mar	1597	ShowMessageFmt(SNoHelpAvailable, [Originalword]);
2	daniel-mar	1598	Exit;
		1599	end;
		1600
		1601	url := 'mk:@MSITStore:'+ChmFile+'::'+internalHtmlFile;
		1602
		1603	HlpPrevPageIndex := PageControl2.ActivePageIndex; // Return by pressing ESC
		1604	HelpTabsheet.TabVisible := true;
		1605	PageControl2.ActivePage := HelpTabsheet;
8	daniel-mar	1606	WebBrowser2.Navigate(url);
		1607	WebBrowser2.Wait;
2	daniel-mar	1608	end;
		1609
5	daniel-mar	1610	procedure TForm1.GotoLineNo(LineNo:integer);
		1611	var
		1612	line: string;
		1613	i: integer;
2	daniel-mar	1614	begin
5	daniel-mar	1615	SynEdit1.GotoLineAndCenter(LineNo);
		1616
		1617	// Skip indent
		1618	line := SynEdit1.Lines[SynEdit1.CaretY];
		1619	for i := 1 to Length(line) do
		1620	begin
44	daniel-mar	1621	{$IFDEF UNICODE}
8	daniel-mar	1622	if not CharInSet(line[i], [' ', #9]) then
44	daniel-mar	1623	{$ELSE}
		1624	if not (line[i] in [' ', #9]) then
		1625	{$ENDIF}
5	daniel-mar	1626	begin
		1627	SynEdit1.CaretX := i-1;
		1628	break;
		1629	end;
		1630	end;
		1631
20	daniel-mar	1632	PageControl2.ActivePage := CodeTabsheet;
5	daniel-mar	1633	if SynEdit1.CanFocus then SynEdit1.SetFocus;
2	daniel-mar	1634	end;
		1635
8	daniel-mar	1636	procedure TForm1.PageControl2Changing(Sender: TObject;
		1637	var AllowChange: Boolean);
		1638	begin
		1639	if PageControl2.ActivePage = HelpTabsheet then
		1640	HlpPrevPageIndex := -1
		1641	else
		1642	HlpPrevPageIndex := PageControl2.ActivePageIndex;
		1643
		1644	AllowChange := true;
		1645	end;
		1646
5	daniel-mar	1647	procedure TForm1.Memo2DblClick(Sender: TObject);
		1648	var
22	daniel-mar	1649	line: string;
		1650
		1651	procedure _process(toFind: string);
		1652	var
		1653	p, lineno: integer;
		1654	begin
		1655	if FileSystemCaseSensitive then
		1656	p := Pos(toFind, line)
		1657	else
44	daniel-mar	1658	p := Pos(LowerCase(toFind), LowerCase(line));
22	daniel-mar	1659	if p <> 0 then
		1660	begin
101	daniel-mar	1661	line := copy(line, p+length(toFind), 99); // TODO: "(test.php:123)" does not work, because "123)" will be tried to convert to Integer
22	daniel-mar	1662	if not TryStrToInt(line, lineno) then exit;
		1663	GotoLineNo(lineno);
		1664	end;
		1665	end;
		1666
5	daniel-mar	1667	begin
		1668	line := memo2.Lines.Strings[Memo2.CaretPos.Y];
16	daniel-mar	1669
18	daniel-mar	1670	{$REGION 'Possibility 1: filename.php:lineno'}
22	daniel-mar	1671	_process(ExtractFileName(GetScrapFile) + ':');
18	daniel-mar	1672	{$ENDREGION}
16	daniel-mar	1673
18	daniel-mar	1674	{$REGION 'Possibility 2: on line xx'}
91	daniel-mar	1675	_process(ExtractFileName(GetScrapFile) + ' on line '); // do not translate!
18	daniel-mar	1676	{$ENDREGION}
5	daniel-mar	1677	end;
		1678
17	daniel-mar	1679	procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word;
		1680	Shift: TShiftState);
		1681	begin
		1682	if ((ssCtrl in Shift) and (Key = 65)) then TMemo(Sender).SelectAll;
		1683	end;
		1684
5	daniel-mar	1685	function TForm1.MarkUpLineReference(cont: string): string;
18	daniel-mar	1686
		1687	procedure _process(toFind: string);
22	daniel-mar	1688	var
		1689	p, a, b: integer;
		1690	num: integer;
		1691	insert_a, insert_b: string;
5	daniel-mar	1692	begin
22	daniel-mar	1693	if FileSystemCaseSensitive then
		1694	p := Pos(toFind, cont)
		1695	else
44	daniel-mar	1696	p := Pos(LowerCase(toFind), LowerCase(cont));
18	daniel-mar	1697	while p >= 1 do
5	daniel-mar	1698	begin
22	daniel-mar	1699	a := p;
		1700	b := p + length(toFind);
18	daniel-mar	1701	num := 0;
44	daniel-mar	1702	{$IFDEF UNICODE}
18	daniel-mar	1703	while CharInSet(cont[b], ['0'..'9']) do
44	daniel-mar	1704	{$ELSE}
		1705	while cont[b] in ['0'..'9'] do
		1706	{$ENDIF}
18	daniel-mar	1707	begin
		1708	num := num*10 + StrToInt(cont[b]);
		1709	inc(b);
		1710	end;
5	daniel-mar	1711
18	daniel-mar	1712	insert_b := '</a>';
22	daniel-mar	1713	insert_a := '<a href="' + FASTPHP_GOTO_URI_PREFIX + IntToStr(num) + '">';
5	daniel-mar	1714
18	daniel-mar	1715	insert(insert_b, cont, b);
		1716	insert(insert_a, cont, a);
5	daniel-mar	1717
18	daniel-mar	1718	p := b + Length(insert_a) + Length(insert_b);
5	daniel-mar	1719
18	daniel-mar	1720	p := PosEx(toFind, cont, p+1);
		1721	end;
5	daniel-mar	1722	end;
22	daniel-mar	1723
18	daniel-mar	1724	begin
		1725	{$REGION 'Possibility 1: filename.php:lineno'}
22	daniel-mar	1726	_process(ExtractFileName(GetScrapFile) + ':');
18	daniel-mar	1727	{$ENDREGION}
5	daniel-mar	1728
18	daniel-mar	1729	{$REGION 'Possibility 2: on line xx'}
91	daniel-mar	1730	_process(ExtractFileName(GetScrapFile) + ' on line '); // do not translate!
18	daniel-mar	1731	{$ENDREGION}
		1732
5	daniel-mar	1733	result := cont;
		1734	end;
		1735
40	daniel-mar	1736	function TForm1.InputRequestCallback(var data: AnsiString): boolean;
27	daniel-mar	1737	begin
40	daniel-mar	1738	data := UTF8Encode(SynEdit1.Text);
		1739	result := true;
27	daniel-mar	1740	end;
		1741
62	daniel-mar	1742	function TForm1.IsThemeDark: boolean;
		1743	begin
		1744	result := Assigned(TStyleManager.ActiveStyle) and (TStyleManager.ActiveStyle.Name<>'Windows');
		1745	end;
		1746
40	daniel-mar	1747	function TForm1.OutputNotifyCallback(const data: AnsiString): boolean;
27	daniel-mar	1748	begin
91	daniel-mar	1749	result := TreeView1.FillWithFastPHPData(string(data));
27	daniel-mar	1750	end;
		1751
2	daniel-mar	1752	end.

Subversion Repositories fastphp

fastphp/trunk/EditorMain.pas – Rev 103