Forum Replies Created
-
Posts
-
Hello,
Maybe using this function
Code:Function TextSize(Phrase : string; Police : TFont = nil) : TPoint;
var
DC: HDC;
Rect: TRect;
C : TBitmap;
begin
C := TBitmap.create;
if police <> nil then C.canvas.Font := police;Rect.Left := 0;
Rect.Top:=0;
Rect.Right:=0;
Rect.Bottom:=0;
DC := GetDC(0);
C.Canvas.Handle := DC;
DrawText(C.Canvas.Handle, PChar(Phrase), Length(Phrase), Rect, (DT_EXPANDTABS or DT_CALCRECT));
C.Canvas.Handle := 0;
ReleaseDC(0, DC);
result.X:=Rect.Right-Rect.Left;
result.Y:=Rect.Bottom-Rect.Top;
C.Free;
end;This function returns the width and height of the text.
Bye.
Hello,
attention to my writing, it is a translation by Google.
To keep things simple. Can you make a tutorial (example with screen page) on how to install 64bit mode because I do not understand how to do it.
Thx
Hi,
As you have asked me to send you my DFM, before doing it, I deleted my main TForm component Skinmanager and the SkinProvider.
I add these two new components and everything works.
I hope it will not…
Thank you
I have another TForm makes me the same thing, but in it there is no Skinmanager (this is a TForm ShowModal) is would this be enough?
This ShowModal TForm is not skinned. Even with the procedure OnActivate the main TForm
you should also one of my main TForm ?
Hello,
By placing a skinProvider indeed the menu this up correctly.
But another problem appears.
When I start compiling my project, my window is displayed behind the Delphi now.
Not very serious problem… when I run my application outside delphi the behavior is normal.
Thank you for your help.
Hello,
Property ParentBiDiMode menu, it is already a real set.
if I set to false, my application freezes for 2 seconds before you can use.
Sorry, but your proposal does not fix the problem.
Thx
'Support' wrote:I'm sorry, what you mean? Can you show a screenshot of TsMonthCalendar and of other (correct) calendar?
Hello,
the 1 days of week 48 not existe
the week 48 is not correct normaly it's 52
Thx.
'Support' wrote:Hello
Some changes will be added in the next release and this issue will be solved I think.
Hello,
You have actually solved the problem of week number offset.
But you have not solved the problem as a whole.
Indeed, at the end of the year 2012 this works, but with the passage in January, the week of December numbers are éronées.
Thank you
Other problems
if parameters ShowTodayBtn is True, the display is in English.
the display is in English while i am in French language.
It displays “today” instead of 'Aujourd'hui'
There is no setting in the file sStrings.RES
Thx
Hello,
Thank you for your help.
I had a file sHtmlParse.dcu alone in my directorie Lib.
I remove the file and recompiled version 7.25
This has solved my problem.
Thank you.
PS : I wanted to greet you for the quality of your components. Even with the minor problems mentioned your work is gorgeous
Bravo (in french) :a3:
Hello,
Yes my problems is solved.
I simply removed my TListBox (I didn 't used sTlistBox), then I replaced, and it works like magic.
thank you.
Precision :
I use it as
Code:// it works
procedure TFGestionDesVues.sColBoxFondSelect(Sender: TObject);
begin
if TsColorBox(Sender).Itemindex = -1 then exit;
sLBoxAfficher.Color := StringToColor(TsColorBox(Sender).Items[TsColorBox(Sender).Itemindex]);
end;
…//it does not work
procedure TFGestionDesVues.sBtnPoliceClick(Sender: TObject);
begin
if FontDialog1.Execute then
begin
sLBoxAfficher.Font := FontDialog1.Font;
end;
end;sLBoxAfficher is a TslistBox, skins = None
Thx
