paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 17:52:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, SourceEditor: Fix width of macro-record-stop button, Issue #37858

Browse Source 
git-svn-id: trunk@63964 -
This commit is contained in:
martin 2020-10-06 18:16:10 +00:00
parent 410dd26d95
commit 7bf871655b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourceeditor.pp
View File

@ -8152,8 +8152,10 @@ end;
procedure TSourceNotebook.StatusBarDrawPanel(AStatusBar: TStatusBar; APanel: TStatusPanel; procedure TSourceNotebook.StatusBarDrawPanel(AStatusBar: TStatusBar; APanel: TStatusPanel;
const ARect: TRect); const ARect: TRect);
begin begin
if APanel = StatusBar.Panels[1] then if APanel = StatusBar.Panels[1] then begin
IDEImages.Images_16.Draw(StatusBar.Canvas, ARect.Left, ARect.Top, FStopBtnIdx); IDEImages.Images_16.ResolutionForControl[16, AStatusBar]
.Draw(StatusBar.Canvas, ARect.Left, ARect.Top, FStopBtnIdx);
end;
end; end;
procedure TSourceNotebook.ToggleBreakpointClicked(Sender: TObject); procedure TSourceNotebook.ToggleBreakpointClicked(Sender: TObject);