Текущий архив: 2003.11.27;
Скачать: CL | DM;

Вниз

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

← →
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;

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.031 c