paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 15:28:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

dockmanager: convert resources to RES

Browse Source 
git-svn-id: trunk@43147 -
This commit is contained in:
paul 2013-10-07 08:36:14 +00:00
parent 9477d73519
commit 6d3bfe0de6
9 changed files with 10 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -4469,7 +4469,9 @@ examples/dockmanager/ide_demo2/feditbook2.lfm svneol=native#text/plain
examples/dockmanager/ide_demo2/feditbook2.pas svneol=native#text/pascal
examples/dockmanager/ide_demo2/fminiide2.lfm svneol=native#text/plain
examples/dockmanager/ide_demo2/fminiide2.pas svneol=native#text/pascal
examples/dockmanager/package/easy_dock_images.lrs svneol=native#text/pascal
examples/dockmanager/package/easy_dock_close.png -text
examples/dockmanager/package/easy_dock_images.res -text
examples/dockmanager/package/easy_dock_restore.png -text
examples/dockmanager/package/easydocking.pas svneol=native#text/pascal
examples/dockmanager/package/easydockmgr.lpk svneol=native#text/plain
examples/dockmanager/package/easydockmgr.pas svneol=native#text/pascal

BIN
examples/dockmanager/package/easy_dock_close.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 105 B

12
examples/dockmanager/package/easy_dock_images.lrs
View File

@ -1,12 +0,0 @@
LazarusResources.Add('easy_dock_close','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#10#0#0#0#10#8#6#0#0#0#141'2'#207
+#189#0#0#0'0IDATx'#218'c````d '#1#252#135'b'#130#226#255#177#8#254#199'e'#192
+''#28#24#175#19#240'*b '#215'4'#130#238#195#235#25#162#131#135' '#0#0#177'5'
+''''#218'{1'#230#136#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('easy_dock_restore','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#10#0#0#0#10#8#6#0#0#0#141'2'#207
+#189#0#0#0'&IDATx'#218'c````d '#3#252#199#131#201'W'#136#203'&'#162'L"O!!'
+#207#17#231'6'#178#20#226#13#22#0#23#22'.'#211'T'#186#182'Q'#0#0#0#0'IEND'
+#174'B`'#130
]);

BIN
examples/dockmanager/package/easy_dock_images.res Normal file
View File

Binary file not shown.

BIN
examples/dockmanager/package/easy_dock_restore.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 95 B

3
examples/dockmanager/package/easydocksite.pas
View File

@ -366,6 +366,8 @@ var //debug only, these are valid only until drop
implementation
{$R easy_dock_images.res}
uses
SysUtils, Types,
math,
@ -2406,7 +2408,6 @@ begin
end;
initialization
{$I easy_dock_images.lrs}
//DefaultDockManagerClass := TEasyTree;
CreateDockHeaderImages;
if DockLoader = nil then

6
examples/dockmanager/package/felasticsite.pas
View File

@ -78,6 +78,8 @@ procedure Register;
implementation
{$R felasticsite.lfm}
uses
LCLIntf, LCLProc;
@ -334,9 +336,5 @@ begin
end;
end;
initialization
{$I felasticsite.lrs}
//DefaultDockManagerClass := TEasyTree;
end.

7
examples/dockmanager/package/ffloatingsite.pas
View File

@ -48,6 +48,8 @@ type
implementation
{$R *.lfm}
uses
LCLproc, //debugging only
EasyDockSite, //EasyTree DockManager
@ -188,11 +190,6 @@ begin
end;
{$ENDIF}
{$R *.lfm}
initialization
{.$I ffloatingsite.lrs}
end.

2
examples/dockmanager/package/zoneheader.inc
View File

@ -23,7 +23,7 @@ var
ImageKind: TDockHeaderImageKind;
begin
for ImageKind := Low(TDockHeaderImageKind) to High(TDockHeaderImageKind) do
DockBtnImages[ImageKind] := CreateBitmapFromLazarusResource(DockHeaderImageNames[ImageKind]);
DockBtnImages[ImageKind] := CreateBitmapFromResourceName(HInstance, DockHeaderImageNames[ImageKind]);
end;
procedure DestroyDockHeaderImages;