fastphpalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk/EditorMain.pas @ 46

  → /trunk/EditorMain.pas @ 47

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 46 → Rev 47

/trunk/EditorMain.pas
141,6 → 141,7
TransientType: TTransientType);
procedure ActionLintExecute(Sender: TObject);
procedure ActionRunConsoleExecute(Sender: TObject);
procedure SynEdit1Change(Sender: TObject);
private
CurSearchTerm: string;
HlpPrevPageIndex: integer;
159,6 → 160,7
procedure GotoLineNo(LineNo: integer);
function GetScrapFile: string;
procedure StartCodeExplorer;
procedure RefreshModifySign;
end;
var
177,7 → 179,18
const
crMouseGutter = 1;
// TODO: FindPrev ?
procedure TForm1.RefreshModifySign;
var
tmp: string;
begin
tmp := Caption;
tmp := StringReplace(tmp, '*', '', [rfReplaceAll]);
if SynEdit1.Modified then tmp := tmp + '*';
if Caption <> tmp then Caption := tmp;
end;
procedure TForm1.ActionFindNextExecute(Sender: TObject);
begin
SrcRep.FindNext;
249,6 → 262,7
begin
SynEdit1.Lines.SaveToFile(GetScrapFile);
SynEdit1.Modified := false;
RefreshModifySign;
end;
procedure TForm1.ActionSpaceToTabExecute(Sender: TObject);
390,7 → 404,7
Application.ProcessMessages;
try
SynEdit1.Lines.SaveToFile(GetScrapFile);
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.
memo2.Lines.Text := RunPHPScript(GetScrapFile, Sender=ActionLint, False);
407,10 → 421,15
procedure TForm1.RunConsole(Sender: TObject);
begin
SynEdit1.Lines.SaveToFile(GetScrapFile);
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.
RunPHPScript(GetScrapFile, Sender=ActionLint, True);
end;
procedure TForm1.SynEdit1Change(Sender: TObject);
begin
RefreshModifySign;
end;
procedure TForm1.SynEdit1GutterClick(Sender: TObject; Button: TMouseButton; X,
Y, Line: Integer; Mark: TSynEditMark);
begin
718,13 → 737,13
end
else if r = mrYes then
begin
SynEdit1.Lines.SaveToFile(GetScrapFile);
ActionSave.Execute;
CanClose := true;
end;
end
else
begin
SynEdit1.Lines.SaveToFile(GetScrapFile);
ActionSave.Execute;
CanClose := true;
end;
end;
834,8 → 853,8
end;
until result <> '';
SynEdit1.Lines.Clear;
SynEdit1.Lines.SaveToFile(result);
//SynEdit1.Lines.Clear;
//SynEdit1.Lines.SaveToFile(result);
FastPHPConfig.WriteString('Paths', 'ScrapFile', result);
FScrapFile := result;