Home VCLSkin DotNetSkin Clients Contact  
 
   
  VCLSkin
Feature
Purchase
Download
Skin Builder
   
  Screenshot
Vista Style
Office 2007 Style Skin
XP Style
Other skin style
Control and Form
   
  Tips
Caption and Mainmenu
TSkindata.skin3rd

Apply Skin color scheme

DLL Forms

TPageControl CloseButton

2 Styles in Application

 

  Skin 3rd Controls

QuantumGrid Demo

ExpressBar Demo

Raize Demo

Woll2Woll IP4000

LMD Tools 7
LMD ElPack

ToolBar2K
TBX

TNT Unicode Controls

MAX OutlookBar

QuickReport

Virtual TreeView

Billenium Effect

QuickReport

VCLSkin has a minior problem with maximized preview form of QuickReport, here is code to fix this problem.

function FindForm(s:string):TForm;
var i:integer;
begin
result:=nil;
for i:= 0 to screen.FormCount-1 do begin
if screen.Forms[i].ClassName=s then begin
result:=screen.Forms[i];
break;
end;
end;
end;

procedure TfrmQR3Demo.SkinData1FormSkin(Sender: TObject; aName: String;
var DoSkin: Boolean);
var fm:TForm;
begin
if (aname='TQRStandardPreview') then begin
fm:= FindForm(aName);
if fm<>nil then begin
fm.Top:=0;
fm.Left:=0;
fm.Width:=screen.Width;
fm.Height:=screen.Height;
end;
end;
end;

 

Quickreport Demo project 700k

 

 

 

 

© 2000-2007 Link Rank. All rights reserved. License