fix create resource from XPM image

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@490 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-06-24 15:19:56 +00:00
parent 9799c6d1c0
commit 00b3ba15a6
4 changed files with 27 additions and 4 deletions

View File

@@ -1890,10 +1890,12 @@ begin
Options:=Options - [dgCancelOnExit];
{$ENDIF}
FMarkerUp := TBitmap.Create;
FMarkerUp := LoadLazResBitmapImage('rx_markerup');
FMarkerDown := LoadLazResBitmapImage('rx_markerdown');
{ FMarkerUp := TBitmap.Create;
FMarkerUp.LoadFromLazarusResource('rx_markerup');
FMarkerDown := TBitmap.Create;
FMarkerDown.LoadFromLazarusResource('rx_markerdown');
FMarkerDown.LoadFromLazarusResource('rx_markerdown');}
FPropertyStorageLink:=TPropertyStorageLink.Create;
FPropertyStorageLink.OnSave:=@OnIniSave;