opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Memo editor fix: Changing the scrollbars invoke the OnChange event. Avoid thinking the text was really modified in that case.

Browse Source
This commit is contained in:
Ansgar Becker
2008-08-27 14:20:58 +00:00
parent 06a7242891
commit 369450d14f
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/memoeditor.pas
View File

@ -82,13 +82,18 @@ begin
end; end;
procedure TfrmMemoEditor.btnWrapClick(Sender: TObject); procedure TfrmMemoEditor.btnWrapClick(Sender: TObject);
var
WasModified: Boolean;
begin begin
Screen.Cursor := crHourglass; Screen.Cursor := crHourglass;
// Changing the scrollbars invoke the OnChange event. We avoid thinking the text was really modified.
WasModified := FModified;
if memoText.ScrollBars = ssBoth then if memoText.ScrollBars = ssBoth then
memoText.ScrollBars := ssVertical memoText.ScrollBars := ssVertical
else else
memoText.ScrollBars := ssBoth; memoText.ScrollBars := ssBoth;
TToolbutton(Sender).Down := memoText.ScrollBars = ssVertical; TToolbutton(Sender).Down := memoText.ScrollBars = ssVertical;
FModified := WasModified;
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
end; end;