paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 14:20:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: source editor: showing for ansi encoding the current system encoding

Browse Source 
git-svn-id: trunk@15363 -
This commit is contained in:
mattias 2008-06-08 19:39:17 +00:00
parent a008d75250
commit 668f6c6a7e
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourceeditor.pp
View File

@ -4223,6 +4223,7 @@ var
CurName: String;
CurCaption: String;
IDEMenuItem: TIDEMenuItem;
SysEncoding: String;
begin
SrcEditSubMenuEncoding.ChildsAsSubMenu:=true;
SrcEdit:=GetActiveSE;
@ -4239,6 +4240,12 @@ begin
for i:=0 to List.Count-1 do begin
CurName:='Encoding'+IntToStr(i);
CurEncoding:=List[i];
if SysUtils.CompareText(CurEncoding,EncodingAnsi)=0 then begin
SysEncoding:=GetSystemEncoding;
if (SysEncoding<>'') and (SysUtils.CompareText(SysEncoding,EncodingAnsi)<>0)
then
CurEncoding:=CurEncoding+' ('+GetSystemEncoding+')';
end;
CurCaption:=CurEncoding;
if SrcEditSubMenuEncoding.Count=i then begin
// add new item

2
lcl/interfaces/gtk/gtkwinapiwindow.pp
View File

@ -437,7 +437,7 @@ begin
//@ gtk_widget_set_flags(AWidget, GTK_REALIZED);
{$Ifdef GTK2}
// gtk_widget_set_double_buffered(AWidget, False);
gtk_widget_set_double_buffered(AWidget, False); // bites caret
gtk_widget_set_redraw_on_allocate(AWidget, False);
{$EndIf}