paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-16 03:57:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: formatting.

Browse Source 
git-svn-id: trunk@51673 -
This commit is contained in:
juha 2016-02-21 14:05:36 +00:00
parent 365d820d9e
commit 1a992ed303
3 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/ideexterntoolintf.pas
View File

@ -1693,9 +1693,9 @@ begin
if (Cnt>1) then begin
Prev:=Items[Cnt-2];
if MsgLine.Filename=Prev.Filename then
MsgLine.fFilename:=Prev.Filename;
MsgLine.fFilename:=Prev.Filename;
if MsgLine.OriginalLine=Prev.OriginalLine then
MsgLine.fOriginalLine:=Prev.OriginalLine;
MsgLine.fOriginalLine:=Prev.OriginalLine;
end;
LineChanged(MsgLine);
@ -2129,8 +2129,7 @@ begin
Result:=CreateRelativePath(Result,FLines.BaseDirectory);
end;
procedure TMessageLine.ShareStrings(const ShareStringEvent: TETShareStringEvent
);
procedure TMessageLine.ShareStrings(const ShareStringEvent: TETShareStringEvent);
var
i: Integer;
s: String;

6
ide/etmessageframe.pas
View File

@ -170,8 +170,7 @@ type
function GetActiveFilter: TLMsgViewFilter; inline;
function GetHeaderBackground(aToolState: TLMVToolState): TColor;
function GetSelectedLine: integer;
function GetUrgencyStyles(Urgency: TMessageLineUrgency
): TMsgCtrlUrgencyStyle;
function GetUrgencyStyles(Urgency: TMessageLineUrgency): TMsgCtrlUrgencyStyle;
function GetViews(Index: integer): TLMsgWndView;
procedure OnViewChanged(Sender: TObject); // (main thread)
procedure MsgUpdateTimerTimer(Sender: TObject);
@ -3581,7 +3580,8 @@ begin
if not (CurMark is TETMark) then continue;
Msg:=CurMark.MsgLine;
CurHint:=MessagesCtrl.UrgencyToStr(Msg.Urgency)+': '+Msg.Msg;
if HintStr<>'' then HintStr:=HintStr+LineEnding;
if HintStr<>'' then
HintStr:=HintStr+LineEnding;
HintStr:=HintStr+CurHint;
end;
end;

5
ide/etmessageswnd.pas
View File

@ -100,7 +100,7 @@ begin
IDEMessagesWindow:=Self;
Caption:=lisMenuViewMessages;
try
IDEMessagesWindow.Icon.LoadFromResourceName(HInstance, 'WIN_MESSAGES');
Icon.LoadFromResourceName(HInstance, 'WIN_MESSAGES');
except
end;
MessagesFrame1.MessagesCtrl.OnOpenMessage:=@OnOpenMessage;
@ -122,8 +122,7 @@ begin
FormStyle:=fsNormal;
end;
function TMessagesView.OnOpenMessage(Sender: TObject; Msg: TMessageLine
): boolean;
function TMessagesView.OnOpenMessage(Sender: TObject; Msg: TMessageLine): boolean;
begin
Result:=false;
// ask quickfixes