外挂编程

开发平台：
Windows_Unix

TitleBar.pm：源码内容
							#########################################################################
#  OpenKore - WxWidgets Interface
#  Title bar control
#
#  Copyright (c) 2004,2005 OpenKore development team 
#
#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  $Revision: 4166 $
#  $Id: TitleBar.pm 4166 2006-04-07 16:13:58Z hongli $
#
#########################################################################
package Interface::Wx::TitleBar;
use strict;
use Wx ':everything';
use Wx::Event qw(EVT_PAINT EVT_TOOL);
use base qw(Wx::Panel);
use Interface::Wx::Utils qw(dataFile);
our (@brushes, $font, $dark, $light);
our ($detachBitmap, $closeBitmap);
sub new {
	my ($class, $parent, $title, $no_buttons) = @_;
	my $self = $class->SUPER::new($parent, -1, wxDefaultPosition,
		wxDefaultSize, wxFULL_REPAINT_ON_RESIZE);
	$self->SetBackgroundColour(new Wx::Colour(98, 165, 241));
	EVT_PAINT($self, &onPaint);
	if (!$font) {
		if ($^O eq 'MSWin32') {
			$font = new Wx::Font(8, wxDEFAULT, wxNORMAL, wxBOLD, 0, 'Tahoma');
		} else {
			$font = new Wx::Font(9, wxDEFAULT, wxNORMAL, wxBOLD, 0, 'Nimbus Sans L');
		}
	}
	my $size = $self->{size} = 20;
	if (!$no_buttons) {
		my $sizer = $self->{sizer} = new Wx::BoxSizer(wxVERTICAL);
		my $hsizer = new Wx::BoxSizer(wxHORIZONTAL);
		$sizer->Add($hsizer, 1, wxALIGN_RIGHT);
		if (!$detachBitmap) {
			my $image;
			Wx::Image::AddHandler(new Wx::PNGHandler);
			$image = Wx::Image->newNameType(dataFile('window.png'), wxBITMAP_TYPE_PNG);
			$detachBitmap = new Wx::Bitmap($image);
			$image = Wx::Image->newNameType(dataFile('close.png'), wxBITMAP_TYPE_PNG);
			$closeBitmap = new Wx::Bitmap($image);
		}
		my $toolbar = new Wx::ToolBar($self, -1, wxDefaultPosition, [-1, $size],
			wxTB_HORIZONTAL | wxNO_BORDER | wxTB_3DBUTTONS | wxTB_FLAT);
		$toolbar->SetBackgroundColour(Wx::SystemSettings::GetColour(wxSYS_COLOUR_BTNFACE));
		$toolbar->SetToolBitmapSize(new Wx::Size(12, 12));
		$toolbar->AddTool(1, 'Detach', $detachBitmap, 'Detach tab');
		$toolbar->AddTool(2, 'Close', $closeBitmap, 'Close tab');
		$toolbar->Realize;
		$hsizer->Add($toolbar, 0, wxGROW);
		$hsizer->SetItemMinSize($toolbar, $toolbar->GetBestSize->GetWidth, $size);
		EVT_TOOL($toolbar, 1, sub {
			$self->{onDetach}->($self->{onDetachData}) if ($self->{onDetach});
		});
		EVT_TOOL($toolbar, 2, sub {
			$self->{onClose}->($self->{onCloseData}) if ($self->{onClose});
		});
		
		$self->{toolbar} = $toolbar;
		$self->SetSizeHints($toolbar->GetBestSize->GetWidth, $size);
		$self->SetSizer($sizer);
	} else {
		$self->SetSizeHints(8, $size);
	}
	$self->{title} = $title;
	createBrushes() if (!@brushes);
	if (!$dark) {
		$dark = new Wx::Pen(new Wx::Colour(164, 164, 164), 1, wxSOLID);
		$light = new Wx::Pen(new Wx::Colour(241, 241, 241), 1, wxSOLID);
	}
	return $self;
}
sub title {
	my $self = shift;
	if ($_[0]) {
		if ($self->{title} ne $_[0]) {
			$self->{title} = $_[0];
			$self->Update;
		}
	} else {
		return $self->{title};
	}
}
sub onDetach {
	my $self = shift;
	my $cb = shift;
	my $data = shift;
	$self->{onDetach} = $cb;
	$self->{onDetachData} = $data;
}
sub onClose {
	my $self = shift;
	my $cb = shift;
	my $data = shift;
	$self->{onClose} = $cb;
	$self->{onCloseData} = $data;
}
#### Private ####
sub max {
	return ($_[0] > $_[1]) ? $_[0] : $_[1];
}
sub createBrushes {
	my @from = (0, 40, 130);
	my @to = (129, 188, 255);
	# Create brushes for drawing the gradient
	@brushes = ();
	for (my $i = 0; $i < 255; $i++) {
		my $color = new Wx::Colour(
			$from[0] + ($to[0] - $from[0]) / 255 * $i,
			$from[1] + ($to[1] - $from[1]) / 255 * $i,
			$from[2] + ($to[2] - $from[2]) / 255 * $i
		);
		my $brush = new Wx::Brush($color, wxSOLID);
		push @brushes, $brush;
	}
}
sub onPaint {
	my $self = shift;
	my $dc = new Wx::PaintDC($self);
	my $width = $self->GetSize->GetWidth;
	if ($self->{toolbar}) {
		$width -= $self->{toolbar}->GetSize->GetWidth;
	}
	eval {
	# The app can crash if I don't use eval here.
	# Something about "the invocant is not a reference".
	# This'll do for now, I just hope it doesn't corrupt memory...
	my $x = 0;
	my $block = $width / 255;
	my $height = $self->GetSize->GetHeight;
	$dc->SetPen(wxTRANSPARENT_PEN);
	for (my $i = 0; $i < 255; $i++) {
		my $x = $block * $i;
		$dc->SetBrush($brushes[$i]);
		$dc->DrawRectangle($x, 0, $block + 1, $height);
	}
	$dc->SetBrush(wxTRANSPARENT_BRUSH);
	if ($^O eq 'MSWin32') {
		$dc->SetPen($dark);
		$dc->DrawLine(0, 0, $width, 0);
		$dc->DrawLine(0, 0, 0, $height);
		#$dc->DrawLine(1, $height - 2, $width - 2, $height - 2);
		#$dc->DrawLine($width - 2, 2, $width - 2, $height - 1);
		$dc->SetPen($light);
		$dc->DrawLine(0, $height - 1, $width - 1, $height - 1);
		$dc->DrawLine($width - 1, 1, $width - 1, $height);
		#$dc->DrawLine(1, 1, $width - 1, 1);
		#$dc->DrawLine(1, 2, 1, $height - 2);
	} else {
		$dc->SetPen($light);
		$dc->DrawLine(0, 0, $width, 0);
		$dc->DrawLine(0, 0, 0, $height);
		$dc->SetPen($dark);
		$dc->DrawLine(0, $height - 1, $width - 1, $height - 1);
		$dc->DrawLine($width - 1, 0, $width - 1, $height - 1);
	}
	$dc->SetFont($font);
	$dc->SetTextForeground(wxWHITE);
	my (undef, $textHeight) = $dc->GetTextExtent($self->{title}, $font);
	$dc->DrawText($self->{title}, 6, $height / 2 - $textHeight / 2);
	};
	undef $@;
}
1;

						