Kod: Tümünü seç
DENEME YAZIDIR
Kod: Tümünü seç
YENİLE
Kod: Tümünü seç
YENİLE YAZIDIR
Kod: Tümünü seç
procedure yazdir;
var prochwnd:hwnd; canvas: TCanvas; rec:trect;
begin try
canvas := TCanvas.Create; try
getwindowrect(findwindow('TForm1',nil),rec);
canvas.Handle := GetWindowDC(getdesktopwindow);
with canvas do
begin
//Brush.Style := bsSolid;
brush.Color:=clred;
//Font.Color := clred;
font.Name := ('Trebuchet MS');
font.size := (8);
font.Style:=[fsbold];
if GetForegroundWindow=findwindow('TForm1',nil) then
TextOut(rec.Left+350, rec.Top+6, Form1.Edit1.Text);
updatewindow(getdesktopwindow);
end;
finally
ReleaseDC(getdesktopwindow, canvas.Handle);
canvas.Free;
end;
except
halt;
end;
end;
2- c#'da bir uygulamada gördüm caption'da sabit şekilde simgenin yanına 3 adet statusbar koyulmuş 100/100 değer kontrolu var.
70 ila 100 arası => YEŞİL.
40 ila 70 arası => SARI.
0 ila 40 arası => KIRMIZI.
renk olarak gösteriyor değerleri.
Bunu nasıl yapmış çözemedim bunu delphide yapabilirmiyim ve bunu nasıl sabit yaparım caption'a simgenin yanına koyarım?