|
Welcome,
Guest
|
Components and Libraries for Graphics Development, discussions, problems and suggestions.
TOPIC:
List index out of bounds in GradientAnimation 12 years 1 month ago #3734
|
|
Please Log in or Create an account to join the conversation. |
SIGSEGV but only when running debugger 12 years 4 weeks ago #3755
|
A problem is nagging me for days now:
The problem is not with using the obsolete TDbf component, a similar test with sqlite-3 gave the same result. It has to do with the TD2DBGrid component, but debugging did not deliver any info (mainly because conditional breakpoints simply do not work  )Regards ;-} Dick Attachments: |
|
Please Log in or Create an account to join the conversation. |
SIGSEGV but only when running debugger 12 years 3 weeks ago #3777
|
Can anyone please confirm this problem? 
|
|
Please Log in or Create an account to join the conversation. |
SIGSEGV but only when running debugger 12 years 3 weeks ago #3778
|
|
Please Log in or Create an account to join the conversation. |
Buffer flushed, even if nothing to flush 12 years 3 weeks ago #3779
|
|
Please Log in or Create an account to join the conversation. |
Buffer flushed, even if nothing to flush 12 years 3 weeks ago #3780
|
|
Please Log in or Create an account to join the conversation. |
SIGSEGV but only when running debugger 12 years 3 weeks ago #3781
|
|
Please Log in or Create an account to join the conversation. |
WideString and UTF8 fixes 12 years 3 weeks ago #3782
|
|
Please Log in or Create an account to join the conversation. |
TD2ComboColorBox doesn't pass value to BindingObj 12 years 3 weeks ago #3783
|
|
Please Log in or Create an account to join the conversation. |
TD2AngleButton doesn't pass value to BindingObj's 12 years 3 weeks ago #3784
|
|
Please Log in or Create an account to join the conversation. |
TD2ColorButton doesn't pass value to BindingObj's 12 years 3 weeks ago #3785
|
|
Please Log in or Create an account to join the conversation. |
TD2Spinbox bugs when value is float 12 years 3 weeks ago #3786
|
|
Please Log in or Create an account to join the conversation. |
The name "Canvas"cannot be used in protoypes 12 years 3 weeks ago #3794
|
|
Please Log in or Create an account to join the conversation. |
TD2NumberBox and TD2SpinBox partly rewritten 12 years 3 weeks ago #3800
|
|
Please Log in or Create an account to join the conversation. |
When binding values should be properly converted 12 years 3 weeks ago #3809
|
|
Please Log in or Create an account to join the conversation. |
When binding values should be properly converted 12 years 3 weeks ago #3810
|
|
Please Log in or Create an account to join the conversation. |
When binding values should be properly converted 12 years 3 weeks ago #3814
|
Hi Sternas, The item #3800 is probably correct, but it causes the brush designer to fail. The OnChange event is fired when the text changes of the number box because of a number of factors. However this gives a loop in the brush designer. Apparently it uses the OnChange event of the number box causing it to loop. I still think the changes are right, so I'll try to fix the problem in the brush designer, because that should not be dependent on the bug that was originally present in the number box (one of the two implementations that I redid). So, for this moment do not apply #3800 fix yet  Thanks ;-} Dick |
|
Please Log in or Create an account to join the conversation. |
TD2NumberBox and TD2SpinBox partly rewritten 12 years 2 weeks ago #3815
|
|
Please Log in or Create an account to join the conversation. |
TD2Inspector may use property info that's nil 12 years 2 weeks ago #3817
|
|
Please Log in or Create an account to join the conversation. |
TD2Calendar not finished? 12 years 2 weeks ago #3826
|
Here's a picture of the old Calendar and the new Calendar after the changes I made:
As you can see, in the old situation the next month, current date and previous month buttons are ridiculously small. Also the month name and the year are almost invisible. If the theme is dark, the buttons are almost invisible. It's not good. Here are some changes I made (as always, the changes are marked with *** DB ***): In orca_scene2d.pas a little change is needed in the TD2Calendar definition: .
.
procedure SetData(const Value: Variant); override;
procedure MouseWheel(Shift: TShiftState; WheelDelta: integer; var Handled: boolean); override;
procedure WeekDay0ApplyResource(Sender : TObject); // *** DB ***
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
.
.First of all, in order to get buttons that are a little bigger, the stroke with which the graphics on these buttons is drawn should be made visible (it's transparent now). Further, in order to find these shapes later on, I gave them the resourcename 'calendarcontrol'. This is done in the Create constructor of the TD2Calendar. At that point, you cannot set the appropriate color, because that is determined by the resource manager after the controls are created. It took me over two days to find a usable event that was not too early and also not too late  I determined that the OnApplyResource event is generated after the resource manager has done its stuff. The color I want for the buttons and the month and year should be the same as that used for showing the week days. So I made an OnApplyResource event for the first label used in the weekdays. This is part of the constructor TD2Calendar.Create in orca_scene2d_obj_calendars.inc: FPrev := TD2Button.Create(Self);
with FPrev do
begin
Parent := L;
Width := 19;
Locked := true;
Stored := false;
Align := vaLeft;
Padding.Right := 2;
Resource := 'transparentcirclebuttonstyle';
OnClick := DoPrevClick;
RepeatClick := true;
with TD2ScrollArrowLeft.Create(Self) do
begin
Parent := FPrev;
Width := 5;
Height := 5;
// Stroke.Style := d2BrushNone; // Very, very small arrows *** DB ***
Stroke.Style := d2BrushSolid; // *** DB ***
ResourceName := 'calendarcontrol'; // So we can find it *** DB ***
Align := vaCenter;
HitTest := false;
Stored := false;
Locked := true;
end;
end;
FToday := TD2Button.Create(Self);
with FToday do
begin
Parent := L;
Width := 19;
Locked := true;
Stored := false;
Align := vaLeft;
Position.X := 30;
Padding.Right := 2;
Resource := 'transparentcirclebuttonstyle';
OnClick := DoTodayClick;
// RepeatClick := true; // Select today many times? *** DB ***
RepeatClick := false; // *** DB ***
with TD2Ellipse.Create(Self) do
begin
Parent := FToday;
Width := 5;
Height := 5;
// Stroke.Style := d2BrushNone; // *** DB ***
Stroke.Style := d2BrushSolid; // *** DB ***
ResourceName := 'calendarcontrol'; // *** DB ***
Align := vaCenter;
HitTest := false;
Stored := false;
Locked := true;
end;
end;
FNext := TD2Button.Create(Self);
with FNext do
begin
Parent := L;
Width := 19;
Locked := true;
Stored := false;
Position.X := 50;
Align := vaLeft;
Padding.Right := 2;
Resource := 'transparentcirclebuttonstyle';
RepeatClick := true;
OnClick := DoNextClick;
with TD2ScrollArrowRight.Create(Self) do
begin
Parent := FNext;
Width := 5;
Height := 5;
// Stroke.Style := d2BrushNone; // *** DB ***
Stroke.Style := d2BrushSolid; // *** DB ***
ResourceName := 'calendarcontrol'; // *** DB ***
Align := vaCenter;
HitTest := false;
Stored := false;
Locked := true;
end;
end;
FMonths := TD2PopupBox.Create(Self);
with FMonths do
begin
Parent := L;
Align := vaClient;
Locked := true;
Stored := false;
DisableFocusEffect := true;
Padding.Left := 5;
Padding.Right := 5;
Resource := 'labelstyle';
for i := 1 to 12 do
Items.Add(LongMonthNames[i]);
Font.Style := d2FontBold;
TextAlign := d2TextAlignFar;
ItemIndex := AMonth - 1;
OnChange := DoMonthChange;
end;
FYears := TD2PopupBox.Create(Self);
with FYears do
begin
Parent := L;
Width := 40;
Align := vaRight;
Locked := true;
Stored := false;
DisableFocusEffect := true;
Resource := 'labelstyle';
for i := 1 to 10 do
Items.Add(IntToStr(AYear - i));
Items.Add(IntToStr(AYear));
for i := 1 to 10 do
Items.Add(IntToStr(AYear + i));
Font.Style := d2FontBold;
TextAlign := d2TextAlignNear;
ItemIndex := 10;
OnChange := DoYearChange;
end;
end;
FWeek := TD2GridLayout.Create(Self);
with FWeek do
begin
Parent := Self;
Locked := true;
Stored := false;
Height := 19;
Position.Y := 20;
ItemHeight := 19;
Align := vaTop;
Padding.Bottom := 2;
for i := 0 to 6 do
with TD2Label.Create(Self) do
begin
Parent := FWeek;
Locked := true;
Stored := false;
TextAlign := d2TextAlignCenter;
WordWrap := false;
end;
TD2Label(Children[0]).OnApplyResource := WeekDay0ApplyResource;// *** DB ***
ItemWidth := Width / 7;
end;So all that's left to do is implemenet the OnApplyResource for week day 0: procedure TD2Calendar.WeekDay0ApplyResource(Sender : TObject); // *** DB ***
var
T: TD2Object;
B: TD2Brush;
procedure FillButton(btn: TD2Button);
var
T: TD2Object;
begin
T := btn.FindResource('calendarcontrol');
if (T <> nil) and (T is TD2Shape) then begin
TD2Shape(T).Stroke.Assign(B);
TD2Shape(T).Fill.Assign(B);
end{if};
end;
procedure FillTxtFont(lbl: TD2TextControl);
var
T: TD2Object;
begin
T := lbl.FindResource('text');
if (T <> nil) and (T is TD2Text) then begin
TD2Text(T).Fill.Assign(B);
end{if};
end;
begin
B := TD2Brush.Create(d2BrushSolid, $FFFFFFFF);
Try
T := Sender as TD2Label;
T := TD2Label(T).FindResource('text');
if (T <> nil) and (T is TD2Text) then B.Assign(TD2Text(T).Fill)
else Exit;
FillButton(FPrev);
FillButton(FToday);
FillButton(FNext);
FillTxtFont(FMonths);
FillTxtFont(FYears);
finally
B.Free;
end{try};
end; // *** DB ***That code was not easily made. For your interest: look at the way you get to the color of the text in the label. That's interesting for others too, if you want to change that color in code. Cheers ;-} Dick Attachments: |
|
Please Log in or Create an account to join the conversation. |