mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-29 14:02:42 +02:00
revert r62550 #e254ce3acb
git-svn-id: trunk@62553 -
This commit is contained in:
parent
6e3d70b796
commit
cb399a6260
@ -1972,8 +1972,6 @@ function CreateCompatibleBitmaps(const ARawImage: TRawImage; out ABitmap, AMask:
|
||||
function CreateBitmapFromFPImage(Img: TFPCustomImage): TBitmap;
|
||||
function AllocPatternBitmap(colorBG, colorFG: TColor): TBitmap;
|
||||
|
||||
// Font
|
||||
function IsFontNameDefault(const AName: string): boolean; inline;
|
||||
|
||||
var
|
||||
{ Stores information about the current screen
|
||||
@ -2032,11 +2030,6 @@ var
|
||||
GraphicsUpdateCount: Integer = 0;
|
||||
UpdateLock: TCriticalSection;
|
||||
|
||||
function IsFontNameDefault(const AName: string): boolean;
|
||||
begin
|
||||
Result := CompareText(AName, DefFontData.Name) = 0;
|
||||
end;
|
||||
|
||||
procedure UpdateHandleObjects;
|
||||
begin
|
||||
// renew all brushes, pens, fonts, ...
|
||||
|
@ -310,6 +310,8 @@ function UnicodeToUTF16(u: cardinal): UTF16String;
|
||||
// identifier
|
||||
function CreateFirstIdentifier(const Identifier: string): string;
|
||||
function CreateNextIdentifier(const Identifier: string): string;
|
||||
// Font
|
||||
function IsFontNameDefault(const AName: string): boolean; inline;
|
||||
|
||||
{$IFDEF WithOldDebugln}
|
||||
type
|
||||
@ -2455,6 +2457,11 @@ begin
|
||||
+IntToStr(1+StrToIntDef(copy(Identifier,p+1,length(Identifier)-p),0));
|
||||
end;
|
||||
|
||||
function IsFontNameDefault(const AName: string): boolean;
|
||||
begin
|
||||
Result := CompareText(AName, 'default') = 0;
|
||||
end;
|
||||
|
||||
{ TDebugLCLItems }
|
||||
|
||||
constructor TDebugLCLItems.Create(const TheName: string);
|
||||
|
Loading…
Reference in New Issue
Block a user