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

LCL: added Delphi compatible TGraphic.Progress

Browse Source 
git-svn-id: trunk@10356 -
This commit is contained in:
mattias 2006-12-28 22:43:25 +00:00
parent b56bef2991
commit 574e1e3688
3 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/graphics.pp
View File

@ -690,6 +690,9 @@ type
procedure Progress(Sender: TObject; Stage: TProgressStage; procedure Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect; PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
const Msg: string; var DoContinue: boolean); dynamic; const Msg: string; var DoContinue: boolean); dynamic;
procedure Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
const Msg: string); dynamic;
procedure ReadData(Stream: TStream); virtual; procedure ReadData(Stream: TStream); virtual;
procedure SetHeight(Value: Integer); virtual; abstract; procedure SetHeight(Value: Integer); virtual; abstract;
procedure SetPalette(Value: HPALETTE); virtual; procedure SetPalette(Value: HPALETTE); virtual;

9
lcl/include/graphic.inc
View File

@ -60,6 +60,15 @@ begin
FOnProgress(Sender, Stage, PercentDone, RedrawNow, R, Msg, DoContinue); FOnProgress(Sender, Stage, PercentDone, RedrawNow, R, Msg, DoContinue);
end; end;
procedure TGraphic.Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
var
DoContinue: Boolean;
begin
DoContinue:=true;
Progress(Sender,Stage,PercentDone,RedrawNow,R,Msg,DoContinue);
end;
function TGraphic.Equals(Graphic: TGraphic): Boolean; function TGraphic.Equals(Graphic: TGraphic): Boolean;
var var
SelfImage, GraphicsImage: TMemoryStream; SelfImage, GraphicsImage: TMemoryStream;

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

@ -3088,7 +3088,7 @@ var
KeySym: array[0..3] of TKeySym; KeySym: array[0..3] of TKeySym;
VKey, FreeVK, Flags: Byte; VKey, FreeVK, Flags: Byte;
VKeyRec: TVKeyRecord; VKeyRec: TVKeyRecord;
HasMultiVK, DoMultiVK, Extended, HasKey, ComputeVK, WarningShown: Boolean; HasMultiVK, DoMultiVK, Extended, HasKey, ComputeVK: Boolean;
KeySymChars: array[0..16] of Char; KeySymChars: array[0..16] of Char;
KeySymCharLen: Integer; KeySymCharLen: Integer;
XKeyEvent: TXKeyEvent; XKeyEvent: TXKeyEvent;
@ -3107,7 +3107,6 @@ begin
Assert((LoKey >= 0) and (HiKey <= 255)); // perdef Assert((LoKey >= 0) and (HiKey <= 255)); // perdef
FreeVK := $92; // first OEM specific VK FreeVK := $92; // first OEM specific VK
WarningShown := False;
FillChar(KeySym,SizeOf(KeySym),0); FillChar(KeySym,SizeOf(KeySym),0);
for n := LoKey to HiKey do for n := LoKey to HiKey do
begin begin