pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

rx: updated to 1.1.5.98

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@250 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-09-01 11:39:17 +00:00
parent c1d156080c
commit 1be18f4bcc
25 changed files with 2002 additions and 1071 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/vclutils.pas
View File

@ -28,6 +28,7 @@ procedure OutTextXY90(Canvas:TCanvas; X,Y:integer; Text:string; Orientation:TTex
function IsForegroundTask: Boolean;
function ValidParentForm(Control: TControl): TCustomForm;
function CreateArrowBitmap:TBitmap;
{
function AllocMemo(Size: Longint): Pointer;
function ReallocMemo(fpBlock: Pointer; Size: Longint): Pointer;
@ -508,6 +509,13 @@ begin
raise Exception.Create('SOutOfResources');
end;
{$ENDIF}
function CreateArrowBitmap:TBitmap;
begin
Result:=Graphics.TBitmap.Create;
Result.LoadFromLazarusResource('rxbtn_downarrow');
end;
end.