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

Вниз

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

← →
Don   (2003-12-04 08:11) [0]

Приведите, пожалуйста, пример программного кода как придать кнопке нестандартный вид, чтобы она брала свое оформление из ВМР файла

---

← →
Shirson ©   (2003-12-04 10:01) [1]

Что-то вроде этого:

function BitmapToRegion(Bitmap: TBitmap; TransColor: TColor): HRGN;
var
X, Y: Integer;
XStart: Integer;
begin
Result := 0;
for Y := 0 to Bitmap.Height - 1 do begin
X := 0;
while X < Bitmap.Width do begin
while (X < Bitmap.Width) and (Bitmap.Canvas.Pixels[X, Y] = TransColor) do
Inc(X);
if X >= Bitmap.Width then
Break;
XStart := X;
while (X < Bitmap.Width) and (Bitmap.Canvas.Pixels[X, Y] <> TransColor) do
Inc(X);
if Result = 0 then
Result := CreateRectRgn(XStart, Y, X, Y + 1)
else
CombineRgn(Result, Result, CreateRectRgn(XStart, Y, X, Y + 1), RGN_OR);
end;
end;
end;

begin
SetWindowRgn(button1.Handle, BitmapToRegion(Image1.picture.bitmap, clFuchsia), False);
...

---

← →
TUser ©   (2003-12-04 10:04) [2]

А если кнопка прямоугольная - кинь свой glyph на BitBtn.

---

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

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

Наверх

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