paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazdatadesktop: unicode file names

Browse Source 
git-svn-id: trunk@46806 -
This commit is contained in:
mattias 2014-11-12 18:45:34 +00:00
parent b4b6a57dd9
commit d709e846a2
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/lazdatadesktop/frmmain.pp
View File

@ -398,7 +398,7 @@ begin
ShowRecentConnections;
ShowDDImports;
ShowNewConnectionTypes;
PSMain.IniFileName:=ChangeFileExt(UTF8ToSys(FN),'.ini');
PSMain.IniFileName:=ChangeFileExt(FN,'.ini');
LVDicts.Columns[0].Width:=120;
LVDicts.Columns[1].Width:=380;
LVDicts.Columns[2].Width:=150;

4
tools/lazdatadesktop/querypanel.pp
View File

@ -369,7 +369,7 @@ end;
procedure TQueryPanel.LoadQuery(AFileName: String);
begin
FMSQL.Lines.LoadFromFile(UTF8ToSys(AFileName));
FMSQL.Lines.LoadFromFile(AFileName);
end;
function TQueryPanel.AddToHistory(Qry: String): Integer;
@ -413,7 +413,7 @@ end;
procedure TQueryPanel.SaveQuery(AFileName: String);
begin
FMSQL.Lines.SaveToFile(UTF8ToSys(AFileName));
FMSQL.Lines.SaveToFile(AFileName);
end;
procedure TQueryPanel.ExecuteQuery(Qry : String);