paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 61309 #93d8287c3e, 61318 #c2480c6563, 61340 #15cde7a988 from trunk:

Browse Source 
SynEdit: Fixed crash in MarkTextAsSaved. Issue #0035635
........
IDE: Run without debug, pass command-line args. Issue #0035649
........
SynEdit: Fix position for IME (e.g. Candidate window). Requests are received before "StartComposition".  Issue #0035682
........

git-svn-id: branches/fixes_2_0@61359 -
This commit is contained in:
martin 2019-06-11 16:16:28 +00:00
parent d54eabffb6
commit 32007e4563
3 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/lazsynimm.pas
View File

@ -568,6 +568,8 @@ begin
IMR_QUERYCHARPOSITION: begin
cp := PIMECHARPOSITION(Msg.lParam);
p1 := FImeBlockSelection.StartLineBytePos;
if not FInCompose then
p1 := CaretObj.LineBytePos;
CWidth := ViewedTextBuffer.GetPhysicalCharWidths(FImeBlockSelection.StartLinePos - 1);
x := p1.x - 1;

2
components/synedit/synedit.pp
View File

@ -7555,7 +7555,7 @@ end;
procedure TCustomSynEdit.MarkTextAsSaved;
begin
TSynEditStringList(fLines).MarkSaved;
if FLeftGutter.Visible and FLeftGutter.ChangesPart(0).Visible then
if FLeftGutter.Visible and (FLeftGutter.ChangesPart(0) <> nil) and FLeftGutter.ChangesPart(0).Visible then
InvalidateGutter; // Todo: Make the ChangeGutterPart an observer
end;

1
ide/main.pp
View File

@ -7241,6 +7241,7 @@ begin
Params.Delete(0);
end;
Process.Executable := ExeFile;
Process.Parameters.Assign(Params);
ARunMode := Project1.RunParameterOptions.GetActiveMode;
if RunAppBundle