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

LazFreeType: Fix flickering in the example

Browse Source 
git-svn-id: trunk@40103 -
This commit is contained in:
ask 2013-01-31 22:18:22 +00:00
parent cba980b847
commit 7e7ddd626e
3 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/lazfreetype/lazfreetypetest.lpi
View File

@ -45,6 +45,7 @@
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="mainform"/> <UnitName Value="mainform"/>
</Unit1> </Unit1>

8
examples/lazfreetype/mainform.lfm
View File

@ -12,7 +12,7 @@ object Form1: TForm1
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnMouseMove = FormMouseMove OnMouseMove = FormMouseMove
OnPaint = FormPaint OnPaint = FormPaint
LCLVersion = '0.9.31' LCLVersion = '1.1'
object Panel_Option: TPanel object Panel_Option: TPanel
Left = 0 Left = 0
Height = 40 Height = 40
@ -48,15 +48,15 @@ object Form1: TForm1
end end
object Label1: TLabel object Label1: TLabel
Left = 6 Left = 6
Height = 16 Height = 13
Top = 12 Top = 12
Width = 33 Width = 26
Caption = 'Zoom' Caption = 'Zoom'
ParentColor = False ParentColor = False
end end
object SpinEdit_Zoom: TSpinEdit object SpinEdit_Zoom: TSpinEdit
Left = 48 Left = 48
Height = 23 Height = 21
Top = 8 Top = 8
Width = 40 Width = 40
MaxValue = 9 MaxValue = 9

10
examples/lazfreetype/mainform.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ComCtrls, ExtCtrls, Spin, fpimage, ComCtrls, ExtCtrls, Spin, fpimage, LCLType,
IntfGraphics, GraphType, //Intf basic routines IntfGraphics, GraphType, //Intf basic routines
@ -32,13 +32,12 @@ type
procedure TrackBar_SizeChange(Sender: TObject); procedure TrackBar_SizeChange(Sender: TObject);
private private
procedure UpdateSizeLabel; procedure UpdateSizeLabel;
{ private declarations }
public public
{ public declarations }
lazimg: TLazIntfImage; lazimg: TLazIntfImage;
drawer: TIntfFreeTypeDrawer; drawer: TIntfFreeTypeDrawer;
ftFont1,ftFont2,ftFont3: TFreeTypeFont; ftFont1,ftFont2,ftFont3: TFreeTypeFont;
mx,my: integer; //mouse position mx,my: integer; //mouse position
procedure EraseBackground(DC: HDC); override;
end; end;
var var
@ -48,6 +47,11 @@ implementation
{ TForm1 } { TForm1 }
procedure TForm1.EraseBackground(DC: HDC);
begin
// empty
end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
mx := clientwidth div 2; mx := clientwidth div 2;