Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 103 → Rev 104

/trunk/EditorMain.pas
35,8 → 35,8
// Future ideas
// - code insight
// - verschiedene php versionen?
// - webbrowser1 nur laden, wenn man den tab anw�hlt?
// - doppelklick auf tab soll diesen schlie�en
// - webbrowser1 nur laden, wenn man den tab anwaehlt?
// - doppelklick auf tab soll diesen schliessen
// - Onlinehelp (www) aufrufen oder CHM datei
// - Let all colors be adjustable
// - code in bildschirmmitte (horizontal)?
1156,6 → 1156,8
if FormShowRanOnce then exit; // If the theme is changed from normal to dark, OnShow will be called another time
FormShowRanOnce := true;
 
DoubleBuffered := true;
 
ScrapFile := GetScrapFile;
if ScrapFile = '' then
begin
1176,16 → 1178,25
end;
SynEdit1.Options := opts;
 
PageControl1.ActivePage := PlaintextTabSheet;
 
PageControl2.ActivePage := CodeTabsheet;
HelpTabsheet.TabVisible := false;
 
tmpFontSize := TFastPHPConfig.FontSize;
if tmpFontSize <> -1 then SynEdit1.Font.Size := tmpFontSize;
 
if FileExists(ScrapFile) then
begin
if hMutex = 0 then
begin
hMutex := CreateMutex(nil, True, PChar('FastPHP'+md5(UpperCase(ScrapFile))));
hMutex := CreateMutex(nil, True, PChar('FastPHP'+md5(UpperCase(ScrapFile)))); // do not translate
if GetLastError = ERROR_ALREADY_EXISTS then
begin
// TODO: It would be great if the window of that FastPHP instance would switched to foreground
ShowMessageFmt(SFileAlreadyOpen, [ScrapFile]);
Close;
Application.Terminate; // Close;
exit;
end;
 
SynEdit1.Lines.LoadFromFile(ScrapFile);
1194,16 → 1205,8
else
SynEdit1.Lines.Clear;
 
PageControl1.ActivePage := PlaintextTabSheet;
 
PageControl2.ActivePage := CodeTabsheet;
HelpTabsheet.TabVisible := false;
 
tmpFontSize := TFastPHPConfig.FontSize;
if tmpFontSize <> -1 then SynEdit1.Font.Size := tmpFontSize;
SynEdit1.SetFocus;
 
DoubleBuffered := true;
StartCodeExplorer;
 
DragAcceptFiles(Handle, True);