pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

Исправлен шрифт в редакторе GRUSH

Browse Source 
git-svn-id: https://svn.code.sf.net/p/kolmck/code@16 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck
2009-08-19 08:54:40 +00:00
parent 72b1bbfb88
commit b16ca891c9
13 changed files with 1840 additions and 1775 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Addons/KOLGRushControls.pas
View File

@ -170,6 +170,7 @@ type
, ctRadioBox { $23}, ctSplitter { $24}, ctProgressBar { $25});
TGRushSpeed = (usImmediately, usVeryFast, usFast, usNormal, usSlow, usVerySlow);
// 64(1) 13(5) 10(7) 8(8) 6(11) 4(16)
TGRushVAlign = TVerticalAlign;
TGRushHAlign = (haLeft, haCenter, haRight);
TGRushPaintState = packed record
@ -218,9 +219,9 @@ type
fCheckMetric: DWORD;
fColorCheck: TColor;
//208
fGlyphVAlign: TVerticalAlign;
fGlyphVAlign: TGRushVAlign;
fGlyphHAlign: TGRushHAlign;
fTextVAlign: TVerticalAlign;
fTextVAlign: TGRushVAlign;
fTextHAlign: TGRushHAlign;
{?}fDrawGlyph: Boolean;
{?}fDrawText: Boolean;
@ -278,9 +279,9 @@ type
fCheckMetric: DWORD;
fColorCheck: TColor;
//208
fGlyphVAlign: TVerticalAlign;
fGlyphVAlign: TGRushVAlign;
fGlyphHAlign: TGRushHAlign;
fTextVAlign: TVerticalAlign;
fTextVAlign: TGRushVAlign;
fTextHAlign: TGRushHAlign;
fDrawGlyph: Boolean;
fDrawText: Boolean;
@ -390,9 +391,9 @@ type
function GetDis_GlyphItemY: DWORD; procedure SetDis_GlyphItemY(Val: DWORD);
function GetAll_CheckMetric: DWORD; procedure SetAll_CheckMetric(Val: DWORD);
function GetAll_GlyphVAlign: TVerticalAlign; procedure SetAll_GlyphVAlign(Val: TVerticalAlign);
function GetAll_GlyphVAlign: TGRushVAlign; procedure SetAll_GlyphVAlign(Val: TGRushVAlign);
function GetAll_GlyphHAlign: TGRushHAlign; procedure SetAll_GlyphHAlign(Val: TGRushHAlign);
function GetAll_TextVAlign: TVerticalAlign; procedure SetAll_TextVAlign(Val: TVerticalAlign);
function GetAll_TextVAlign: TGRushVAlign; procedure SetAll_TextVAlign(Val: TGRushVAlign);
function GetAll_TextHAlign: TGRushHAlign; procedure SetAll_TextHAlign(Val: TGRushHAlign);
function GetAll_DrawText: Boolean; procedure SetAll_DrawText(Val: Boolean);
function GetAll_DrawGlyph: Boolean; procedure SetAll_DrawGlyph(Val: Boolean);
@ -591,7 +592,7 @@ type
read GetAll_GlyphHAlign write SetAll_GlyphHAlign;
{* }
{= }
property All_GlyphVAlign: TVerticalAlign
property All_GlyphVAlign: TGRushVAlign
read GetAll_GlyphVAlign write SetAll_GlyphVAlign;
{* }
{= }
@ -599,7 +600,7 @@ type
read GetAll_TextHAlign write SetAll_TextHAlign;
{* }
{= }
property All_TextVAlign: TVerticalAlign
property All_TextVAlign: TGRushVAlign
read GetAll_TextVAlign write SetAll_TextVAlign;
{* }
{= }
@ -976,7 +977,7 @@ begin
((((Color shr 3) and $1f) * 541052) shr 16);
end;
procedure AlignRect(var Result: TRect; const Container: TRect; VA: TVerticalAlign; HA: TGRushHAlign);
procedure AlignRect(var Result: TRect; const Container: TRect; VA: TGRushVAlign; HA: TGRushHAlign);
var Wi, He: integer;
begin
Wi := Result.Right - Result.Left;