Update of /cvsroot/jvcl/dev/JVCL3/qexamples/JvOutlookBarCustomDraw In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12359/JVCL3/qexamples/JvOutlookBarCustomDraw Added Files: JvOutlookBarCustomDrawDemo.kof JvQOutlookBarCustomDrawDemo.dof JvQOutlookBarCustomDrawDemo.dpr MainFrm.pas MainFrm.xfm Log Message: more examples --- NEW FILE: MainFrm.pas --- {******************************************************************************} {* WARNING: JEDI VCL To CLX Converter generated unit. *} {* Manual modifications will be lost on next release. *} {******************************************************************************} unit MainFrm; interface uses QMessages, SysUtils, Classes, Types, QGraphics, QControls, QForms, QDialogs, QImgList, JvQExControls, JvQComponent, JvQOutlookBar, JvQNavigationPane, QWindows, QStdCtrls; type TForm1 = class(TForm) JvOutlookBar1: TJvOutlookBar; ImageList1: TImageList; ImageList2: TImageList; JvNavPaneStyleManager1: TJvNavPaneStyleManager; Label1: TLabel; ComboBox1: TComboBox; Label2: TLabel; ComboBox2: TComboBox; procedure FormCreate(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure ComboBox2Change(Sender: TObject); private { Private declarations } public { Public declarations } procedure DoCustomDraw(Sender:TObject; ACanvas:TCanvas; ARect:TRect; AStage:TJvOutlookBarCustomDrawStage; AIndex:integer; ADown, AInside:boolean; var DefaultDraw:boolean); end; var Form1: TForm1; implementation uses JvQJVCLUtils; {$R *.xfm} procedure TForm1.DoCustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; AStage: TJvOutlookBarCustomDrawStage; AIndex: integer; ADown, AInside: boolean; var DefaultDraw:boolean); begin DefaultDraw := False; case AStage of odsBackground: with JvNavPaneStyleManager1.Colors do GradientFillRect(ACanvas, ARect, HeaderColorFrom, HeaderColorTo, fdTopToBottom, 255); odsPage: with JvNavPaneStyleManager1.Colors do GradientFillRect(ACanvas,ARect, ButtonColorFrom, ButtonColorTo, fdTopToBottom, 255); odsPageButton: begin with JvNavPaneStyleManager1.Colors do GradientFillRect(ACanvas,ARect, HeaderColorFrom, HeaderColorTo, fdTopToBottom, 255); if ADown then OffsetRect(ARect,1,1); ACanvas.Font.Color := clWhite; DrawText(ACanvas, JvOutlookBar1.Pages[AIndex].Caption, Length(JvOutlookBar1.Pages[AIndex].Caption), ARect, DT_SINGLELINE or DT_VCENTER or DT_CENTER); end; odsButtonFrame: begin if ADown then ACanvas.Brush.Color := clNavy else ACanvas.Brush.Color := clBlack; // FrameRect(ACanvas, ARect); InflateRect(ARect,-1,-1); if not ADown then ACanvas.Brush.Color := clWhite; // FrameRect(ACanvas, ARect); end; odsButton: DefaultDraw := True; end; end; procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.ItemIndex := 0; JvOutlookBar1.OnCustomDraw := DoCustomDraw; ComboBox2.ItemIndex := 0; ComboBox1Change(ComboBox1); ComboBox2Change(ComboBox2); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin JvNavPaneStyleManager1.Theme := TJvNavPanelTheme(ComboBox1.ItemIndex); JvOutlookBar1.Invalidate; end; procedure TForm1.ComboBox2Change(Sender: TObject); begin JvOutlookBar1.ButtonSize := TJvBarButtonSize(ComboBox2.ItemIndex); end; end. --- NEW FILE: MainFrm.xfm --- object Form1: TForm1 Left = 421 Top = 486 ActiveControl = ComboBox1 AutoScroll = False Caption = 'Example of custom drawing a TJvOutlookbar using a TJvNavPaneStyl' + 'eManager' ClientHeight = 265 ClientWidth = 348 Color = clButton Font.Color = clText Font.Height = 11 Font.Name = 'MS Shell Dlg 2' Font.Pitch = fpVariable Font.Style = [] Font.Weight = 40 Icon.Data = { 0000010001001010100001001000280100001600000028000000100000002000 [...2887 lines suppressed...] FFFE0001FFFE03FF0FFFFFF1FFFFF8003FFFFC3FFFFE0001FFFF03FF7FFFFFF0 FFFFF8003FFFFC3FFFFF0001FFFF03FF7FFFFFF07FFFF8001FFFFC3FFFFF0001 FFFF03FF7FFFFFE07FFFF0001FFFF83FFFFF0001FFFF03FF3E7FFFC03FFFE100 0FFFF03FFFFF0801FFFF03FF3FFFFF800FFFC38003FFE03BFFF71C01FFFF03FF 1FFFFF0007FF87C001FFC038FFE73E01BFFB03FF0FFFFC0001FE0000007F0038 7F8700018FF303FF07F9F80001FF0000007E00383F870001CFE303FF01E3FC00 03FFFC0000FF00387FC70001DFFF03FF03F7FE0003FFFF8001FF803CFFEF0001 FFFF03FF07F7FE0007FFFFC001FF801EFFFE0000FFFF03FF07FFFF0007FFF5E0 01FFC01FFFFE0000FFFE03FF07FFFF0007FC00E001FFC00FFFFC00007FFC03FF 07F7FE0003FFFE6001FF8007FFF800001FF003FF03F3FE0003FC006000FF8003 FFF0000007E003FF01C1FC0001FBFE60007F0000FFC00000000003FF0000F800 00FC01C0003E00001F000000000003FF00000000000FCF800000000000000000 000003FF000000000003FE000000000000000000000003FF} end object JvNavPaneStyleManager1: TJvNavPaneStyleManager Theme = nptXPSilver Left = 272 Top = 112 end end --- NEW FILE: JvQOutlookBarCustomDrawDemo.dpr --- {******************************************************************************} {* WARNING: JEDI VCL To CLX Converter generated unit. *} {* Manual modifications will be lost on next release. *} {******************************************************************************} program JvQOutlookBarCustomDrawDemo; uses QForms, MainFrm in 'MainFrm.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: JvQOutlookBarCustomDrawDemo.dof --- [Compiler] UnsafeType=0 UnsafeCode=0 UnsafeCast=0 [Directories] OutputDir=..\bin UnitOutputDir=..\dcu SearchPath=..\..\qrun;..\..\qcommon;..\..\common --- NEW FILE: JvOutlookBarCustomDrawDemo.kof --- [Compiler] UnsafeType=0 UnsafeCode=0 UnsafeCast=0 [Directories] OutputDir=../bin UnitOutputDir=../dcu SearchPath=../../qrun;../../qcommon;../../common |