нужно сделать регион из слова, кто знает как

← →
Sanad (2003-11-05 09:31) [0]

← →
Жук (2003-11-05 10:11) [1]

С этим к Vuk"у (c) ЮЗ
:-)))

← →
wicked (2003-11-05 10:38) [2]

TBitmap + DrawText + BitmapToRegion (найти в интернете)...

← →
reticon (2003-11-05 11:22) [3]

...

var
Bitmap1: TBitmap;

...

procedure CropWindow(Handle: HWnd; Bitmap:TBitmap);
var
hrgn, hrgn1 : integer;
hdc : integer;
x, y : integer;
Color : TColor;
begin
Color := Bitmap.Canvas.Pixels[ 0, 0 ];
hdc := GetDC( Handle );
hrgn := CreateRectRgn( 0, 0, Bitmap.Width, Bitmap.Height );
for x := 1 to Bitmap.Width do
for y := 1 to Bitmap.Height do
if Bitmap.Canvas.Pixels[ x - 1, y - 1 ] = Color then
begin
hrgn1 := CreateRectRgn( x - 1, y - 1, x, y);
CombineRgn( hrgn, hrgn, hrgn1, RGN_DIFF );
DeleteObject( hrgn1 );
end;
SetWindowRgn( Handle, hrgn, true );
ReleaseDC( Handle, hdc);
end;

procedure UncropWindow(Handle: HWnd; Bitmap:TBitmap);
var
hrgn : integer;
hdc : integer;
begin
hdc := GetDC( Handle );
hrgn := CreateRectRgn( 0, 0, Bitmap.Width , Bitmap.Height );
SetWindowRgn( Handle, hrgn, true );
ReleaseDC( Handle, hdc );
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Bitmap1.Width:=Label1.Width;
Bitmap1.Height:=Label1.Height;
UnCropWindow(Label1.Handle, Bitmap1);
Bitmap1.Canvas.TextOut(0, 0, Label1.Caption);
CropWindow(Label1.Handle, Bitmap1);
end;

← →
reticon (2003-11-05 11:22) [4]

... var Bitmap1: TBitmap; ... procedure CropWindow(Handle: HWnd; Bitmap:TBitmap); var hrgn, hrgn1 : integer; hdc : integer; x, y : integer; Color : TColor; begin Color := Bitmap.Canvas.Pixels[ 0, 0 ]; hdc := GetDC( Handle ); hrgn := CreateRectRgn( 0, 0, Bitmap.Width, Bitmap.Height ); for x := 1 to Bitmap.Width do for y := 1 to Bitmap.Height do if Bitmap.Canvas.Pixels[ x - 1, y - 1 ] = Color then begin hrgn1 := CreateRectRgn( x - 1, y - 1, x, y); CombineRgn( hrgn, hrgn, hrgn1, RGN_DIFF ); DeleteObject( hrgn1 ); end; SetWindowRgn( Handle, hrgn, true ); ReleaseDC( Handle, hdc); end; procedure UncropWindow(Handle: HWnd; Bitmap:TBitmap); var hrgn : integer; hdc : integer; begin hdc := GetDC( Handle ); hrgn := CreateRectRgn( 0, 0, Bitmap.Width , Bitmap.Height ); SetWindowRgn( Handle, hrgn, true ); ReleaseDC( Handle, hdc ); end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin Bitmap1.Width:=Label1.Width; Bitmap1.Height:=Label1.Height; UnCropWindow(Label1.Handle, Bitmap1); Bitmap1.Canvas.TextOut(0, 0, Label1.Caption); CropWindow(Label1.Handle, Bitmap1); end;

нужно сделать регион из слова, кто знает как Найти похожие ветки