Конференция "KOL" » графика [kol_mck, Windows]
 
  • митя (19.01.16 01:12) [20]
    Подскажите пожалуйста - а как менять палитру формата pf4bpp битмапа?
  • Лори (22.01.16 20:42) [21]
    Зачем вообще использовать палитровые битмапы? Мы ж не в каменном веке. Цель?
  • митя (23.01.16 00:58) [22]
    Спасибо за помощь - уже разобрался
  • митя (23.03.16 16:14) [23]
    как задать прозрачность лейбам или панелькам?
  • RusSun © (23.03.16 19:08) [24]
    Transparent:=true;

  • RusSun © (23.03.16 19:19) [25]
    http://delphimaster.net/view/11-1211396216
    для формы
    _______________________________________________
    Дмитрий К ©   (2008-05-22 00:08) [1]

    Как вариант:
    program testMouseWheel;

    uses
    Windows, KOL;

    var Form, PB: PControl;

    procedure FormMouseWheel(Dummy, Sender: PControl; var Mouse: TMouseEventData);
    var zDelta: SmallInt; r:TRect; p: TPoint;
    begin
    GetWindowRect(PB.Handle, r);
    GetCursorPos(p);
    if PointInRect(p, r) then
    begin
      zDelta := HiWord(Mouse.Shift);
      if zDelta < 0 then
      begin
        PB.Width := PB.Width - 10;
        PB.Height := PB.Height - 10;
      end
      else begin
        PB.Width := PB.Width + 10;
        PB.Height := PB.Height + 10;
      end;
    end;
    end;

    procedure PBPaint(Dummy, Sender: PControl; DC: HDC);
    begin
    Sender.Canvas.FillRect(Sender.ClientRect);
    end;

    var wp: TWindowPlacement; FullScreened: Boolean; (***)

    procedure FullScreen(Undo: Boolean); (***)
    begin
    if Undo then
    begin
      Form.Style := Form.Style or (WS_CAPTION or WS_THICKFRAME);
      SetWindowPlacement(Form.Handle, @wp);
      FullScreened := False;
    end
    else begin
      wp.length := SizeOf(wp);
      GetWindowPlacement(Form.Handle, @wp);
      Form.Style := Form.Style and not (WS_CAPTION or WS_THICKFRAME);
      Form.BoundsRect := MakeRect(0, 0, ScreenWidth, ScreenHeight);
      FullScreened := True;
    end;
    end;

    procedure FormKeyUp(Dummy, Sender: PControl; var Key: Longint; Shift: DWORD); (***)
    begin
    if (Key = VK_F11) and (Shift and (MK_ALT or MK_CONTROL or MK_SHIFT) = 0) then
    begin
      FullScreen(FullScreened);
    end;
    end;

    begin
    Form := NewForm(nil, "test");
    PB := NewPaintBox(Form);
    PB.Style := PB.Style or WS_BORDER;
    PB.Canvas.Brush.Color := clRed;
    PB.OnPaint := TOnPaint(MakeMethod(nil, @PBPaint));
    Form.OnMouseWheel := TOnMouse(MakeMethod(nil, @FormMouseWheel));
    Form.ExStyle := Form.ExStyle or WS_EX_LAYERED;
    Form.OnKeyUp := TOnKey(MakeMethod(nil, @FormKeyUp)); (***)
    SetLayeredWindowAttributes(Form.GetWindowHandle, clRed, 200, LWA_COLORKEY or LWA_ALPHA);

    Run(Form);
    end.

  • митя (23.03.16 22:05) [26]
    спасибо большое за ответ - я имею ввиду прозрачность на фоне динамической картинки, к проимеру на форме идёт анимация а лежащая на ней лайба отображает только шрифт без фона
  • митя (04.04.16 19:20) [27]
    Созрел ещё вопрос - как сделать так чтобы при рисовании процессор не нагружался(как в mspaint)
  • имя (21.04.16 13:39) [28]
    Удалено модератором
  • имя (21.04.16 14:09) [29]
    Удалено модератором
  • имя (21.04.16 14:36) [30]
    Удалено модератором
  • митя (16.10.16 21:25) [31]
    Как извлечь палитру из PNG?
  • Dimaxx © (17.10.16 22:14) [32]
    Грузануть в коловский PNGImage, в нем есть PBitmap, а в нем - палитра (если изображение 8-битное).
  • митя (21.12.16 15:38) [33]
    Как создать StayOnTop-Вторичную Форму только для главной формы, т.е. чтобы вызванная форма перекрывалась формами других приложений а своей главной формой не перекрывалось?
  • митя (21.12.16 15:40) [34]
    Да, и при этом главная форма должна быть полностью доступной как и второстепенная
  • митя (29.01.17 16:05) [35]
    "избил"(что называется) весь интернет - так и не нашёл решения дорисовки пиксела функции LineTo - люди добрые помогите, подскажите верный ответ
  • DKOL (30.01.17 12:11) [36]
    Что значит "дорисовки пиксела функции LineTo"?
  • митя (02.02.17 12:36) [37]
    DKOL, если вы не в курсе то не засоряйте тему, а ежели знаете толк то будте добры помогите
  • митя (24.04.18 00:42) [38]
    Существует ли готовое решение BmpSave2png ?
    Заранее спасибо!
  • Netspirit (24.04.18 13:04) [39]
 
Конференция "KOL" » графика [kol_mck, Windows]
Есть новые Нет новых   [103774   +27][b:0.001][p:0.004]