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

* fix UTF8 text display in source note book

Browse Source 
git-svn-id: trunk@5737 -
This commit is contained in:
mazen 2004-08-04 15:48:44 +00:00
parent c2790676bb
commit 922cb9f947
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -402,6 +402,7 @@ var
LinePos: PChar; LinePos: PChar;
begin begin
with TDeviceContext(DC) do begin with TDeviceContext(DC) do begin
{$IFDEF GTK1}
if (Dx=nil) then begin if (Dx=nil) then begin
// no dist array -> write as one block // no dist array -> write as one block
//fix me... do we even need to do it this way with pango? //fix me... do we even need to do it this way with pango?
@ -422,6 +423,9 @@ var
inc(CurDistX); inc(CurDistX);
end; end;
end; end;
{$ELSE GTK1}
DoTextOut(TxtPt.X, TxtPt.Y, LineStart, LineLen);
{$ENDIF GTK1}
end; end;
end; end;
@ -826,6 +830,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.10 2004/08/04 15:48:44 mazen
* fix UTF8 text display in source note book
Revision 1.9 2004/05/11 12:16:48 mattias Revision 1.9 2004/05/11 12:16:48 mattias
replaced writeln by debugln replaced writeln by debugln