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

double byte char font started

Browse Source 
git-svn-id: trunk@1384 -
This commit is contained in:
mattias 2002-02-09 01:48:22 +00:00
parent 8f911acd8a
commit babefcd9dd
2 changed files with 42 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lcl/include/interfacebase.inc
View File

@ -164,6 +164,12 @@ begin
Result := 0;
end;
function TInterfaceBase.CreateDIBSection(DC: HDC; const p2: tagBitmapInfo;
p3: UINT; var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP;
begin
Result := 0;
end;
function TInterfaceBase.CreateFontIndirect(const LogFont: TLogFont): HFONT;
begin
Result := 0;
@ -742,6 +748,12 @@ begin
Result := 0;
end;
function TInterfaceBase.GetBitmapBits(Bitmap: HBITMAP; Count: Longint;
Bits: Pointer): Longint;
begin
Result := 0;
end;
function TInterfaceBase.GetCapture : HWND;
begin
Result := 0;
@ -813,23 +825,16 @@ begin
Result := 0;
end;
function TInterfaceBase.GetBitmapBits(Bitmap: HBITMAP; Count: Longint;
Bits: Pointer): Longint;
begin
Result := 0;
end;
function TInterfaceBase.CreateDIBSection(DC: HDC; const p2: tagBitmapInfo;
p3: UINT; var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP;
begin
Result := 0;
end;
function TInterfaceBase.GetFocus: HWND;
begin
Result := 0;
end;
function TInterfaceBase.GetFontLanguageInfo(DC: HDC): DWord;
begin
Result := 0;
end;
function TInterfaceBase.GetKeyState(nVirtKey: Integer): Smallint;
begin
Result := 0;
@ -995,6 +1000,11 @@ begin
Result := false;
end;
function TInterfaceBase.IsDBCSLeadByte(TestChar: Byte): BOOL;
begin
Result := false;
end;
Function TInterfaceBase.RequestInput(const InputCaption, InputPrompt : String;
MaskInput : Boolean; var Value : String) : Boolean;
begin
@ -1496,6 +1506,9 @@ end;
{ =============================================================================
$Log$
Revision 1.70 2002/12/05 22:16:29 mattias
double byte char font started
Revision 1.69 2002/11/30 11:22:53 mattias
statusbar now uses invalidaterect

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

@ -3775,6 +3775,20 @@ begin
StrDispose(NewStr);
end;
{------------------------------------------------------------------------------
function FontIsDoubleByteCharsFont(TheFont: PGdkFont): boolean;
This is only a heuristic
------------------------------------------------------------------------------}
function FontIsDoubleByteCharsFont(TheFont: PGdkFont): boolean;
var
SingleCharLen, DoubleCharLen: integer;
begin
SingleCharLen:=gdk_text_width(TheFont, 'A', 1);
DoubleCharLen:=gdk_text_width(TheFont, 'AA', 2);
Result:=(SingleCharLen=0) and (DoubleCharLen>0);
end;
{------------------------------------------------------------------------------
Method: GDKPixel2GDIRGB
Params:
@ -3931,6 +3945,9 @@ end;
{ =============================================================================
$Log$
Revision 1.151 2002/12/05 22:16:32 mattias
double byte char font started
Revision 1.150 2002/11/23 13:48:46 mattias
added Timer patch from Vincent Snijders