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

* Implemented draw ghosted images

Browse Source 
* fix compilation of Advanced demo
* remove some lrs files

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@290 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-12-16 11:42:45 +00:00
parent 7f599c8e95
commit 0143490fd7
26 changed files with 19697 additions and 45661 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
components/virtualtreeview-unstable/demos/advanced/Main.pas
View File

@ -51,7 +51,6 @@ type
var
MainForm: TMainForm;
procedure ConvertToHighColor(ImageList: TImageList);
procedure LoadUnicodeStrings(Name: string; var Strings: array of WideString);
procedure SetStatusbarText(const S: string);
@ -64,30 +63,6 @@ uses
GridDemo, VisibilityDemo, AlignDemo, WindowsXPStyleDemo, MultilineDemo, HeaderCustomDrawDemo,
States;
//----------------------------------------------------------------------------------------------------------------------
procedure ConvertToHighColor(ImageList: TImageList);
// To show smooth images we have to convert the image list from 16 colors to high color.
var
IL: TImageList;
begin
// Have to create a temporary copy of the given list, because the list is cleared on handle creation.
//todo
{
IL := TImageList.Create(nil);
IL.Assign(ImageList);
with ImageList do
Handle := ImageList_Create(Width, Height, ILC_COLOR16 or ILC_MASK, Count, AllocBy);
ImageList.Assign(IL);
IL.Free;
}
end;
//----------------------------------------------------------------------------------------------------------------------
@ -190,12 +165,22 @@ begin
if Assigned(NewDemoClass) then
begin
//original code:
{
NewDemo := NewDemoClass.Create(Self);
NewDemo.Hide;
//NewDemo.BorderStyle := bsNone;
NewDemo.BorderStyle := bsNone;
NewDemo.Parent := ContainerPanel;
NewDemo.Align := alClient;
NewDemo.Show;
}
//workaround
NewDemo := NewDemoClass.Create(Self);
NewDemo.Hide;
//NewDemo.BorderStyle := bsNone;
NewDemo.Align := alClient;
NewDemo.Show;
NewDemo.Parent := ContainerPanel;
end;
end;
end;