- 博客(0)
- 资源 (23)
- 收藏
- 关注
flex算两线交点
flex算两线交点
ExampleApplication1=new ExampleApplication();
// ExampleApplication1.showMessage( );
graphics.lineStyle(1, Math.random( ) * 0xffffff, 1);
graphics.moveTo(Math.random( ) * 400, Math.random( ) * 400);
graphics.lineTo(Math.random( ) * 400, Math.random( ) * 400);
//Alert.show(intersection( a, b, c, d ).toString() ); // 输出 : (x=80, y=80)
}
public static function intersection( a:Object, b:Object, c:Object, d:Object ):Point
{
var pos1 = (b.y-a.y)/(b.x-a.x);
var pos2 = (d.y-c.y)/(d.x-c.x);
var pi = Number.POSITIVE_INFINITY;
var ni = Number.NEGATIVE_INFINITY;
if(pos1==pos2){
return null;
}
2016-02-24
flex DataGrid 导出Xls
flex DataGrid 导出Xls
private function insertRecordInSheet(row:int,sheet:Sheet,record:Object):void
{
var colCount:int = rebateByItemDG.columnCount;
for(var c:int; c < colCount; c++)
{
var i:int = 0;
for each(var field:String in fields){
for each (var value:String in record){
if (record[field].toString() == value)
sheet.setCell(row,i,value);
}
i++;
}
}
}
2016-02-24
flex 画图的例子,很不错
flex 画图的例子,很不错
//画圆角矩形
private function circleRect(cRectX:Number, cRectY:Number, cRectWidth:Number, cRectHeight:Number, cRectDU:Number):void{
cRectBoxID.graphics.clear();
if(radioLineID.selected){ //线性
cRectBoxID.graphics.lineStyle(20, 0xFF0000, 1.0, false, LineScaleMode.VERTICAL, CapsStyle.NONE, JointStyle.MITER, 100);
}else if(radioGradientID.selected){ //渐变
//the last parameter can selete three type: SpreadMethod.PAD or SpreadMethod.REFLECT or SpreadMethod.REPEAT.
cRectBoxID.graphics.beginGradientFill(GradientType.LINEAR, [0xFF0000, 0x0000FF], [1, 0.1], [0, 255], new Matrix(), SpreadMethod.PAD);
rectBoxID.graphics.endFill();
}else if(radioFullID.selected){ //填充
cRectBoxID.graphics.beginFill(0xFF0000, 1.0);
}
cRectBoxID.graphics.drawRoundRect(cRectX, cRectY, cRectWidth, cRectHeight, cRectDU);
}
2016-02-24
delphi 7 gif控件
delphi 7 gif控件
unit GIFImage;
////////////////////////////////////////////////////////////////////////////////
// //
// Project: GIF Graphics Object //
// Module: gifimage //
// Description: TGraphic implementation of the GIF89a graphics format //
// Version: 2.2 //
// Release: 5 //
// Date: 23-MAY-1999 //
// Target: Win32, Delphi 2, 3, 4 & 5, C++ Builder 3 & 4 //
// Author(s): anme: Anders Melander, anders@melander.dk //
// fila: Filip Larsen //
// rps: Reinier Sterkenburg //
// Copyright: (c) 1997-99 Anders Melander. //
// All rights reserved. //
// Formatting: 2 space indent, 8 space tabs, 80 columns. //
// //
////////////////////////////////////////////////////////////////////////////////
// Changed 2001.07.23 by Finn Tolderlund: //
// Changed according to e-mail from "Rolf Frei" //
// on 2001.07.23 so that it works in Delphi 6. //
// //
// Changed 2002.07.07 by Finn Tolderlund: //
// Incorporated additional modifications by Alexey Barkovoy (clootie@reactor.ru)
// found in his Delphi 6 GifImage.pas (from 22-Dec-2001). //
// Alexey Barkovoy's Delphi 6 gifimage.pas can be downloaded from //
// http://clootie.narod.ru/delphi/download_vcl.html //
// These changes made showing of animated gif files more stable. The code //
// from 2001.07.23 could crash sometimes with an Execption EAccessViolation. //
// //
// Changed 2002.10.06 by Finn Tolderlund: //
// Delphi 7 compatible. //
// //
// Changed 2003-03-06 by Finn Tolderlund: //
// Changes made as a result of postings in borland.public.delphi.graphics //
// from 2003-02-28 to 2003-03-05 where white (255,255,255) in a bitmap //
// was converted to (254,254,254) in the gif. //
// The doCreateOptimizedPaletteFromSingleBitmap function and //
// the CreateOptimizedPaletteFromManyBitmaps function is changed so that //
// the correct offset 246 is used instead of 245. //
// The ReduceColors function is changed according to Anders Melander's post //
// so that a colour get converted to the precise colour if that colour is //
// present in the palette when using ColorReduction rmQuantize. //
// //
// Changed 2003-03-09 by Finn Tolderlund: //
// Delphi 7 version is now assumed if unknown compiler version is unknown //
// for better compatibility with future Delphi versions. //
// Hopefully this code is now compatible with future Delphi versions, //
// unless Borland makes some changes that breaks existing code. //
// //
// Changed 2003-08-04 by Finn Tolderlund: //
// Changed procedure AddMaskOnly so that it doesn't leak a GDI HBitmap-object //
// and it doesn't release the handle of the source bitmap which //
// is used to assign to the GIF object as in gif.assign(bm); //
// These changes were made as a result of a news post made by Renate Schaaf //
// with the subject "TGifImage HBitmap leak on assign?" //
// in borland.public.delphi.graphics on Mon 28 Jul 2003 and Sun 03 Aug 2003. //
// //
// Changed 2004.03.09 by Finn Tolderlund: //
// Added a ForceFrame property to the TGIFImage class. //
// The ForceFrame property can be used to make TGIFImage display a apecific //
// sub frame from an animated gif. //
// How to use: Set the Animate property to False and set the ForceFrame //
// property to a desired frame number (0-N) //
// Normal display: Set the ForceFrame property to -1 and set Animate to True. //
// If ForceFrame is negative TGIFImage behaves just as before this change. //
// Note that if the sub frame in the gif only contains part of the image //
// (i.e. only the changes from previous frames) the result is unpredictable. //
// The result is best if each sub frame contains a whole image. //
// If the sub frame is transparent the background is not automatically //
// restored, you must do so yourself if you want that. //
// If you are using a TImage to display the gif you can use //
// Image.Parent.Invalidate or Image.Parent.Refresh to restore the background. //
// This change was made as a result of a email correspondance with //
// Tineke Kosmis (http://www.classe.nl/) which requested such a property. //
// //
////////////////////////////////////////////////////////////////////////////////
// //
// Please read the "Conditions of use" in the release notes. //
// //
////////////////////////////////////////////////////////////////////////////////
// Known problems:
//
// * The combination of buffered, tiled and transparent draw will display the
// background incorrectly (scaled).
// If this is a problem for you, use non-buffered (goDirectDraw) drawing
// instead.
//
// * The combination of non-buffered, transparent and stretched draw is
// sometimes distorted with a pattern effect when the image is displayed
// smaller than the real size (shrinked).
//
// * Buffered display flickers when TGIFImage is used by a transparent TImage
// component.
// This is a problem with TImage caused by the fact that TImage was designed
// with static images in mind. Not much I can do about it.
//
////////////////////////////////////////////////////////////////////////////////
// To do (in rough order of priority):
// { TODO -oanme -cFeature : TImage hook for destroy notification. }
// { TODO -oanme -cFeature : TBitmap pool to limit resource consumption on Win95/98. }
// { TODO -oanme -cImprovement : Make BitsPerPixel property writable. }
// { TODO -oanme -cFeature : Visual GIF component. }
// { TODO -oanme -cImprovement : Easier method to determine DrawPainter status. }
// { TODO -oanme -cFeature : Import to 256+ color GIF. }
// { TODO -oanme -cFeature : Make some of TGIFImage's properties persistent (DrawOptions etc). }
// { TODO -oanme -cFeature : Add TGIFImage.Persistent property. Should save published properties in application extension when this options is set. }
// { TODO -oanme -cBugFix : Solution for background buffering in scrollbox. }
2010-04-07
DataGridview绑定
using (SqlConnection connection = new SqlConnection(@"server=.;database=gr;user id=sa;pwd="))
{
//SqlDataAdapter sda = new SqlDataAdapter("select * from customers", connection);
//DataSet ds = new DataSet();
//sda.Fill(ds);
BindingSource bindingSource1 = new BindingSource();
connection.Open();
SqlCommand cmd = new SqlCommand("select * from T1", connection);
SqlDataReader sdr = cmd.ExecuteReader(CommandBehavior.Default);
if (sdr.Read())
{
bindingSource1.DataSource = sdr;
GridView1.DataSource = sdr;
GridView1.DataSource = bindingSource1;
}
}
2009-11-01
txt文件写入读取.txt
private void inputdata_Click(object sender, EventArgs e)
{
string path1 = @"d:test1.txt";
string path2 = @"d:test2.txt";
//创建文件
if (!File.Exists(path1))
{
StreamWriter sw = File.CreateText(path1);
sw.WriteLine("write some text.");
sw.Close();
}
//打开文件
StreamReader sr = File.OpenText (path1);
string s = "";
while ((s = sr.ReadLine()) != null)
{
textBox1.Text = s;
}
sr.Close();
2009-10-27
c# socket 多线程
并发多线程
//entry point of main method....
public static void Main()
{
//TcpListener is listening on the given port... {
TcpListener tcpListener = new TcpListener(1234);
tcpListener.Start();
Console.WriteLine("Server Started") ;
//Accepts a new connection...
Socket socketForClient = tcpListener.AcceptSocket();
//StreamWriter and StreamReader Classes for reading and writing the data to and fro.
//The server reads the meassage sent by the Client ,converts it to upper case and sends it back to the client.
//Lastly close all the streams.
try
{
if (socketForClient.Connected)
{
while(true)
{
Console.WriteLine("Client connected");
NetworkStream networkStream = new NetworkStream(socketForClient);
StreamWriter streamWriter = new StreamWriter(networkStream);
2009-10-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人