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

* Use Lazarus resources instead of Windows resources

Browse Source 
* Added script to build resource file

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@169 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-05-26 02:05:17 +00:00
parent 9d6a33dbe9
commit c81ad25465
10 changed files with 1750 additions and 1731 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview-unstable/demos/advanced/HeaderCustomDrawDemo.pas
View File

@ -241,8 +241,7 @@ begin
FBackBitmap2.PixelFormat := pf32Bit;
CreateCheckerBackground;
FHeaderBitmap := TBitmap.Create;
//FHeaderBitmap.Handle := LoadImage(HInstance, 'Transcriptions', IMAGE_BITMAP, 0, 0, LR_DEFAULTCOLOR);
FHeaderBitmap.LoadFromResourceName(HINSTANCE,'Transcriptions');
FHeaderBitmap.LoadFromLazarusResource('Transcriptions');
end;
//----------------------------------------------------------------------------------------------------------------------
@ -261,7 +260,7 @@ end;
procedure THeaderOwnerDrawForm.AnimationTimerTimer(Sender: TObject);
begin
//FLeftPos := (FLeftPos + FHeaderBitmap.Width div 2000) mod FHeaderBitmap.Width;
FLeftPos := (FLeftPos + FHeaderBitmap.Width div 2000) mod FHeaderBitmap.Width;
with HeaderCustomDrawTree.Header do
Invalidate(Columns[2]);
end;
@ -308,5 +307,6 @@ end;
initialization
{$i HeaderCustomDrawDemo.lrs}
{$i bitmap.lrs}
end.