Jump to content
xisto Community

cosmic

Members
  • Content Count

    12
  • Joined

  • Last visited

Posts posted by cosmic


  1. varjpg: TJpegImage;......if openpicturedialog1.Execute thenbegin jpg:= TJpegImage.Create; try jpg.Loadfromfile( openpicturedialog1.filename ); if jpg.Height>jpg.Width then begin jpg.Height:=round(jpg.Height/20); jpg.Width:=round(jpg.Width/20); end;EDBImage1.Picture.LoadFromFile(openpicturedialog1.FileName);finallyjpg.Free;end;


  2. I want to control my app while i'm working with other programs. Tried it with RegisterHotKey function but it isn't working. And I don't know why.const id_SnapShot=101;procedure TForm1.WMHotKey (var Msg : TWMHotKey);beginif Msg.HotKey = id_SnapShot then ShowMessage('GotIt');end;procedure TForm1.FormCreate(Sender: TObject);beginRegisterHotKey(Form1.Handle,id_SnapShot,0,VK_SNAPSHOT);end;Maybe the problem is in procedure WMHotKey!?


  3. I need to verify that a text time entry (I know there's the time entry component, but nobody liked that one, they would rather type in a text form of the times) from a user input ends on the quarter hour. I know that I can split the entry apart and check the last two digits for 15, 30, 45 or 00, but was wondering if there's a different/better way.

×
×
  • Create New...

Important Information

Terms of Use | Privacy Policy | Guidelines | We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.