paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-18 00:21:42 +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 if (Cnt>1) then begin
Prev:=Items[Cnt-2]; Prev:=Items[Cnt-2];
if MsgLine.Filename=Prev.Filename then if MsgLine.Filename=Prev.Filename then
MsgLine.fFilename:=Prev.Filename; MsgLine.fFilename:=Prev.Filename;
if MsgLine.OriginalLine=Prev.OriginalLine then if MsgLine.OriginalLine=Prev.OriginalLine then
MsgLine.fOriginalLine:=Prev.OriginalLine; MsgLine.fOriginalLine:=Prev.OriginalLine;
end; end;
LineChanged(MsgLine); LineChanged(MsgLine);
@ -2129,8 +2129,7 @@ begin
Result:=CreateRelativePath(Result,FLines.BaseDirectory); Result:=CreateRelativePath(Result,FLines.BaseDirectory);
end; end;
procedure TMessageLine.ShareStrings(const ShareStringEvent: TETShareStringEvent procedure TMessageLine.ShareStrings(const ShareStringEvent: TETShareStringEvent);
);
var var
i: Integer; i: Integer;
s: String; s: String;

6
ide/etmessageframe.pas
View File

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

5
ide/etmessageswnd.pas
View File

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