소심한 개구쟁이의 일상

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Mask, ComCtrls, Printers; type TMainForm = class(TForm) Button1: TButton; ME_yyyymm: TMaskEdit; Image_Schedule: TImage; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } procedure Dra..

카테고리 없음 2023. 9. 6. 08:30

Type TTransparentPanel = Class(TPanel) Private Procedure SetParent(AParent:TWinControl); Override; Procedure WMEraseBkGnd(Var Message:TWMEraseBkGnd); Message WM_EraseBkGnd; Protected Procedure CreateParams(Var Params:TCreateParams); Override; Procedure Paint; Override; Public Constructor Create(AOwner:TComponent); Override; Procedure Invalidate; Override; End; Constructor TTransparentPanel.Creat..

카테고리 없음 2023. 9. 6. 08:26

procedure TForm1.PrintBtnClick(Sender: TObject); var i:integer; leftmargin, rightmargin, topmargin:integer; savewidth,saveheight:integer; savecolw,saverowh:array of integer; SavefontSize, SaveGL:integer; scalev,scaleh,scale:single; begin if PrintDialog1.Execute then with Printer, stringgrid1 do begin BeginDoc; {set print margins} leftmargin:=pagewidth div 10; rightmargin:=pagewidth-leftmargin; t..

카테고리 없음 2023. 9. 5. 08:13

// only 95/98/ME type TintFunction = function(dwProcessID, dwType: Integer): Integer; StdCall; var OSInfo: TOSVersionInfo; kernalinst: Thandle; RegServPointer: Tfarproc; myfunction: TintFunction; ExtendedStyle: Integer; begin // this will hide app from task bar.. all os's ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE); SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle..

카테고리 없음 2023. 9. 5. 08:11