paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-25 10:22:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compile probelm using gtk1

Browse Source 
git-svn-id: trunk@5913 -
This commit is contained in:
mazen 2004-09-02 16:04:17 +00:00
parent 0feb2a60d9
commit e9bf89e4df
3 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synedit.pp
View File

@ -6359,12 +6359,11 @@ begin
Helper := Copy(Temp, CaretX, counter);
{$IFDEF SYN_LAZARUS}
{$IFDEF USE_UTF8BIDI_LCL}
WriteLn('passed her!');
CaretNew.X := CaretX;
utf8bidi.insert(Temp,AChar,CaretNew.X);
utf8bidi.insert(AChar,Temp,CaretNew.X);
CaretX := CaretNew.X;
{$ELSE USE_UTF8BIDI_LCL}
insert(Temp,AChar,CaretX);
System.insert(AChar,Temp,CaretX);
{$ENDIF USE_UTF8BIDI_LCL}
{$ELSE}
Temp[CaretX] := AChar;

5
lcl/interfaces/gtk/gtkproc.inc
View File

@ -2167,7 +2167,7 @@ begin
if (Event^.length>0) and (Event^.length<7) then begin
SetLength(Character,Event^.length);
System.Move(Event^.thestring^,Character[1],length(Character));
end
end;
{$ELSE GTK1}
Character := UnicodeToUTF8(gdk_keyval_to_unicode(Event^.KeyVal));
{$ENDIF GTK1}
@ -7235,6 +7235,9 @@ end;
{ =============================================================================
$Log$
Revision 1.301 2004/09/02 16:01:24 mazen
* fix compile probelm using gtk1
Revision 1.300 2004/09/02 14:58:14 mazen
* fixed theType/_Type related to GTK1/GTK2 difference
* fix return error which causes GTK2 not to call AfterEvent

4
lcl/interfaces/gtk/gtkproc.pp
View File

@ -756,10 +756,10 @@ procedure EndGDKErrorTrap;
implementation
{$IFDEF USE_UTF8BIDI_LCL}
uses
{$IFDEF USE_UTF8BIDI_LCL}
utf8bidi;
{$ENDIF}
{$ENDIF}
const
VKEY_FLAG_SHIFT = $01;