ying32 / rust-vcl Goto Github PK

        unsafe {
            let style = GetWindowLongW(self.tv.Handle() as cHWND, GWL_STYLE);
            SetWindowLongW(self.tv.Handle() as cHWND, GWL_STYLE, style | TVS_CHECKBOXES as i32);
        }

    fn OnMouseDown(&self, sender: usize, button: TMouseButton, shift: TShiftState, x: i32, y: i32) {
        println!("Button:{}, X:{} Y:{}", button == TMouseButton::mbLeft, x, y);
        println!("OnMouseDown");
    }

MessageDlg("中文", TMsgDlgType::mtInformation, TMsgDlgBtn::mbYes as u32, 0);

.SetOnLinkClick(sid, |cls: &TMainForm, sender: usize, link: *const c_char, linkType: TSysLinkType|{
    println!("link label: {}, type: {:?}", to_RustString!(link), linkType);

});

pub type TNotifyEvent = fn(usize);

        let chk = TCheckBox::new(&self.form);
        ...

        action.SetOnUpdate(|sender: usize|{
             let action: TAction = TAction::As(sender);
             action.SetEnabled(chk.Checked());
        });